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Spielespaß mit ee ir 
tollen Listings 


Schneider CPCs 


und Joyce 


Markt &Technik 


Schneider C.Straush 
TEUER PZ: Schneider-CPC-Grafik-Programmierung 
1986, 231 Seiten. 
Die faszinierende Welt der Grafik, erklärt 
an zahlreichen Anwendungsbeispielen. 
f Mit vielen Tips & Tricks: BASIC-Befehls- 
a nn ai erweiterung, Sprites, Hardcopy-Routinen. 
© UmheRLame Behpic i Best.-Nr. 90182 
ISBN 3-89090-182-4 


E.Zehendner DM 46,-/sFr 42,30/6S 358,80 
Das Z80-Buch 


1987, 682 Seiten 
T. Erpel 5 
CPC-BASIC-Kurs Assembler - Datenstrukturen - 
. Programmaufbau 
1985, 376 Seiten Best.-Nr. 90219 
Ein BASIC-Lehrgang für Erstanwen- 19.8 


a strikrlares p r ISBN 3-89090-219-7 S 2 
fer: strukturiertes Programmieren, DM 59,-/sFr 54,30/6S 460,20 J.Hückstädt 


Befehlsübersicht, unterhaltsame Textverarbeitung mit LocoScript 
Beispiele. 1986, 246 Seiten 
Best.-Nr. MT 828 Ein unentbehrliches Lehrbuch und Nachschlagewerk für jeden 
ISBN 3-89090-167-0 Joyce-Besitzer: Texte schreiben, aufbereiten und drucken. 
DM 46,-/sFr 42,30/6$ 358,80 Best.-Nr. 90198 
MarkiSitechnik ISBN 3-89090-198-0 
DM 39,-/sFr 35,90/öS 304,20 


W. Kassera 

Turbo-Pascal auf dem CPC 6128 

2. Quartal 1987. ca. 250 Seiten 

Ausführlich erläuterte Übungen, Beispiele und Anwen- 
dungen für das CP/M-Plus-System in über 100 Programm- 
teilen, Prozeduren und Funktionen 

Best.-Nr. 90455 

ISBN 3-89090-455-6 

DM 59,-/sFr 54,30/öS 460,20 


O.Hartwig 
Experimente zur Künstlichen Intelligenz in BASIC 
auf CPC 464/664/6128 
2. Quartal 1987, ca. 300 Seiten 
Eine praxisbezogene Einführung in das Verarbeiten 
natürlicher Sprache. Wissensrepräsentation, Computer- 
Kreativität, Robotics und Expertensysteme. 

CP/M-Plus-Anwenderhandbuch CPC 6128/Joyce Best.-Nr. 90473 

1986, 256 Seiten. ISBN 3-89090-473-4 

Ein unentbehrliches Nachschlagewerk für die praktische Arbeit mit DM 49,-/sFr 45,10/6S 382,20 

u CPIM Plus und seinen Hilfsprogrammen. Mit zahlreichen Beispielen 
und ausführlichen systemspezifischen Daten zur internen 


een Markt &Technik-Produkte erhalten Sie bei Ihrem 
Buchhändler, in Computerfachgeschäften oder in den 
= Fachabteilungen der Warenhäuser. 


a u tete AB: 


Irrtümer und Änderungen vorbehalten 


Markt&Technik 


Zeitschriften - Bücher 
Software - Schulung 


Markt& Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, Sn Fragen Sie bei Ihrem 
8013 Haar bei München, Telefon (089) 46 13-0. x Buchhändler nach unserem 
} SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656, S kostenlosen Gesamtverzeichnis 
ÖSTERREICH: Rudolf Lechner &Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 67 7526, Ueberreuter s mit über 200 aktuellen 
Media Handels- und Verlagsges. mbH (Großhandel), Alser Straße 24, A-1091 Wien, Telefon (0222) 481538-0 Computerbüchern und Software. 


arum gibt es von Happy- 
Computer nur Sonderhefte 
zu den Schneider-Compu- 


tern und kein eigenes Magazin? Sol- 
che oder ähnliche Fragen unserer 
Leser erreichen uns, fast schon seit 
der erste CPC im Jahr 1984 auf dem 
Markt erschien. Und natürlich mach- 
ten wir uns auch Gedanken über das 
Informationsbedürfnis der stolzen 
Besitzer dieses erfolgreichen New- 
comers. Wir entschieden uns damals, 
wie inzwischen wohl ein jeder weiß, für 
eine regelmäßige, im dreimonatigen 
Rhythmus erscheinende Sonderheft- 
reihe. Damit, so glauben wir, bieten wir 
Ihnen als aktiiem CPC-Benutzer eine 
gelungene Mischung vielfältigster 
Informationen, Tips und Listings. 
Unser monatliches Magazin Happy- 
Computer bringt Ihnen einen hoch- 
aktuellen Überblick über den Gesamt- 
markt und generelle technologische 
Entwicklungen auf dem Computer- 
sektor. Diesem äußerst wichtigen 
Anspruch kann man in einem reinen 
»Schneider-Magazin« leider nicht 
gerecht werden. Aber schließlich 
haben Sie ein berechtigtes Interesse 
daran, daß Ihr Blick nicht durch 
»Scheuklappen« begrenzt wird. 

Dazu kommen die neuesten, auch 
speziell aus der Schneider-Welt stam- 
menden Neuheiten, die Sie oft bei uns 
zuerst erfahren, bevor andere davon 
auch nur Gerüchte kennen. 

Nichtsdestotrotz gibt es einen eige- 
nen Schneider-Teil mit aktuellsten 
Hard- und Software-Tests, Tips, Kur- 
sen und ausgesuchten Spitzen- 
Listings. Nehmen Sie all diese interes- 
santen Themen zusammen, also den 
Schneider-»Teile, die umfassende 
Markt-Übersicht (durch Messebericht- 
erstattungen von allen wichtigen Com- 
putermessen dieser Welt, Tests von 
Geräten sämtlicher Hersteller und 


Computerspaß 
nach Maß 


mierung, für Sortier-Routinen, und, 
und, und...),, den Spiele-Sonderteil 
und dergleichen mehr, haben Sie 
einen Informationsumfang für CPC- 
Besitzer, der seinesgleichen sucht. 
Umfangreiche Programmlistings 
und Grundlagenbeiträge packen wir 
dann in konzentrierter Form in unsere 
Schneider-Sonderhefte, die Ihnen 
lange Zeit als Nachschlagewerke zur 
Verfügung stehen. Damit decken wir 
alle Anwendungsgebiete und Interes- 
sen des Computer-Hobbyisten ab. 
Diese Ausgabe bietet in einem 
Disketten-Schwerpunkt den Ver- 
gleichstest dreier Kopierprogramme. 
Eigentlich sollte ein ähnlicher Test von 
Kassetten-Kopierern das Thema er- 
gänzen. Aber schon erste Versuche im 
Vorfeld führten dieses Vorhaben ad 
absurdum, da jedes der Kopierpro- 
gramme nur eine »Handvoll« anderer 
Programme kopierte. Die Moral von 
der Geschicht: Greifen Sie zum Kopie- 
ren von Kassettensoftware zu einem 
der ab Seite 11 getesteten Module. 
Spielefans dürfen sich schon jetzt 
besonders auf das nächste Schnei- 
der-Sonderheft freuen, denn einen 
Schwerpunkt dieser nächsten Aus- 
gabe werden neben den gewohnten 
Rubriken die besten Spielelistings bil- 
den. Da wir schon in diesem Moment, 
wo Sie diese Zeilen lesen, mit Hoch- 
druck an der Produktion der kommen- 
den Ausgabe arbeiten, sollten Sie uns 
schnell Ihre Programme zusenden. 
Vielleicht liegt auch bei Ihnen ein 
»Juwel« in der Schublade, über des- 
sen Veröffentlichung die anderen 
Leser hocherfreut wären. 
Thomas Jacobi 


Trendberichten), die allgemeinen 

Grundlagen (beispielsweise über 

Algorithmen zur Grafik-Program- 
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Wer hat davon nicht schon geträumt: Programme im EPROM 
ersparen Ladezeiten und belegen kaum Arbeitsspeicher. 
Unser Selbstbau-EPROMer macht mit intelligenter Software 
und geringen Kosten Träume wahr. 14 


ELLLCED 


Re grssssrtechterenn 


=; MEER" 


Für die nötige Entspannung bei der Arbeit mit dem CPC sorgt 
das flotte Spiel »Stone Runner«, bei dem es auf Überlegung 
und flinke Finger ankommt. Ein Spielfeld-Editor macht den 
Spielspaß komplett. 128 
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VOLUME <==z Zeıt in a. ai Sek 

ENU 1, 15,1, 1, 8,-1, 1, 3, 1,4 14, 18,-1, 2 

Ein reines Vergnügen war der Entwurf von Hüllkurven bislang 
fürwahr nicht. Mit dem »Envelope Composer« gelingen Ihnen 
zukünftig selbst komplizierteste Töne schnell und komforta- 
bel am Bildschirm. 9 
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Drei Kopiermodule sind mittlerweile für den CPC erhältlich. 
Manch einer zögert angesichts der hohen Preise und der feh- 
lenden Vergleichsmöglichkeiten. Wir haben uns für Sie alle 
drei angesehen und geben Entscheidungshilfen. 11 


Die sogenannten »Apfelmännchen«-Grafiken hat wohl schon 
jeder Computerinteressierte bestaunt. Wenn Sie wissen wol- 
len wie sie entstehen, lesen Sie die mathematischen Grundla- 
gen und Sie werden sehen: es ist nicht kompliziert. 140 


Jeder hat sie schon einmal gesehen. Die meisten benutzen 
sie bereits. Was aber beim Gebrauch einer Diskette genau 
passiert, wissen die wenigsten. Lernen auch Sie, mehr aus 
diesem Speichermedium herauszuholen. 31 


Ein Plus für 
jeden CPC 


Haben Sie auch schon mit dem Gedanken 
gespielt, Ihre besten Programme in ein EPROM 
zu brennen, um die Software jederzeit 

beim Programmieren parat zu haben, ohne sie 
vorher jedesmal umständlich zu laden? Oder 


möchten Sie eines der EPROMs mit leistungs- 
fähiger kommerzieller Software, wie sie mittler- 


weile vermehrt angeboten werden, kaufen und 
in Ihrem Computer professionell einsetzen? 


Brennern selbst programmieren 

(lesen Sie hierzu auch die Bau- 
anleitung in dieser Ausgabe) oder aus 
dem inzwischen reichhaltigen Ange- 
bot der Softwarehäuser wählen. Doch 
wie ein EPROM an den CPC anschlie- 
Ben? Wie läßt sich die neue Software in 
das Betriebssystem einbinden? 

Man muß weder Bastelprofi noch 
Betriebssystemspezialist sein, um 
diese Frage zu lösen, denn mittler- 
weile gibt es Abhilfe in Form einer 
Hardware-Erweiterung für den CPC. 
»Super ROM Plus Box« (im folgenden 
kurz ROM-Box genannt) heißt das 
hochinteressante Produkt von Britan- 
nia Developments, das seit kurzem 
auch in Deutschland erhältlich ist. 

Die ROM-Box wird in einem farblich 
zum CPC passenden Kunststoffge- 
häuse geliefert und bietet dem Käufer 
bei einem Preis von 149 Mark 15 
Steckplätze für ROMs und EPROMs 
(16-KByte-Typen), von denen einer 


e PROMs kann man mit EPROM- 


Bild 3. Das Menü des ROM-Box-Betriebssystems, das nach 


Einschalten des Computers erscheint 


bereits durch das Betriebssystem der 
ROM-Box belegt ist. (Der Einfachheit 
halber werden wir im folgenden auch 
EPROMs als ROMs bezeichnen.) 

Bild 1 zeigt, wie die ROM-Box am 
CPC angeschlossen wird, und auf Bild 
2 erkennt man das geöffnete Gehäuse 
mit fünf ROMs auf der Platine. 

Die ROM-Box arbeitet mit allen drei 
CPC-Modellen zusammen und wird 
auf den Erweiterungsanschluß aufge- 
steckt. Beim CPC 6128 ist zusätzlich 
ein Adapter für 30 Mark erforderlich. 
Sämtliche Signale des Erweiterungs- 
anschlusses sind auf einen zweiten 
Stecker herausgeführt, so daß bereits 
vorhandene Erweiterungen weiterhin 
betrieben werden können. Auch hier 
ist beim CPC 6128 wieder ein Adapter 
nötig, wenn die Peripherie über einen 
50poligen Amphenolstecker verfügt. 
Allerdings arbeitet die ROM-Box nicht 
mit den Produkten von Vortex zusam- 
men, weder mit den Laufwerken noch 
mit der Speichererweiterung. 


Bild 4. Ein Unterpunkt des Menüs untersucht die ROM-Box 
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Bild 2. Die ROM-Box mit fünf belegten und zehn freien 
EPROM-Steckplätzen 


Sämtliche ROMs in der Box werden 
beim Einschalten des Computers ini- 
tialisiert und in das Betriebssystem 
des CPC eingebunden, sofern sie den 
Amstrad-Spezifikationen für Erweite- 
rungs-ROMs entsprechen. Die Tabelle 
zeigt, wie ein Erweiterungs-ROM auf- 
gebaut sein muß, damit es das Be- 
triebssystem des CPC auch korrekt 
initialisieren und einbinden kann. 

Das Betriebssystem der ROM-Box 
übernimmt nach der Initialisierung der 
ROMs die Kontrolle über den Compu- 
ter und zeigt auf dem Bildschirm ein 
Menü, das sich aus vier Fenstern 
zusammensetzt (Bild 3). 

Im ersten Fenster sind alle Vorder- 
grund-ROMs (zum Beispiel das Basic 
des CPC) aufgeführt, die sich auf 
Tastendruck auswählen und aktivie- 
ren lassen. Das zweite Fenster zeigt 
die Hintergrund-ROMs (zum Beispiel 
das Disketten-Betriebssystem), die 


sich auf Tastendruck ein- und ausblen- 
den lassen. 


auf freie und belegte Steckplätze 
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Oberes B: 


das Betriebssystem ist) 


n+1 


Buchstaben gekennzeichnet) 


m+1 


1 
e der Adresse der Befehlswort-Tabelle 


Sprung (JP) zur Routine für das erste Befehlswort in der Befehlswort-Tabelle (in der Regel 
eine Initialisierungsroutine, weil 6 auch der Einstiegspunkt bei der Initialisierung durch 


Sprung (JP) zur Routine für das zweite Befehlswort in der Befehlswort-Tabelle 


Sprung (JP) zur Routine für das dritte Befehlswort 


Sprung (JP) zur Routine für das letzte Befehlswort 


Befehlswort-Tabelle (jedes Befehlswortende wird duch ein gesetztes achtes Bit im letzten 


| m | Befehlswort-Tabellenende (0) 


Initialisierungs-Routine und Routinen für die einzelnen Befehlswörter 


Nach diesem Schema muß ein Erweiterungs-ROM aufgebaut sein, damit der 


CPC den Baustein initialisieren und einbinden kann 


„ Durch die ESC-Taste läßt sich eine 
Übersicht, die die Belegung der Steck- 
plätze in der ROM-Box zeigt, aufrufen 
(Bild 4). 

Als besonderes Extra erlaubt die 
ROM-Box auch den Einsatz von stati- 
schen RAM-Bausteinen (sogenannte 
Sideways-RAMs) als Speichererwei- 
terung. Das Betriebssystem kann 
diese RAMs als Druckerpuffer ver- 
wenden, um Wartezeit beim Ausdruck 
von Programmen oder Texten zu spa- 
ren oder von Diskette beziehungs- 
weise Kassette mit Daten laden, so 
daß jedes Sideways-RAM als ROM- 
Emulator zum Austesten von Soft- 
ware, die später in einen EPROM 
gebrannt werden soll, geeignet ist. 

Das Betriebssystem der ROM-Box 
enthält neben den Routinen zur Ver- 


waltung der ROMs zusätzlich 20 lei- 
stungsfähige RSX-Befehle, die aus 
der Basic-Ebene heraus aufgerufen 
werden können. Drei Befehle listen all- 
gemeine Informationen zu allen vor- 
handenen ROMSs oder zeigen detail- 
lierte Informationen zu einem einzel- 
nen ROM an. Drei weitere Befehle 
dienen zur Verwaltung der 
Sideways-RAMs in der ROM-Box, ein 
RSX-Befehl paßt CP/M Plus an das 
ROM-Box-Betriebssystem an. Die 
restlichen 13 RSX-Befehle sind für die 
Ansteuerung von (Epson-kompati- 
blen) Druckern zuständig, um Schrift- 
art und Vorschub einzustellen. 

Im Lieferumfang der ROM-Box ist 
eine ausführliche englische und deut- 
sche Anleitung enthalten. Sind Sie 
jedoch im Englischen etwas bewan- 
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Bild 1. Die »Super-ROM-Box« präsentiert 
sich farblich abgestimmt zum CPC 


dert, werden Sie mit der Bedienung 
der ROM-Box ohnehin keine Pro- 
bleme haben, weil das Betriebssy- 
stem der ROM-Box genügend Hin- 
weise zur Bedienung gibt. 
Zusammenfassend beurteilt, erhält 
man mit der ROM-Box für den CPC 
eine leistungsfähige Erweiterung zu 
einem fairen Preis. Sie bietet durch 
das eingebaute Betriebssystem eine 
komfortable Verwaltung von gekauf- 
ten und selbstprogrammierten 
EPROMSs und erweitert dadurch die 
Fähigkeiten des CPC beträchtlich. Mit 
Ihren »Lieblings-EPROMs« bestückt, 
werden Sie die ROM-Box schon nach 
kurzer Zeit nicht mehr missen wollen. 
(ma) 
PR8-Soft, Klaus-M. Pracht, Erbachshof 1, 8702 Eisingen, Tel. 
(09306) 8735 


Kampf der 
Speicher-Giganten 


RAM-Erweiterungen zweier Her- 
steller im Vergleichstest: Welche 
bietet den optimalen Nutzen? 


t’s British - it won’t work. Dieser 
k scherzhafte Ausspruch amerikani- 

scher Techniker hat in der jetzigen 
Computer-Generation eher einen Bu- 
merang-Effekt für seine Erfinder. Ge- 
rade die findigen Engländer zeigen 
nämlich deutlich, daß sie sehr gut in 
der Elektronikentwicklung und der 
Programmierung Bescheid wissen. 
So zählte zu den ersten Firmen, die 
Hard- und Software für den CPC anbo- 


ten, die britische Firma dk’tronics. Sie 
ist in erster Linie in ihrer Heimat 
bekannt, wo sie ihre Produkte vor- 
nehmlich verkauft. Zu diesen Produk- 
ten, die nun seit einiger Zeit auch auf 
dem deutschen Markt erhältlich sind, 
gehören 64- und 256-KByte-Speicher- 
erweiterungen für den CPC 464 und 
664 sowie weitere Hardware-Erweite- 
rungen für alle CPCs mit eigenem 64- 
oder 256-KByte-Speicherbereich, der 
als virtuelles Diskettenlaufwerk anzu- 
sprechen ist (Silicon Disc). 

Auf dem Gebiet der Speichererwei- 
terungen war eine deutsche Firma 


schneller: Vortex entwickelte eine auf 
512 KByte aufrüstbare 256-KByte- 
Erweiterung, die allerdings nur mit 
den CPC-Modellen 464 und 664 zu 
betreiben ist. Dafür vereint sie Fähig- 
keiten, die man bei dk’tronics nur 
durch Kombination der Speicherer- 
weiterung mit der Silicon Disc erhält. 

Die Rollen in diesem Vergleichs- 
kampf sind klar verteilt: Auf der einen 
Seite steht die Vortex-Erweiterung, die 
in Deutschland einige Unterstützung 
seitens der Software-Industrie findet. 
Auf der anderen Seite steht der hierzu- 
lande relativ unbekannte Herausfor- 


au 
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derer von der britischen Insel, der dort 
ein hohes Ansehen genießt. Wer 
macht das Rennen? 

Eine Speichererweiterung funktio- 
niert natürlich nicht ohne unterstüt- 
zende Software, denn der Prozessor 
der CPCs, ein Zilog Z80, adressiert 
bekanntlich nur einen Speicherbe- 
reich von 64 KByte direkt. Und so bie- 
tet die dk’tronics-Erweiterung unter 
Basic 12 RSX-Befehle, die zum Bei- 
spiel das schnelle Speichern und 
Laden von Bildschirminhalten als Win- 
dows im zusätzlichen RAM-Bereich 
erlauben. Die Bilder in den einzelnen 
Speicherbänken sind auch blitz- 
schnell zur Anzeige auf dem Bild- 
schirm auszutauschen, um trickfilm- 
ähnliche Effekte zu erzielen. Durch 
Variablenablage im zusätzlichen 
Speicherbereich spart man kostbaren 
Platz im normalen Arbeitsspeicher, 
der dadurch umfangreichere Basic- 
Programme faßt. Damit ähneln die 
Fähigkeiten eines CPC 464 oder 664 
mit dieser Erweiterung denen des 
CPC 6128. Die maximale Menge der 
Bilder und Daten hängt selbstver- 
ständlich von der Größe der Erweite- 
rung ab. Der Nutzen der Speicher- 
erweiterung unter Basic läßt sich 
durch gemeinsamen Betrieb mit der 
Silicon Disc steigern. Das Betriebs- 
system der Silicon Disc macht deren 
RAM-Bereich nämlich als Pseudo- 
Diskettenlaufwerk mit einer maxima- 
len Kapazität von 444 KByte nutzbar, 
was beim häufigen Wechsel zwischen 
mehreren Programmen, intensivem 
Datentransfer sowie beim Kopieren 
wesentliche Geschwindigkeitsvorteile 
mit sich bringt. Der Zugriff auf Daten in 
der RAM-Disk geschieht dermaßen 
schnell, daß Ladezeiten kaum mehr 
ins Gewicht fallen. 

Vortex dagegen bietet 66 neue 
Befehle. Mit der neuesten Version des 
Vortex-BOS (»Bank Operating 
System«) steht wie bei dk’tronics unter 
Basic eine RAM-Disk mit ebenfalls 
444 KByte (im Vollausbau) bereit. Die 
neuen Befehle zur relativen Dateiver- 
waltung erlauben völlig neue Daten- 
strukturen. 


Vortex SP 256 — 
ein wahres Füllhorn 


Auch die Fähigkeit, in komfortabel- 
ster Weise Bildschirme zu speichern 
und eine Art Trickfilm ablaufen zu las- 
sen, fehlt hier nicht. 

Ein im Umfang variabler Drucker- 
Spooler sorgt dafür, daß man selbst 
beim Druck langer Texte am Computer 
normal weiterarbeiten kann, während 
der Drucker noch fleißig rattert. 
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512 KByte RAM 


Bild 2. Die Vortex 
SP 512 und SP 256 
werden als Platinen 
zum Einbau in den 
Computer geliefert. 
Steckverbindungen 
reduzieren die 
»Bastelei« jedoch 
auf ein Minimum. 


Einzigartig ist die Fähigkeit der Ver- 
waltung größerer Basic-Programme, 
deren Programmcode einen Umfang 
von bis zu 320 KByte erreichen darf. 

Eine besonders interessante der 
zusätzlichen Funktionen ist das einge- 
baute Monitorprogramm. Mit ihm las- 
sen sich nicht nur kleine Maschinen- 
code-Routinen schreiben, sondern 
auch Programme vom Datenträger 
einlesen, verändern und anschlie- 
Bend speichern. 

Viele zusätzliche nützliche Befehle 
runden das Gesamtbild der Ausstat- 
tung ab. 

Beide Speichererweiterungen bie- 
ten auch unter CP/M 2.2 wahlweise 
einen vergrößerten Programmspei- 
cher (TPA) von 61 KByte (dk’tronics) 
beziehungsweise 62 KByte (Vortex) 
anstelle der normalen 43 KByte. 
Umfangreiche professionelle CP/M- 
Programmpakete arbeiten oft nur mit 
diesem größeren Arbeitsspeicher. Da- 
zu zählen Programme wie dBase Il 
und Multiplan. Andere, wie beispiels- 
weise Wordstar oder Turbo-Pascal, um 
nur zwei bekannte Namen zu nennen, 
arbeiten zwar unter dem »kleinen« 
CP/M 2.2 zufriedenstellend, gelangen 
jedoch erst mit der größeren TPA zu 
ihrer vollen Leistungsfähigkeit. 

Sowohl die Silicon Disc als auch die 
Vortex-Erweiterung bieten die Vor- 
züge ihrer RAM-Disks auch unter 
CP/M. Dazu kommt bei Vortex noch 
der Drucker-Spooler. 

Dafür bieten die Speichererweite- 
rungen von dk’tronics unter CP/M 


Krönks sax mimony 
Be Free 


Bild 1. Die dk’ 
tronics-Silicon- 
Disc besteht in 
der 256-KByte- 
Version aus zwei 
Modulen; dem Be- 
triebssystem 

und dem Speicher, 
während die 
Arbeitsspeicher- 
Erweiterung in 
einem Gehäuse 


Platz findet. 

Stecker für Klemme für 5-Volt- 
Z80-Sockel Spannungsversorgung 

Stecker für 


Gate-Array-Sockel 


Sockel für 
Gate-Array 


Sockel für Z80 


andere Vorzüge. Sie machen nämlich 
auf den kleinen CPC-Modellen 464 
und 664 auch CP/M Plus verfügbar - 
vorausgesetzt, man hat einen CPC 
6128 als Zweitcomputer, denn das 
Kopieren der CP/M-Plus-Systemdis- 
kette des Freundes ist selbstverständ- 
lich illegal. Hat man aber diese Klippe 
umschifft, steht der Freude über den 
neuen Bedienungskomfort dieses Be- 
triebssystems nichts mehr im Weg. 


In der Handhabun 
recht unterschiedlic 


Ein sehr wichtiges Vergleichskrite- 
rium ist die Bedienungsfreundlichkeit. 
Die Entwickler bei dk’tronics sind 
davon ausgegangen, daß der durch- 
schnittliche Anwender nur ungern sei- 
nen heißgeliebten Computer ausein- 
anderschraubt. Die Erweiterungen 
stecken deshalb in eigenen Gehäusen 
(Bild 1), die ihren Platz am Expansion- 
Port des CPC finden. In Fällen 
mangelnder Software-Kompatibilität 
braucht man sie nur abzuziehen und 
hat im Nu einen ganz normalen CPC. 
Am CPC 464 können Probleme auftre- 
ten, für die jedoch die Amstrad- 
Entwickler die Verantwortung tragen, 
nicht etwa dk’tronics. Die Rede ist vom 
berüchtigten »CAT-Syndrom«. Für 
unsere Leser, die es noch nicht ken- 
nen: Bei Verwendung eines externen 
Diskettenlaufwerks wird die Einschalt- 
meldung nicht korrekt ausgegeben 
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Top-Listings dieser Ausgabe: 


ANWENDUNGEN Shares Verwaltet Ihren privaten Aktienbestand und gibt Ihnen detail- 
lierte Auskunft über die Kursentwicklung. Multi-RAM-Disk Ein Datenverwaltungsprogramm 
exklusiv für Benutzer einer Vortex-Speichererweiterung. Nutzt den zusätzlichen Speicher- 
platz optimal. Boxenkit Viele bauen sich heute ihre Lautsprecherboxen selbst. Die zeitauf- 
wendigen und komplizierten Berechnungen für Frequenzweichen, Gehäusevolumen etc. 
übernimmt jetzt Ihr CPC. 

SPIELE Stone-Runner Ein Kletter- und Geschicklichkeitsspiel der Extraklasse. Zu den 
neun integrierten Levels entwerfen Sie mit Hilfe des ebenfalls vorhandenen Editors beliebig 
viele eigene. Eine Highscore-Tabelle speichert Ihre Erfolge dauerhaft. Spacetrap Dieses 
Spiel entsteht im Laufe unseres Kurses zur stilistisch besseren erregt tree. 
Trotzdem oder gerade deswegen ist esein vollwertiges, schnelles Action- und Strategiespiel, 
das auch durch seine optische Gestaltung anspricht. 

UTILITIES Super-Utility Der erste Teil enthält einen komfortablen Disketten-Datei-Editor 
für leichte Eingriffe in fertige (auch professionelle) Programme. 

GRAFIK Apfelmännchen Die faszinierenden Grafiken erzeugt ein relativ kurzes Pro- 
gramm in Hisoft-Pascal. Damit Sie die Effekte auch ohne den Hisoft-Compiler nutzen kön- 
nen, enthält die Diskette neben dem Pascal-Quellisting auch den compilierten Maschinen- 
code, der selbständig auf jedem CPC lauffähig ist. 

Und natürlich alle anderen Programme aus dieser Ausgabe. 


1 Diskette für Schneider-Computer * 
Bestell-Nr. 25718 (sFr 29,50/6S 349,-*) DM 34,90 


Weitere Angebote zum Thema 


Schneider-Computer 


Happy-Computer, Ausgabe 3/87 


Happy-Painter: Super-Malprogramm mit vorbildlicher Bedienerführung und fantasti- 
schen Fähigkeiten für alle CPCs (Listing des Monats 1/87). Disccopy: Kopiert nahezu alle 
3-Zoll-Disketten. Selbst »überlange« Spuren mit zehn Sektoren oder illegale Sektornum- 
mern stellen kein Problem dar. Copyit: Auch Besitzern eines Kassettenrecorders als Spei- 
chermedium steht mit Copyit ein leistungsfähiges Backup-Programm zur Verfügung. 
Discservice: Völlig neue und überaus praktische Funktionen. Bruch: Findet und zeigt 
sämtliche REMarks in Basic-Listings auf Bildschirm oder Drucker. 

Und alle weiteren Programme aus den Happy-Computer-Ausgaben 1, 2 und 3/87 für die 
Schneider CPCs. 


Diskette für Schneider-Computer 
Bestell-Nr. 21703 
DM 29,90* sFr24,90/öS 299,-* 


Happy-Computer, Ausgabe 12/86 


Goldrain. Wertet Ihre Spielkarten des Bild-Goldregen-Spiels aus. Screen-Compressor. 
Speichert Bildschirminhalte platzsparend und mit erheblichem Geschwindigkeitsge- 
winn. Sie haben dabei die Wahl zwischen ganzen Bildschirmen, Ausschnitten und Win- 
dows. Kursiv. Ideal für Textverarbeitung: Verwenden Sie auf dem Bildschirm denselben 
kursiven Zeichensatz wie auf dem Drucker. Super-CLS. Neuer RSX-Befehl zur effektvol- 
len Bildschirmlöschung. Newgosub. Ein Patch des GOSUB-Befehls erlaubt strukturierte 
Basic-Programmierung mit Unterprogrammnamen (nur CPC 464). DEC$-Patch. Endlich 
die perfekte Abhilfe für einen Fehler im Basic-Interpreter des CPC 464: Die Syntax des 
Befehls DEC$ ist nun korrigiert und somit kompatibel zu den beiden anderen CPC- 
Modellen (nur CPC 464). Public-Domain. Als besonderen Leckerbissen bieten wir Ihnen 
verschiedene Public-Domain-Programme. Darunter finden Sie je einen Interpreter der Kl- 
Sprachen Lisp und Prolog mit Dokumentation und Beispielen sowie einen Forth-Compiler 
und einen Makroassembler. 


1 Diskette für Schneider-Computer 
Bestell-Nr. LH 8612 SD 


DM 34,90*/sFr 29,50/65 349,-* 
* inkl.MwSt. Unverbindliche Preisempfehlung. 


2 Kassetten für Schneider-Computer 
Bestell-Nr. LH 8612 SK 


DM 34,90*/sFr 29,50/6S 349,-* 


Programme aus früheren Happy-Ausgaben 


Ausgabe Thema Bestell-Nr. DM sFr öS$ 
5/87 Schneider 2005  Dikee 2 ———2990° 2490 299,-* 
3/87 Schneider 2170638  Diskee — 2990° 2490 299,-* 
12866 Schneider LH8612SD Diskette 3490° 2950  349,-* 
LH 8612SK 2 Kassetten 3490° 2950  349,-* 
11186 Schneider LH861 SD Diskette 3490° 2950 349, 
LH86ISK Kassette 3490° 2950 349,- 
9/86 Schneider LH 8609 SD Diskette 3490° 2950 349,-" 
LH 8609 SK Kassette j 3490° 2950 349," 
7186 Schneider LH 8607 SD Diskette 3490° 2950  349,-" 
4186 Schneider _LH8604SD Diskette 2990° 24,90 299,-* 
LH 8604SK Kassette 2990° 2490 299,-* 
12/85 Schneider LH8512D Diskette 3490° 2950 349,-" 
LH 8512G Kassette 2990° 2490 299,- 


Ausgabe Thema Bestell-Nr. DM sFr ös 
16/87 Schneider 25716 Diskette 3490° 2950  349,-* 
26716 Disk.(DemoGiga-CAD) 34,90° 2950 349,- 
27716 2 Disk. im Paket 4980° 4350 498,- 
13/87 Schneider 25713 Diskette ——_ 3490° 2950 349,-* 
2er —  Kasee 3490 2950 349,-* 
10/86 Schneider LH86SI0D Diskette 2 3490° 2950 349,-" 
LH86S1I0K 2Kassetten 3490° 2950  349,-" 
786 Schneider LH 865S7SD Diskette 3490° 2950  349,-" 
LH8657SK Kassette 34,90° 2950  349,-* 
4186 Schneider LH86S4D Diskette 3490° 2950  349,-* 
LH86S4K Kassette 2990° 2490 299,-* 
186 Schneider LH86SID Diskette ————3490° 2950 349," 
LH86S1 K Kassette 2990° 2490 299,-" 
2865 Scheider LH85S2D Diskette 3490° 2950  349,-* 
LH8552V  514”-Diskette 3490° 2950  349,-* 
LH8552K Kassette 2 2990° 2490 299,- 


24,90 


Einige Tips zum Umgang mit den Leserservice-Disketten: 


Auf der Diskette zu dieser Ausgabe finden Sie ein Basic-Programm namens 
»README.BAS«. Da es am Anfang gespeichert ist, starten Sie es bitte zuerst. 
Sie erhalten dadurch Informationen über die enthaltenen Programme. Dort 
erfahren Sie zu jeder Datei, was sie bewirkt und wo der gedruckte Beitrag dazu 


in der Ausgabe zu finden ist. 

Bei früheren Ausgaben hieß dieses Inhaltsverzeichnis ebenso beziehungs- 
weise »LISTME.BAS«. Dort besteht es aus einer ASCII-Datei, die Sie mit»LOAD 
"README ’” « im normalen Locomotive-Basic laden und durch »LIST« auf den 
Bildschirm beziehungsweise mit »LIST #8« auf dem Drucker ausgeben. 


Bestellungen bitte an: Markt & Technik Verlag AG, Unternehmensbereich Buchverlag, Hans-Pinsel-Straße 2, D-8013 Haar, Telefon (089) 4613-0. Schweiz: Markt & Technik Vertriebs 
AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. Österreich: Ueberreuter Media Handels- und Verlagsgesellschaft mbH (Großhandel), Alser Straße 24, A-1091 Wien, 
Telefon (0222) 481538-0, Microcomput-ique E. Schiller, Fasangasse 24, A-1090 Wien, Telefon (0222) 785661, Bücherzentrum Meidling, Schönbrunner Straße 261, A-1120 Wien, 
Telefon (0222) 833196. Bestellungen aus anderen Ländern bitte nur schriftlich an: Markt & Technik Verlag AG, Abt. Buchvertrieb, Hans-Pinsel-Straße 2, D-8013 Haar, und gegen 


Bezahlung einer Rechnung im voraus. 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. Sie erleich- 


tern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 


‘und der Computer »hängt«, oder die 

Meldung »Press PLAY then any key:« 
erscheint. Oft ist auch das Directory 
beim Basic-Befehl CAT bis zur 
Unkenntlichkeit zerstückelt. Meist tritt 
das CAT-Syndrom bei Computern auf, 
an denen mehrere Hardware-Erweite- 
rungen betrieben werden. Ursache für 
dieses ebenso: störende wie auch 
unnötige Phänomen ist der ungepuf- 
ferte Bus, über den der gesamte 
Datentransfer zwischen Computer 
und Erweiterungen am Expansion- 
Port läuft. Abhilfe bringt der Austausch 
des Amsdos-ROM (der Sitz des Dis- 
kettenbetriebssystems im Controller) 
gegen ein EPROM vom Typ 27128. Die 
geringere Stromaufnahme dieses 
Bauteils sorgt für die nötige Ent- 
lastung und somit für einen fehler- 
freien Betrieb. Voraussetzung für die- 
sen Eingriff ist natürlich, daß man den 
Inhalt des ROMs mit Hilfe eines 
EPROM-Brenners in das EPROM 
kopiert. 

Während die dk’tronics-Erweiterun- 
gen einfach anzustecken sind, kommt 
die Platine (siehe Bild 2) der Vortex- 
Speichererweiterung ins Computer- 
gehäuse. Man braucht für den Einbau 
ein wenig handwerkliches Geschick, 
was sicher nicht jedermanns Sache 
ist. Man muß sich immer der Konse- 
quenz bewußt sein, daß die Garantie 
für den Computer erlischt. Auch ent- 
stehen im Gebrauch einiger Pro- 
gramme Probleme, die sich mit einem 
eigens zu diesem Zweck vorhande- 
nen Basic-Befehl leider nicht in jedem 
Fall umgehen lassen. Wenn ein Pro- 
gramm wegen der eingebauten Spei- 
chererweiterung und trotz der Verwen- 
dung des Befehls DISBOS (desakti- 
viert das Betriebssystem der Erweite- 
rung) nicht richtig arbeitet, ist man in 
der Regel machtlos. 


Die Praxis zeigt, 
was Sache ist 


Wie bewähren sich nun Speicher- 
erweiterungen im täglichen Einsatz? 
Das Arbeiten mit dem großen CP/M 
gestaltet sich sehr angenehm und 
macht einige Programme überhaupt 
erst zugänglich. Vor allem beim Voll- 
ausbau ist die 444 KByte große RAM- 
Disk bald nicht mehr wegzudenken. 
Man gewöhnt sich schnell an die 
immensen Vorteile im Gebrauch und 
ärgert sich bei fehlender RAM-Disk 
über den »langsamen« Diskettenzu- 
griff. Leider steht die Vortex-Speicher- 
erweiterung nur den Besitzern eines 
CPC 464 oder 664 zur Wahl. Für den 
CPC 6128 gibt es bis heute nur die 


dk’tronics-Erweiterungen. Allerdings 
arbeitet der CPC 6128 damit geradezu 
ideal zusammen. Die Speichererwei- 
terung bringt in Verbindung mit der 
Silicon Disc eine bis zu 444 KByte 
große RAM-Disk unter CP/M 2.2 und 
Plus. Aber bereits mit der 256 KByte 
großen Silicon Disc allein läßt sich her- 
vorragend arbeiten. 

Die 64-KByte-Erweiterung für die 
beiden kleineren Modelle CPC 464 
und 664 macht am CPC 6128 keinen 
Sinn, denn seine zweite 64-KByte- 
RAM-Bank leistet denselben Dienst. 

Es ist wirklich nicht einfach, allen 
Details der beiden Erweiterungen 
gerecht zu werden. Eine grobe Tren- 
nung bietet sich aber an. Besitzern 
eines CPC 6128 ist zweifelsohne mit 
der dk’tronics-Silicon-Disc und even- 
tuell einer zusätzlichen 256-KByte- 
Erweiterung hervorragend gedient. 
Diese Erweiterungen sind ohnehin die 
einzig verwendbaren für diesen Com- 


größere TPA unter CP/M 2.2 


CPI/M Plus für 
CPC 464 und 664 


RSX-Befehlserweiterung 


größerer Basic-Variablen- 
speicher 


größerer Basic-Programm- 
speicher 


residenter Monitor 


dk’tronics 


Speichererweiterung 

64 KByte (464/664) 
256 KByte (464/664) 
256 KByte 


Silicon Disc 


64 KByte (6128) 
256 KByte (464/664) 
256 KByte (6128) 


Ausstattung Vortex SP 256 
SP 512 
(rosa | __ |siserene | Wzseken 


Drucker-Spooler bis 512 KByte ee 
RAM-Disk unter CP/M bis 444 KByte 
CP/M und Basic 
Bisauenzen Ber 


(riierDainot | | | 
66 (resident) 12 (Software) 3 (resident) 


(nur CPC 464/664) 398 Mark 


Zu den CPC 6128-Versionen kommt noch ein Adapter zu 29 Mark hinzu 


putertyp, da Vortex noch kein Pendant 
anbietet. 

Deutschen Besitzern eines CPC 
464 oder 664 dürfte die Vortex-Erwei- 
terung durch die große Verbreitung 
und die fertige Anpassung vieler 
Standard-Programme von größerem 
Reiz sein, wenn auch die Installations- 
prozeduren durch Umbauarbeiten er- 
heblich komplizierter sind als bei 
dk’tronics. Geht es nur um das grö- 
Bere CP/M, ist die 64-KByte-Erweite- 
rung von dk’tronics für 129 Mark ein 
preisgünstiger Griff. Alle anderen 
Kombinationen liegen preislich über 
dem Vortex-Komplettpreis. Wer sei- 
nen Computer optimal ausnutzen 
möchte, sollte diese Tatsachen ge- 
geneinander abwägen. 

(Helmut Jungkunz/gn/ja) 


SP256/512: Vortex Computersysteme, Falterstraße 51-53, 7101 
Flein 
dk'tronics: Michael Naujoks, Rottmannstraße 40, 6900 Heidel- 


berg 
dk’tronics 
Silicon Disc 


(sanss Kane) 


dk’tronics 
Speicher- 
erweiterung 


298 Mark 


129 Mark 
298 Mark 
298 Mark 


98 Mark 
298 Mark 
298 Mark 
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Trickreiches Trio: 
Kopiermodule im Vergleich 


er schon einmal die leid- 
volle Erfahrung machte, 
daß ein für teures Geld 


erworbenes Programm plötzlich auf 
dem Datenträger nicht mehr lesbar 
war, weiß Sicherheitskopien sehr zu 
schätzen. Um soärgerlicher istes, daß 
viele Softwarehersteller immer noch 
ihre Programme mit allerlei Kopier- 
schutzmechanismen versehen. Eben- 
soviel praktischen Nutzen bringt die 
Übertragung von langsam ladender 
Kassettensoftware auf das schnellere 
Speichermedium Diskette. 

Ein Kopiermodul, so die Verspre- 
chungen der Hersteller, räumt mit die- 
sen Mißständen endgültig auf. Ein ein- 
facher Knopfdruck soll den Benutzer 
in die glückliche Lage versetzen, alles 
zu kopieren, was in den Arbeitsspei- 
cher seines Computers kommt. Aus- 
geschlossen davon sind allerdings bei 
allen Modulen Programme, die Grafi- 
ken oder sonstige Daten oder Pro- 
grammteile nachladen. 


Imager - 
der » 


mmvater« 


In der Tat ist der Imager das älteste 
und mit zirka 180 Mark auch eines der 
teuersten der getesteten Module. Sein 
Design paßt sich - am Expansionsport 
angeschlossen - sowohl farblich als 
auch vom Volumen her tadellos an das 
des CPC an. An seiner Oberseite fällt 
jedoch ein kleiner roter Knopf ins 
Auge. Übrigens gibt es, und das trifft 
auf jedes der getesteten Module zu, 
für den mit anderen Steckanschlüs- 
sen (Amphenolbuchsen) ausgestatte- 
ten CPC 6128 einen Adapter für zwi- 
schen knapp 30 und 40 Mark. 

Einmal am CPC (mit oder ohne 
Laufwerk) angeschlossen, deutet 
zunächst gar nichts auf die Anwesen- 
heit des Moduls hin. 

Erst nachdem sämtliche Ladepro- 
zeduren vollzogen sind und das zu 
kopierende Programm komplett im 
Arbeitsspeicher steht, folgt der Druck 
auf das rote Knöpfchen. Nun grüßt die 
zweizeilige Einschaltmeldung des 
Imagers. Darunter hat der Bildschirm- 
inhalt des öfteren jedoch vorüberge- 
hend recht heftig zu leiden. Ein 
anschließender Druck auf die ENTER- 


Dem Herstellen von Sicher- 
heitskopien bereiten ausgeklü- 
gelte Kopierschutzverfahren oft 


ein jähes Ende. Um diesem 


Umstand Abhilfe zu schaffen, 
gibt es neben Kopierprogram- 
men auch Hardware-Lösungen. 
Wir stellen Ihnen erstmals in 
einem Vergleichstest alle drei 
verfügbaren Kopiermodule vor. 


Taste bringt die Hauptmenüleiste auf 
den Bildschirm. 

Das Menü bietet eine ganze Reihe 
Funktionen. Als wohl wichtigste 
betrachten wir zunächst die »Save«- 
Funktion. Nach Eingabe des Anfangs- 
buchstaben <S> wählt man 
zunächst den gewünschten Datenträ- 
ger. Der Imager bietet die Auswahl zwi- 
schen den Diskettenlaufwerken A und 
B (sofern vorhanden) sowie dem Kas- 
settenrecorder mit variabler Übertra- 
gungsrate bis 3000 Baud. 

Nach anschließender Eingabe des 
Dateinamens startet der Speichervor- 
gang: Der Bildschirm erlischt und es 
beginnt das äußerst langwierige Spei- 
chern, das bis zu zwei Minuten (Dis- 
kette) dauert. 

Mit der erneuten Anzeige des 
Hauptmenüs meldet sich der Compu- 
ter danach wieder zur Stelle. Ein 
Druck auf die Taste <C> zeigt den 
Disketteninhalt an und offenbart, daß 
der Imager das Programm als bis zu 


Alle getesteten 
Kopiermodule auf 
einen Blick: Rechts 
oben erkennen Sie 
den Mirage Imager, 
darunter das Multi- 
face Two und auf 
der linken Seite 
den Disc Wizard 


60 KByte lange Datei ablegt. Das liegt 
an der Arbeitsweise des Moduls. Es 
durchforstet den gesamten Arbeits- 
speicher und berücksichtigt dabei 
auch die zweite 64-KByte-RAM-Bank 
des CPC 6128. 

Eine vom Imager gespeicherte 
Datei läßt sich auch nur mitdem Modul 
wieder laden; die Kopien sind ohne 
den Imager nicht lauffähig. Damit ist 
sichergestellt, daß der Benutzer keine 
Raubkopien mit dem Imager anferti- 
gen kann. 

Um eine gespeicherte Programm- 
kopie zu laden, drückt man wiederum 
den roten Knopf. Auch die weitere Vor- 
gehensweise ähnelt dem Speichern, 
nur daß man <L> für »Load« drückt. 
Anschließend startet das kopierte Pro- 
gramm mit <R> genau an der Stelle, 
an der es zum Speichern unterbro- 
chen wurde. 


Der Imager erlaubt 


diverse Eingriffe 


Nebenbei bietet der Imager noch 
die Wahl, die Bildschirmfarben zu 
wechseln, was besonders Besitzern 
eines Grünmonitors zustatten kommt. 
Auch das Format der Bildschirmdar- 
stellung sowie - falls nötig - die Basis- 
adressen des Bildschirmspeichers 
lassen sich beeinflussen. Sogar eine 
Abschaltung der externen ROMs ist 
vorgesehen. Das erweist sich mitunter 
vor allem bei sehr langen Kassetten- 
programmen als nötig. 
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Die Dokumentation ist leider wie so 
oft vollständig in Englisch gehalten, 
läßt aber die wesentlichen Funktions- 
prinzipien klar erkennen. 


Äußerlich gibt sich das Multiface 
Two dem Mirage Imager gegenüber 
recht verschieden. Während der Ima- 
ger sich förmlich an das Gehäuse des 
CPC schmiegt, ist das Multiface über 
ein Flachbandkabel mit dem Erweite- 
rungsport verbunden und findet so 
hinter dem Computer liegend auf dem 
Tisch Platz. Im praktischen Einsatz 
jedoch offenbart sich eine nähere Ver- 
wandtschaft, als man zunächst ver- 
mutet. Ähnlich dem Imager zeigt auch 
das Multiface einen roten Knopf an 
seiner Oberseite. Daneben sitzt 
jedoch noch ein zusätzlicher grüner 
Resetknopf, den man am CPC oft ver- 
mißt. 

Das Modul-eigene 8-KByte-RAM 
läßt sich vom Anwender für eigene 
Maschinencode-Routinen nutzen. 
Darüber weiß das zweiseitige, eng- 
lischsprachige »Handbuch« jedoch 
nur wenig zu berichten. 

Ist das Programm vollständig in den 
Speicher geladen und das Modul 
angeschlossen, aktiviert man es wie 
den Imager per Knopfdruck. Der Bild- 
schirm gerät auch hier ein wenig in 
Unordnung, wenn am unteren Bild- 
rand das Hauptmenü erscheint. Dort 
stehen vier Menüpunkte bereit. Wie 
beim Imager dient <S> dem Spei- 
chern. Auch die Auswahl der Spei- 
chermedien ist dem Konkurrenten 
ähnlich: Diskette oder Band mit bis zu 
3000 Baud. Die Multiface-Kopien sind 
ohne das Modul ebenfalls nicht lauffä- 
hig. 

Der Speichervorgang geht hier aber 
erheblich flotter vonstatten; das Multi- 
face arbeitet bis zu dreimal schneller. 
Es legt den Speicherinhalt in mehre- 
ren Dateien ab. Das Programm startet, 
wenn man die erste dieser Dateien mit 
»RUN ”NAME”« lädt. Genau wie 
beim Imager startet der Lauf des 
kopierten Programms durch <R> 
(für »RETURN«) wieder an der Stelle, 
an der er gestoppt wurde. 

Zusätzlich spendierten die Entwick- 
ler dem Multiface einen einfachen 
Maschinencode-Monitor. So lassen 
sich einzelne Register lesen undbelie- 
bige Adressen in den Programmen 
ändern. Spielefreaks können sich 
damit beispielsweise ihre individuelle 
Spieleversion »zurechtbasteln« oder 
Spielfiguren zum unendlichen Leben 
verdammen. Für zirka 180 Mark ist der 
Imager eines der teuersten Module. 


Disc Wizard unterscheidet sich in 
vielerlei Hinsicht von seinen beiden 
Artgenossen. So ist es das einzige 
Modul, zu dessen Lieferumfang eine 
Diskette gehört. 

Das äußere Erscheinungsbild unse- 
res Dritten im Bunde ist ebenfalls 
ungewöhnlich. Am Expansions-Port 
angeschlossen, ragt das Modul etwa 
10 cm hoch über die Tastatur. An der 
Vorderseite fanden neben dem obliga- 
torischen roten Knöpfchen zwei Kipp- 
schalter Platz. Die Schalterstellungen 
sind mit »Load« und »Save«, bezie- 
hungsweise »1« und »2« gekennzeich- 
net. Damit sind wir beim zweiten 
wesentlichen Unterscheidungsmerk- 
mal des Wizard zu seinen Konkurren- 
ten. Pro Diskettenseite bietet es nur 
Platz für zwei Programm-Kopien. Disc 
Wizard unterteilt nämlich den Spei- 
cherplatz einer Diskette im Data- 
Format in zwei getrennte Bereiche für 
je ein Programm. Leider darf man auf 
diesen präparierten Diskettenseiten 
keine zusätzlichen normalen Dateien 
speichern. Diesem eigensinnigen Ver- 
halten steht jedoch eine wirklich kin- 
derleichte Handhabung des Wizard 
gegenüber. Zum Kopieren des Pro- 
gramms im Speicher ist nur der linke 
Kippschalter auf »Save« und der 
rechte auf »1« oder »2« (zur Wahl eben 
jener Bereiche) zu bewegen und 
anschließend der Knopf zu drücken. 


Utilities erleichtern 


die Arbeit 


Ladevorgänge gestalten sich 
genauso unkompliziert. Diesmal steht 
der erste Schalter beim Knopfdruck 
auf »Load«. Damit entfällt bei diesen 
Prozeduren jede Eingabe via Tastatur. 
Das Modul benennt die Dateien auto- 
matisch mit den Namen »DRAY- 
SOFT. ONE« und »DRAYSOFT.TWO«. 
Damit die Kopien verschiedener Pro- 
gramme auf den ersten Blick zu unter- 
scheiden sind, findet sich auf der mit- 
gelieferten Diskette eine Utility zum 
Umbenennen der Dateien. Aber auch 
andere Dienstprogramme sind darauf 
enthalten. So lassen sich sogenannte 
»Screenshots«, also Bildschirminhalte 
(Titelbilder etc.) im normalen Dateifor- 
materzeugen, aber auch Farben, Bild- 
schirmmodi und Startadressen 
ändern. Die Hilfsprogramme erlauben 
damit ähnliche Eingriffe wie die ande- 
ren Module es aus ihren Menüs her- 
aus tun. 

Beim Studium des Handbuchs fin- 
det man mehr durch Zufall den Hin- 
weis auf eine ganz bedeutsame Ei- 
genart des Wizard. Einige Kopien las- 
sen sich nämlich mit einer der Utilities 
so umwandeln, daß sie auch ohne 


Modul lauffähig sind. Eine Tatsache, 
die Softwarehersteller sicherlich nicht 
gerade zum Jubeln veranlassen wird. 
Der Disc Wizard kostet inklusive der 
Diskette etwa 150 Mark. 

Ihre Aufgabe erfüllen alle drei Test- 
kandidaten zur vollen Zufriedenheit. 
Und doch lassen sich einige deutliche 
Unterschiede in der Handhabung aus- 
machen. So fallen beim Imager die 
unnötig langen Speicher- und Lade- 
zeiten negativ ins Gewicht. Verglichen 
mit ihm sind das Multiface Two und der 
Disc Wizard wahre »Turbo«-Module. 
Als besonders positiv ist jedoch die 
Konstruktion seines Gehäuses zu wer- 
ten, das sich nahtlos an die Rückseite 
des CPC anfügt. Damit empfiehlt sich 
der Mirage Imager besonders Benut- 
zern mit großer Geduld und kleinem 
Schreibtisch, zumal man mit dem Mul- 
tiface oder dem Wizard vergleichbare 
Leistung zum gleichen oder gar niedri- 
geren Preis erhält. 


Dreigestirn 
im Vergleich 


Der leider nur mit Diskette erhältli- 
che Disc Wizard beispielsweise 
erzeugt, wie schon erwähnt, Pro- 
grammkopien, von denen nach Aufbe- 
reitung 70 Prozent auch ohne Modul 
lauffähig sind. Damit wartet der 
Wizard mit einem Ausstattungsmerk- 
mal auf, das keine der beiden anderen 
Erweiterungen zu bieten hat. Einzigar- 
tig ist auch sein Bedienungskomfort. 
Zu seinen unangenehmeren Eigen- 
schaften zählt sein spezielles Auf- 
zeichnungsformat, das nur vier 
Kopien pro Diskette zuläßt. 

Ganz anders präsentiertsich dadas 
Multiface Two, das sowohl schnell 
arbeitet, als auch keine eigens vorbe- 
reiteten Disketten verlangt. Sein ein- 
gebauter Resetknopf und der für Ma- 
schinensprache-Programmierer in- 
teressante Speichermonitor machen 
ihn zur Iohnenswerten Anschaffung. 

Eine Warnung sei jedoch an dieser 
Stelle ausgesprochen: Jedes der drei 
Module reagiert empfindlich auf die 
Anwesenheit fast jedweder Fremd- 
peripherie am CPC. Unter anderem 
läßt sich nämlich keines auf eine fried- 
liche Koexistenz mit Vortex-Laufwer- 
ken ein. Wir können Ihnen daher nur 
raten, vor dem Kauf eines der Module 
die Funktion mit Ihrer Systemkonfigu- 
ration ausgiebig zu testen. 

(Ralf Hinnenbergi/kl/ja) 


Mirage Imager: Mirage Microcomputers Deutschland, Post- 
fach 160155, 5400 Koblenz 16 

Multiface Two: Romantic Robot, Ben-Gurion-Ring 80, 6000 
Frankfurt am Main 56 

Disc Wizard: Waldeck Software, Tulpenstraße 30, 2870 Del- 
menhorst 
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Wieviel Com 
können Sie für 7499 


nputer 


aufen? 


ca. soviel von Vielen ||soviel von Schneider | 


Ab DM 1.499,— erhalten Sie einen 
IBM**-kompatiblen Komplett-Computer: 
Monitor, Zentraleinheit, 51/4” Disketten- 
laufwerk, Tastatur und... 

% 16 Bit-Prozessor 8086 mit 8 MHz Taktfrequenz 
x 512 Kilobyte Hauptspeicher 

x Betriebssysteme MS DOS 3.2 und DOS PLUS 
x grafische Benutzeroberfläche GEM 

%* Microsoft-kompatible Maus 

x eingebaute Schnittstellen für 


Peripherie und Daten- 
fernübertragung 
% Auflösung 720 x 348 


Bildpunkte monochrom (Option) 


Vielseitig, bedienungsfreundlich 
und sagenhaft preiswert. 

Der neue Schneider »PC 1512«. 

Mit Industriestandard, GEM und 
Maus bietet er komplett, was bisher 
nur einzeln zu haben war: 

Die IBM-Kompatibilität für den Zugriff 
zur größten Softwarebibliothek der 
Welt. Die Schnelligkeit für professio- 


nelle Anwendung. Die GEM-Benutzer- 


oberfläche, die auch den Anfänger 
ohne großes Computerwissen im 
Handumdrehen zum Computerprofi 
macht. 


Die Zukunftssicherheit durch nahezu 
unbegrenzte Ausbau- und Anschluß- 
möglichkeiten (Modems, Netzwerke, 
vielfältige Peripherie). 

Und den Preis, der für eine erfolg- 
reiche Zukunft völlig neue Perspek- 
tiven eröffnet. 


Die Produktfamilie: iiähnche 
Modell Preisempfehlung 
Schwarz-/Weiß-Monitor, 
ein Diskettenlaufwerk __ 
Schwarz-/Weiß-Monitor, 
zwei Diskettenlaufwerke 1.999,- DM 


—— 1.499,- DM 


Schwarz-/Weiß-Monitor, 

ein Diskettenlaufwerk, 

20 MB Magnetplattenlaufwerk ___ 2.999,- DM 
Farbmonitor, 

ein Diskettenlaufwerk __ 
Farbmonitor, 

zwei Diskettenlaufwerke _ 2.499,- DM 
Farbmonitor, ein Diskettenlaufwerk, 

20 MB Magnetplattenlaufwerk ___ 3.499,- DM 


_—— 1.999,- DM 


Bitte schicken Si n Kita ir Ihre komplette Information über den 
| Schneider »Pc 15 
Meine Anschrift 


Name ee = u en | 


* Unverbindliche Preisempfehlun: 
** IBM ist ein eingetragenes Warenzeichen von 
International Business Machines Corp 


@= Schneider 


weil Leistung überzeugt 


Der Happy-EPROMer: 


ein Tausendsassa 


Jetzt ist es soweit - der Happy- 
EPROMer für den CPC ist da. 
Einfach nachbauen, aufstecken 
sowie die zugehörige Software 
starten, und schon sind Sie in 
der Lage, eigene Programme in 
EPROMs zu brennen und bei- 
spielsweise das Betriebssystem 
des CPC Ihren eigenen Wün- 
schen anzupassen. 


ielMühe und Schweiß hat uns 
W:: Entwicklung des Happy- 

EPROMers gekostet, doch 
das Ergebnis kann sich sehen lassen! 
Sie erhalten mit dem Happy- 
EPROMer eine komplett softwarege- 
steuerte Schaltung, die EPROMs mit 
einer Speicherkapazität von 8 bis 32 
KByte über einen intelligenten 
Programmier-Algorithmus program- 
miert und direkt am CPC aufgesteckt 
werden kann (Bild 1). 
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Sie können sowohl die normalen 
EPROMs benutzen, die mit einer 
Spannung von 21 Volt programmiert 
werden, als auch die A-Typen, die nur 
125 Volt Programmierspannung 
benötigen. 

Der Clou der Schaltung ist, daß die 
Spannung intern mit einem Span- 
nungswandler erzeugt wird, so daß 
keine externe Spannungsquelle not- 
wendig ist. 

Selbstverständlich liefern wir Ihnen 
auch die passende Software zum 
Happy-EPROMer, denn ohne Soft- 
ware ist die schönste Schaltung wert- 
los. 

Mit dem Happy-EPROMer eröffnet 
sich für Sie ein weites Feld an Anwen- 
dungsgebieten. Von der residenten 
RSX-Befehlserweiterung im EPROM 
über die selbstgeschriebene oder 
gekaufte Software, die nach Einschal- 
ten des Gerätes sofort verfügbar ist, 
bis hin zur gepatchten Version des 
CPC-Betriebssystems ist nun alles 
machbar. 


Besonders günstig ist, daß das 
Betriebssystem des Schneider CPC 
für den Anschluß von bis zu 252 
EPROMs vorbereitet ist. So lassen 
sich die programmierten EPROMs 
beispielsweise über eine ROM-Box 
(siehe auch Testbericht in dieser Aus- 
gabe) oder über die im 7. Schneider- 
Sonderheft vorgestellte Happy-Mega- 
bitkarte anschließen und komfortabel 
in das Betriebssystem einbinden. 


Wenden wir uns nun dem konkreten 
Aufbau des Happy-EPROMers zu. 
Bild 2 zeigt seine wichtigsten Kompo- 
nenten, die aus nur vier ICs bestehen. 
Lediglich der Schaltungsteil zur 
Erzeugung der Programmierspan- 
nung und der Textool-Sockel, in den 
die EPROMSs gesteckt werden, sind 
aus Gründen der Übersichtlichkeit 
nicht eingezeichnet. 

Wenn man die EPROMer-Schal- 
tung betrachtet, fällt zuerst das IC 
8255 ins Auge. Bei diesem Baustein 
handeltes sich um ein IC mit drei 8-Bit- 


En Ah 


Ports zur parallelen Datenein- und 


-ausgabe (PIO). 
Dieser Baustein ist das Herz des 
Happy-EPROMers. Hier werden 


Daten aus dem CPC an das EPROM 
übergeben und Daten vom EPROM in 
den CPC übernommen. 

Über ein 0-Signal auf den Adreßlei- 
tungen AB bis A10 adressiert der CPC 
den 8255 (Portadresse F8XX), und 
über die beiden Adreßbits Ai und A2 
wählt er einen Port (A, B und C) oder 
das Steuerregister zur Wahl der 
Betriebsart des 8255 aus. 
__ Die Signale RD und IORQ sowie 
WR und IORQ werden jeweils über ein 
ODER-Gatter miteinander verknüpft 
und an den RD-Eingang beziehungs- 
weise WR-Eingang des 8255 gelegt. 
Diese beiden Signale geben an, ob 
Daten in den 8255 geschrieben oder 
aus dem Baustein gelesen werden. 

Der Datenaustausch zwischen CPC 
und 8255 erfolgt über den Datenbus 
(DO bis D7). Weil die Signale des 
Datenbus nicht durch einen Treiber 
(zum Beispiel 74LS245) verstärkt wer- 
den, müssen diese Leitungen so kurz 
wie möglich gehalten werden. Der 
8255 sollte folglich auf der Platine 
direkt am Stecker zum CPC sitzen. Im 
anderen Fall müssen Sie noch ein IC 
74LS245 zur Verstärkung der Daten- 
signale einfügen. 


Drei Ports im Streß 


Port A des 8255 gibt die zu schrei- 
benden Daten an das EPROM aus 
und liest bei Bedarf die Daten vom 
EPROM ein. 

Port B erzeugt die Signale zur 
Adressierung der Speicherzellen des 
EPROM. Zuerst werden die Adreßbits 
A8 bis A13 ausgegeben und in dem 
8-Bit-Register 74HC573 zwischenge- 
speichert. Sofern das EPROM gele- 
sen werden soll, wird zusätzlich das 
OE-Signal aktiviert. 

Darauf wird über Port B das untere 
Byte der EPROM-Adresse, nämlich 
die Adreßbits AO bis A7 ausgegeben 
und an den Textool-Sockel angelegt. 
(Die Zahlen in Klammern hinter den 
Signalen auf der rechten Seite des 
8255 geben jeweils die Nummer des 
angeschlossenen Pin am Textool- 
Sockel an.) 

Port C schließlich erzeugt die Steu- 
ersignale für die EPROMer-Schal- 
tung. Bit 0 aktiviert das 8-Bit-Register, 
um das obere Adreßbyte von Port B zu 
übernehmen, und Bit 1 schaltet das 
EPROM über die CE-Leitung in den 
aktiven Zustand. 

Bit2 schaltet die Programmierspan- 
nung für das EPROM ein, und Bit 6 
wählt aus, ob die Programmierspan- 


nung 21 Volt oder 12,5 Volt beträgt. 
Beide Signale sind mit einem Inverter 
aus dem IC 74LS06 gepuffert. Die 
Ausgänge der Gatter dieses IC verfü- 
gen über offene Kollektoren, so daß 
die Ausgangsspannung eines Gatters 
bei entsprechender Beschaltung bis 
zu 30 Volt betragen darf. Auf diese 
Weise lassen sich bequem die TTL- 
Signale der digitalen Elektronik (+5 
Volt und O Volt) mit den Spannungen 
zum Programmieren eines EPROM 
koppeln. 

Bit 7 von Port C erzeugt das Pro- 
grammiersignal PGM für das EPROM 
und wählt beim EPROM-Typ 27256 als 
Adreßbit A14 die untere oder obere 
Speicherhälfte aus. 

Bit 3, Bit 4 und Bit 5 von Port C wer- 
den in der Schaltung nicht verwendet 
und bleiben unbeschaltet. 

Der Schaltungsteil des Happy- 
EPROMers, der die Programmier- 
spannungen für das EPROM erzeugt, 
besteht aus dem Spannungswandler 
TL 497 von Texas Instruments und sei- 
ner Beschaltung, die aus nur wenigen 
Bauteilen besteht. 

Der TL 497 ist in der Lage, aus einer 
bestimmten Eingangsspannung Aus- 
gangsspannungen von bis zu 35 Volt 
bei einer maximalen Stromstärke von 
0,5 Ampere zu erzeugen. Mit der ange- 
gebenen Beschaltung erzeugt er aus 
den 5 Volt, die der CPC am Erweite- 
rungsanschluß zur Verfügung stellt, 
eine Spannung, die je nach Einstel- 
lung des Potentiometers R1 zwischen 
20 und 32 Volt liegt. 

Für dieses kleine Wunder benötigt 
das IC jedoch die Unterstützung durch 
eine Spule, die Sie selbst herstellen 
müssen, sofern Sie im Fachhandel 
nicht eine passende Spule mit dem Al- 
Wert von etwa 250 finden. 

Doch keine Angst, der Selbstbau 
der Spule ist völlig unproblematisch. 
Aus einem Elektronikladen besorgen 
Sie sich dazu einen Spulenbausatz, 
bestehend aus zwei Kammerhälften 
Ferritschalen, einem Spulensockel 
mit Wickelzylinder und einem Klam- 
merbügel. Empfehlenswert sind die 
Spulenbausätze von Valvo oder Sie- 
mens. Der Al-Wert des Ferritmaterials 
muß ungefähr 250 (zum Beispiel 


Bild 1. 

So läßt sich der 
Happy-EPROMer 
ohne Aufwand am 
CPC anschließen 


Siemens-Schalenkern RM 5, N28) 
betragen. 

Wie die Erfahrung zeigt, sind diese 
Werte jedoch relativ unkritisch. Den 
dem Bausatz beiliegenden Wickelzy- 
linder bewickeln Sie bitte mit 15 Win- 
dungen Kupferlackdraht, der eine 
Drahtstärke von 0,3 bis 0,4 Millimeter 
besitzen sollte und setzen darauf die 
Spule gemäß beiliegender Anleitung 
zusammen. 

Für die Qualität der Ausgangsspan- 
nung ist es hilfreich, wenn Sie die 
Beschaltung des TL 497, wie im Ver- 
drahtungsplan auf Bild 3 zu sehen, so 
nahe wie möglich am Sockel des IC 
aufbauen. Dadurch werden Rück- 
kopplungen vermieden. 

Es ist sinnvoll, den Programmier- 
spannung erzeugenden Teil der 
Schaltung zuerst aufzubauen und 
eine externe Spannungsquelle (zum 
Beispiel eine 9-Volt-Blockbatterie) 
anzuschließen. So können Sie mit 
dem Potentiometer Ri die Ausgangs- 
spannung der Schaltung auf 22 Volt 
voreinstellen. 


Der Programmier- 


auf der Spur 


Die Programmierspannung, die 
vom TL 497 erzeugt wird, liegt direkt 
an der Zenerdiode Di an, die eine 
Zenerspannung von 22 Volt aufweist, 
und bei einer Fehlfunktion des TL 497 
oder der Beschaltung (Kurzschluß im 
IC, defekter Kondensator oder ver- 
drehtes Potentiometer) dafür sorgt, 
daß Überspannungen kurzgeschlos- 
sen werden. Dadurch besteht keine 
Gefahr, daß ein EPROM durch zu 
hohe Spannungen zerstört wird. 

In dieser Richtung finden Sie im Ver- 
drahtungsplan auch die beiden Transi- 
storen T1 und T2, eine weitere Zener- 
diode D2, eine Germaniumdiode D3 
undeine Siliziumdiode D4. Diese Bau- 
teile erzeugen die beiden Program- 
mierspannungen von 21 und 12,5 Volt 
für Pin 1 des Textool-Sockels. 

Die Widerstände dienen lediglich 
zur Strombegrenzung, doch ein 
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DO (11) 
D1 (12) 
D2 (13) 
D3 (15) 
D4 (16) 
D5 (17) 
D6 (18) 
D7 (19) 


PGMIA14 (27) 


AB (25) 
Ag (24) 
A10 (21) 
A11 (23) 
A12 (2) 

A13 (26) 
DE (22) 


+5V GND 


Bild 2. Der Schaltplan zeigt die digitale Logik des EPROMers und die Anschlüsse für den Textool-Sockel 


0-Volt-Impuls an der Basis von T1 
(STROBE) schaltet die Transistor- 
strecke zwischen Emitter und Kollek- 
tor frei und damit die um ein knappes 
halbes Volt reduzierte Programmier- 
spannung über T2 oder D2 an das 
EPROM. 

Liegt STROBE dagegen auf 1, so ist 
der Transistor T1 gesperrt, und über 
die Diode D3 liegen knapp 5 Volt an 
Pin 1desEPROM, so daßessich nicht 
programmieren läßt. 

Das Signal an der Basis von T2 
(12,5/21) kann die Programmierspan- 
nung von 21 auf 12,5 Volt begrenzen, 
indem es den Transistor gesperrt hält. 
In diesem Fall muß sich die Program- 
mierspannung ihren Weg über die 
Zenerdiode D2 suchen, die den Span- 
nungswert um ungefähr 9 Volt redu- 
ziert. 

Ist T2 jedoch durchgeschaltet, so 
wird die Programmierspannung über 
die Emitter-Kollektor-Strecke des 
Transistors zum EPROM geleitet und 
verliert wiederum nur ein knappes hal- 
bes Voltan Spannung. Dadurchliegen 
ziemlich genau 21 Volt an Pin 1 des 
Textool-Sockels, sofern der Transistor 
T1 durchgeschaltet ist. 

Viele Leser werden sich fragen, 
wozu der Aufwand mit der Program- 
mierspannung notwendig ist und 
warum man nicht die Betriebsspan- 
nung von 5 Volt, die der CPC serien- 


mäßig liefert, verwenden kann. Die 
Antwort istkurz, die Begründung dafür 
etwas länger: Der interne Aufbau 
eines EPROM erfordert diese relativ 
hohen Spannungen, um eine Spei- 
cherzelle dauerhaft (für mindestens 10 
Jahre) zu programmieren. 

Ein EPROM enthält im Inneren viele 
tausend kleine MOSFET-Transisto- 
ren, die sperrend geschaltet sind, folg- 
lich den Transport von Ladungsträ- 
gern verhindern. Normale Transisto- 
ren lassen sich über eine Spannung 
an der Basis freischalten, im EPROM 
ist dies jedoch nicht möglich. 


Wie ein EPROM 
funktioniert 


Das im EPROM für den Transistor 
verwendete Material leitet den Strom 
schlecht und wird in der Elektrotech- 
nik als Isolator bezeichnet. Nur mit 
einer zur Betriebsspannung von +5 
Volt relativ hohen Spannung läßt sich 
ein von der Zenerdiode bekannter 
Lawineneffekt auslösen, durch den 
Ladungsträger über den MOSFET- 
Transistor transportiert werden. 

Nach Abschalten der Programmier- 
spannung bleiben die verschobenen 
Ladungsträger dann auf der gegen- 
überliegenden Seite des Transistors 
eingesperrt. Wenn Sie diesen pro- 


grammierten Zustand des EPROM 
rückgängig machen wollen, müssen 
Sie den umgekehrten Weg gehen, das 
heißt eine hohe Energie einbringen, 
die den Rückfluß der eingesperrten 
Ladungsträger über den Transistor 
veranlaßt. Dieser Vorgang, der dem 
Löschen einer Speicherzelle ent- 
spricht, wird nicht durch das Anlegen 
einer hohen Programmierspannung, 
sondern durch die Einwirkung von UV- 
Strahlen auf den Baustein ausgelöst. 
Die UV-Strahlen setzen einen foto- 
elektrischen Strom in Gang, der die 
Ladungsträger in ihre Ausgangsstel- 
lung zurückfließen läßt. 

Beim Löschen eines EPROMss läßt 
sich natürlich nicht eine einzelne Spei- 
cherzelle adressieren. Deshalb kann 
man mit einer UV-Lampe jeweils nur 
den kompletten Speicherinhalt eines 
EPROMS löschen. 

Damit die UV-Strahlen auch die 
MOSFET-Transistoren des EPROM 
beleuchten können, bauen die 
EPROM-Hersteller in jeden Baustein 
ein kleines Fenster aus Quarzglas ein. 
(Quarzglas deshalb, weilesim Gegen- 
satz zum normalem Fensterglas den 
UV-Anteil des Lichts nicht ausfiltert.) 
Dieses Fenster sollte bei einem pro- 
grammierten EPROM abgedeckt wer- 
den, damit der Speicherinhalt durch 
die kontinuierliche Einwirkung des 
Tageslichts nicht gelöscht wird. 
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Wenn Sie zum Aufbau des Happy- 
EPROMers schreiten, wählen Sie als 
Basis am besten eine Lochstreifenra- 
sterplatine oder eine IC-Experi- 
mentierplatine. Gehen Sie beim Ver- 
drahten der Schaltung getrost ein 
wenig chaotisch vor; durch sauber 
gezogene Kabelbäume kann es näm- 
lich zum induktiven und kapazitiven 
Übersprechen der Signalpegel kom- 
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men, so daß Fehlfunktionen auftreten 
können oder die Schaltung von vorn- 
herein nicht korrekt arbeitet. 

Der in Bild 3 dargestellte Verdrah- 
tungsplan gibt auch den im Schal- 
tungslesen ungeübten Bastlern die 
Gelegenheit, einmal »richtig loszule- 
gen«, indem sie deutlich jede Leiter- 
bahn vom Ausgangspunkt bis zum 
Endpunkt verfolgen können. 


Selbstverständlich sollten Sie, wie 
bei unserem Testmuster in Bild 4, alle 
ICs sockeln. So ersparen Sie sich bei 
einer Fehlersuche oder im Reparatur- 
fall eine Menge Arbeit. 

Nochmals an dieser Stelle der Hin- 
weis, den 8255 so nah wie möglich am 
Stecker zum Erweiterungsanschluß 
einzulöten, um Signalstörungen 
durch zu lange Übertragungswege zu 


Bild 3. So müssen Sie die Bauteile auf der Platine verdrahten 


vermeiden. Die Leitungen für die Port- 
signale des 8255 dürfen dagegen 
etwas länger ausfallen, weil diese 
Signale vom 8255 intern verstärkt wer- 
den. 

Achten Sie bitte ebenfalls darauf, 
die Programmierspannung erzeugen- 
den Bauteile dicht am IC TL 497 einzu- 
bauen, um störende Rückkopplungen 
zu vermeiden. 


Tips aus 


der Bastelküche 


Verdrahten Sie die Schaltung, 
indem Sie sich vorher eine Kopie von 
Bild 3 anfertigen und jeden gezoge- 
nen Draht im Plan farbig markieren. 
Beginnen Sie, nachdem Sie alle 
Sockel eingelötet haben, immer an Pin 
1 eines Sockels und arbeiten Sie sich 
bis zum Pin mit der höchsten Nummer 
vor. So haben Sie die Gewähr, keine 
Leitung übersehen zu haben. 

Auf die Platine unseres Testmusters 
ist ein Direktstecker für den Anschluß 
an den CPC und ein Direktstecker für 
die Verbindung zu weiteren Periphe- 
riegeräten aufgelötet. Welche Kombi- 
nation Sie wählen, bleibt selbstver- 
ständlich Ihnen überlassen. 

Wenn Sie die Schaltung aufgebaut 
haben, können Sie den Happy- 
EPROMer im ausgeschalteten _ (!) 
Zustand des Computers auf den 
Erweiterungsanschluß stecken. Beim 
Einschalten des CPC muß sich die 
gewohnte Einschaltmeldung zeigen. 
Wenn nicht, dann schalten Sie den 
Computer schleunigst aus und bege- 
ben Sie sich auf Fehlersuche. Istein IC 
mehr als handwarm geworden? Sind 
alle Verbindungen ordentlich verlötet 
(notfalls mit einem Durchgangsprüfer 
nachmessen)? Haben Sie den 
Stecker richtig herum aufgesetzt? 

Wenn Ihr Computer mit angeschlos- 
senem EPROMer einwandfrei arbei- 
tet, können Sie sich der Software 
zuwenden, die zum weiteren Überprü- 
fen der Schaltung und selbstverständ- 


lich zum Programmieren eines 
EPROM unerläßlich ist. 
Die Software für den Happy- 


EPROMer besteht einerseits aus dem 
Programm »Eprom«, das die EPROM- 
er-Schaltung verwaltet, indem es die 
verschiedenen Speicherbausteine 
programmiert, ausliest und vergleicht, 
und andererseits aus einer angepaß- 
ten Version des CPC-Monitors 
»Smon«, der in der ersten Version 
bereits im 2. Schneider-Sonderheft 
abgedruckt wurde. 

Beide Programme können sich 
gegenseitig aufrufen, so daß sie sich 
wie ein einziges Programm verhalten. 


Bei Eprom geschieht der Aufruf über 
einen eigenen Menüpunkt und beim 
Smon mit dem Befehl »J 9000«. 

Aus Platzgründen haben wir die 
Programme Eprom und Smon dies- 
mal nicht als DATA-Lader, sondern 
abtippferig für die Eingabehilfe 
»CPC« (siehe entsprechender Beitrag) 
abgedruckt (Listing 1 und Listing 2). 

Gestartet werden beide Programme 
mit der Routine »Promon« in Listing 3. 
Besitzer des CPC 464 müssen Zeile 
160 von Promon wie folgt ändern: 


160 LOAD”smon.bin”,&8000 


Wenn Sie das Modell CPC 464 oder 
CPC 664 besitzen, müssen Sie die 
Routine »Patch« aus Listing 4 starten, 
die den Maschinencode von Smon 
nachlädt und abhängig von der 
Modellversion patcht. Anschließend 
wird der geänderte Maschinencode 
wieder auf Datenträger geschrieben. 

Haben Sie die Software startbereit 
auf Diskette vorliegen, dann starten 
Sie sie nur noch mit »RUN ”Eprom« 
gefolgt von <ENTER>. 

Zur Bedienung von Eprom gibt es 
nicht viel zu sagen. Das Programm 
arbeitet mit einem intelligenten 
Programmier-Algorithmus, der ein 
16-KByte-EPROM in weniger als zwei 
Minuten komplett programmiert. 

Im Hauptmenü können Sie zwi- 
schen den verschiedenen EPROM- 
Typen wählen. Wenn Sie einen 27128 
für 21 Volt Programmierspannung ver- 
wenden, müssen Sie das Untermenü 
für den 27128, ansonsten (12,5 Volt) 
das Untermenü für den 27128A aus- 
wählen. Das gleiche gilt für die beiden 
27256-Typen. 

Hüten Sie sich davor, beim Pro- 
grammieren eines A-Typs im Menü 
den Typ ohne A auszuwählen. In die- 
sem Fallwird dasEPROM durch die zu 
hohe Programmierspannung zerstört. 
Damit Sie sich jederzeit über den 


Bild 4. 

Ein Muster des 
Happy-EPROMers, 
das sich in der 
Redaktion bereits 
viele Male 
bewährt hat 


Direktstecker 


8255 PIO 


gewählten EPROM-Typ informieren 
können, zeigt jedes Untermenü den 
aktuellen Typ in der Kopfzeile an. 
Haben Sie sich vertippt, so betätigen 
Sie die ENTER-Taste ohne Ihre Ein- 
gabe zu vervollständigen. In diesem 
Fall gelangen Sie in die Menüauswahl 
zurück. 


Zum Austesten der EPROMer- 
Schaltung überprüfen Sie zuerst, ob 
die Programmierspannungen auch 
tatsächlich 21 beziehungsweise 12,5 
Volt betragen. Dazu wählen Sie im 
Hauptmenü von Eprom den Menü- 
punkt 1 und darauf den Unterpunkt 
»Programmieren« (ebenfalls 1). Im 
Textool-Sockel darf natürlich kein 
EPROM stecken. 

Auf die Frage nach dem zu program- 
mierenden Speicherbereich geben 
Sie als Anfangsadresse 4000 (hex) 
und als Endadresse 7FFF (hex) an, 
damit Sie während des Programmie- 
rens genügend Zeit zum Messen der 
Programmierspannung haben. 

Nach Eingabe der EPROM-Adresse 
(0000) startet der Happy-EPROMer 
die Programmierung und Sie müssen 
mit einem Spannungsmeßgerät oder 
einem Oszilloskop die Spannung an 
Pin 1 des Textool-Sockels überprüfen. 
Da die Programmierspannung in Form 
von Impulsen angelegt wird, ist ein 
analoges Spannungsmeßgerät 
wegen der Trägheit der Anzeige zum 
Messen besser geeignet als ein Digi- 
talvoltmeter. Bei einem Digitalvoltme- 
ter kann man sich notfalls mit dem 
Meßbereich Wechselspannung behel- 
fen. 

Stellen Sie das Potentiometer R1 
mit einem kleinen Schraubenzieher 
so ein, daß die gemessene Spannung 
etwa 21 Volt beträgt. 

Zum Kontrollieren der Program- 
mierspannung von 12,5 Volt für die A- 
Typen wählen Sie im Hauptmenü von 


Textool-Sockel mit EPROM 


74HC573 höre 
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Eprom den Punkt 4 aus. Nun können 
Sie einerseits an Pin 1 die Program- 
mierspannung überprüfen und ande- 
rerseits an Pin 27 testen, ob das Adreß- 
signal A 14 für die Auswahl der unteren 
und oberen Speicherhälfte eines 
27256-EPROM korrekt erzeugt wird. 
Programmieren Sie das EPROM dazu 
einmal ab EPROM-Adresse 0000 und 
im anderen Fall ab EPROM-Adresse 
4000 (hex). Im ersten Fall muß A14 auf 
0 Volt und im zweiten Fall auf +5 Volt 
liegen. 

Für die Verwaltung des CPC- 
Speichers (ROM, RAM und Erweite- 
rungs-ROM) sowie für das Laden, 
Speichern und Ausführen von Pro- 
grammen ist der CPC-Monitor Smon 
zuständig. 

Für diejenigen Leser, die nicht das 
2. Schneider-Sonderheft besitzen, in 
dem bereits die Anleitung zum Smon 
abgedruckt wurde, haben wir in Bild 5 
alle Befehle in Kurzform zusammen- 
gefaßt. Die Befehle werden in der 
Regel durch Eingabe des Kennbuch- 
stabens und einer hexadezimalen 
Adresse, die vier Ziffern lang ist, akti- 
viert. 

Folgende Befehle, die insbeson- 
dere für die EPROM-Programmierung 
sehr wichtig sind, bedürfen einer aus- 
führlicheren Erklärung: 

Der Befehl 
X (start) (ende) (ziel) 
verschiebt den Speicherbereich von 
der Adresse <start> bis <ende> 
nach <ziel>. 

Der Befehl 
zZ (start) (ende) (byte) 
füllt den Speicherbereich von der 
Adresse <start> bis <ende> mit 
dem Wert <byte>. 

Der Befehl 
: (byte) 
bestimmt die Speicherkonfiguration 
des CPC. Wenn Sie für <byte> die 
Werte 00 bis FB (hex) einsetzen, wird 
das Erweiterungs-ROM mit der ent- 
sprechenden Nummer in den Spei- 
cherbereich von C000 bis FFFF (hex) 
eingeblendet. Der Befehl »: 07« schal- 
tet beispielsweise das Disketten-ROM 
ein. 

Die Werte von FC bis FF (hex) wäh- 
len die interne Speicherverteilung des 
CPC nach folgendem Muster aus: 


FC: Unteres und oberes ROM 
eingeschaltet. 

FD: Unteres ROM aus- und oberes 
ROM eingeschaltet. 

FE: Unteres ROM ein- und oberes 
ROM ausgeschaltet. 

FF: Unteres und oberes ROM 
ausgeschaltet. 


Die Speicherverteilung nach dem 
Muster FF (hex) ist die Standardkonfi- 
guration des CPC. 


Auf Wunsch schicken wir Ihnen 
gegen einen mit 1,30 Mark frankierten 
und an Sie selbst adressierten 
Rückumschlag auch gerne die aus- 
führliche Anleitung von SMON zu. 

Die oben besprochenen Befehle 
von SMON zeigen zugleich, wie man 
beispielsweise das Betriebssystem 
des CPC ausliest, um esin einer geän- 
derten Form in ein EPROM zu pro- 
grammieren. 

Mit 
: FE 
X 0000 3FFF 4000 
kopieren Sie den Inhalt des unteren 
ROM-Bereichs ab der Adresse 4000 
(hex) in den Arbeitsspeicher. Nun kön- 
nen Sie die gewünschten Änderungen 
vornehmen und darauf mit 
J 9000 
4 
1 
4000 7FFF 0000 
die gepatchte Version in die untere 
Hälfte eines 27256A (kein A-Typ: Menü- 
punkt 5 anwählen!) programmieren. 


Bezeichnung Wert/Typ 


3 IC-Sockel 

1 IC-Sockel 

1 1C-Sockel 
Textool-Sockel 
Lochstreifenrasterplatine 
oder IC-Experimentier- 
paltine 


14polig 
20polig 
40polig 
28polig 


Potentiometer 
Widerstand 
Widerstand 
Widerstand 
. Widerstand 
Widerstand 
Widerstand 
Widerstand 
Widerstand 
Widerstand 


Elektrolytkondensator 
Keramikkondensator 
Elektrolytkondensator 


Kondensator 
Elektrolytkondensator 
Keramikkondensator 


Schalenkernspule 250 Al 


Zenerdiode ZPD 22 Volt 
Zenerdiode ZPD 9,1 Volt 
Germaniumdiode BB 119 
Siliziumdiode 1N 4148 


BC 307 oder 
BC 558 
BC 307 oder 
BC 558 


8255 PIO 
TL 497 
741506 


PNP-Transistor 


PNP-Transistor 


Parallelportbaustein 
Spannungswandler 
Sechs Inverter mit 
offenem Kollektor 
8-Bit-Register 

Vier ODER-Gatter 


74H0573 
74LS32 


Tabelle. Diese Bauteile benötigen Sie 
zum Bau des Happy-EPROMers 


Entsprechend lesen Sie mit 
:FD 
X C000 FFFF 4000 
den Inhalt des oberen ROM-Bereichs 
in den Arbeitsspeicher und program- 
mieren ihn nach einer eventuellen 
Anderung durch 
J 9000 
4 
1 
4000 7FFF 4000 


in das EPROM. 

Sie sollten sich gleich angewöhnen, 
nur den CPC-Speicherbereich von 
4000 bis 7FFF (hex) für die Daten des 
EPROM zu verwenden, weil ab 
Adresse 8000 (hex) der Maschinen- 
code von Smon folgt und sich vor der 
Adresse 4000 (hex) residente Basic- 
Programme befinden könnten. Wenn 
Sie keine Basic-Programme benöti- 
gen, dürfen Sie als niedrigste Adresse 
den Wert 170 (hex) verwenden. 

Selbstverständlich können Sie auch 
kleinere Datenmengen als 16 KByte 
programmieren, indem Sie vorher 
einen kleineren Arbeitsspeicherbe- 
reich (zum Beispiel 5000 bis 5400 
(hex)) angeben. 

Wie bereits ausgeführt, erlaubt der 
Happy-EPROMer auch das Patchen 
des Betriebssystems Ihres CPC. Die 
Möglichkeiten, die sich auf diesem 
Gebiet ergeben, sind vielfältig und 
nahezu unbegrenzt. 

Wie wäre es beispielsweise mit 
einer individuellen Einschaltmeldung, 
mit deutschen Fehlermeldungen oder 
einer Reset-Routine, die den Arbeits- 
speicher nicht löscht? 

Wir sind gespannt, welche Ideen 
Sie entwickeln werden. Wenn Sie der 
Meinung sind, daß Sie einen interes- 
santen Patch für das Betriebssystem 
geschrieben haben, dann schicken 
Sie ihn uns doch mit einer Beschrei- 
bung zu. Wir werden dann die besten 
Patches für unsere Leser veröffentli- 
chen (selbstverständlich gegen ein 
angemessenes Honorar). 

Um Ihnen deprimierende Mißer- 
folge beim Patchen des Betriebssy- 
stems zu ersparen, darf ein Problem 
nicht unerwähnt bleiben: Für die Neu- 
programmierung des CPC-Betriebs- 
systems lassen sich nicht alle 
EPROMs verwenden, weil die Bau- 
steine einiger Hersteller zwar außer- 
halb des Computers als Erweiterungs- 
ROMs brav ihren Dienst tun, im Com- 
puter jedoch wegen zu geringer Aus- 
gangsleistungen versagen. Dieser 
Umstand zeigte sich bei Experimen- 
ten an vielen verschiedenen CPCs. 

Die EPROMs von Mitsubishi und 
den 27256-Typ von SGS können Sie 
dagegen für einen Betriebssystem- 
Patch bedenkenlos einsetzen. 

(Peter Bündgens/ma) 
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Praxiserprobte Finanzbuchhaltung 
und Fakturierung 
für den Einsatz im Klein- und Mittelbetrieb 


»Finanzbuchhaltung«, eine praxiserprobte Sachkontenbuchhaltung mit 
Kostenstellenrechnung, ist ein menügesteuertes und bedienerfreundliches Pro- 
grammpaket. Sie können mit ihm schnell und unkompliziert ein EDV-unter- 
stütztes Informationssystem in Ihrem Betrieb installieren. 

Per Tastendruck können Sie sich jederzeit über die Finanzlage 
informieren. Das mitgelieferte ausführliche Handbuch erklärt Ihnen 
anhand zahlreicher Buchungsbeispiele und Abbildungen die einfache Bedie- 
nung des Programms. 


Hauptmenü 


Stammdaten 


Informations- Konten- 
system INFO 


Buchungs- 
INFO 


Firmenstamm 


Sachkontenstamm 


Kostenstellenstamm 


Buchungen Bilanztexte 


erfassen 


Erfassungs- 
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— Journal 
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Liste ausdrucken 
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Befehlsübersicht Supermon CPC-1002 


A 
B 
c 
D 
F 
G 
H 
J 
K 
L 
M 
[e) 
R 
S 
T 
U 
w 


ASCII-Dump 

Breakpoint setzen 

Copy (Datei kopieren) 
Disassembler 

Find (Bytefolgen suchen) 
Go (Routine ausführen) 
Header anzeigen 

Jump (Programm aufrufen) 
Kill (Breakpoint löschen) 
Load (Programm laden) 
Memory Dump 

On/Off (Kass.Motor ein/aus) 
Register anzeigen 

Save (Programm speichern) 
Text eingeben 

User Jump ausführen 

Write (Bytes schreiben) 


Bye (Monitor verlassen) 
RAM/ROM-Bank wählen 
Externes Kdo. aufrufen 
CATalog-Funktion 

Drucker ein 

40/80 Zeichen umschalten 
User Jump definieren 

User Jump anzeigen 

SPEED O wählen (Kassette) 
SPEED 1 wählen (Kassette) 
7/8-Bit-Modus umschalten 
Hexadezimal addieren 
Hexadezimal subtrahieren 
Sprungdistanz berechnen 
Speicherbereich verschieben 
Yank (Progr. verschob. laden) 
Fill (Speicherber. belegen) 


1908 
118 


120 
138 


148 
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*#%+ 


(C) 95/1987 by 


'* Tel. @2421-56567, 
h 


EEERHHHHHHHHHHHHHHHHHHER R R 


**%* 
MODE 2 


IF HIMEM>36863 THEN MEMORY %8FFF:=:LOA 


D"eprom.bin",%?7@08 
PRINT". 


SMON aktivieren 
at=INKEY$: IF a$="j"THEN GOSUB 158 EL 


EFROMMER - PROGRAMM 


Peter Buendgens 


Eschstrasse 


5168 Dueren 


werkt. 


(j/n) 


SE IF a$<>"n"THEN 138 


CALL %9B800:G60T0 110 


on 


31 


ab 18-19 


[431C13 
[96ECI 
[8530] 
[9SACI 
[3CD8] 
LCAF28] 
[D234] 
[1446] 
[FS2C] 
[9C58] 


[39E8] 
[F37@] 


[6048] 
[B1@A] 


158 PRINT"Rueckkehr mit dem Befehl >>J 9 
aBB<< ı" 

168 IF HIMEM>327587 THEN MEMORY &7FFF:LOA 
D"smon.bin",%8BaA8 

178 CALL %89808 

188 RETURN 


IBASIC [72B2] 


Ctri C 


Basic-Kaltstart 
Monitor-Kaltstart 


Esc Funktion abbrechen 
Enter Monitor-Warmstart [8920] 
[55C4] 
[3A32] 


Externe DOS-Kommandos (nur bei angeschlossenem Laufwerk) 
IA Aktuelles Laufwerk ist Laufwerk A 


IB Aktuelles Laufwerk ist Laufwerk B 
IDRIVE Aktuelles Laufwerk wählen 


Listing 3. Mit »Promon« können Sie starten 


MEMORY &7FFF=:IF FEEK(%BQBB)<>49 THEN 


} h LOAD"smon.bin" ‚2 8QQ@ L19DC1 

IDIR Directory auflisten 28 IF PEEK(6)=128 THEN RESTORE 13@ LFDF8] 

IERA Datei löschen 32 IF PEEK(6)=%7B THEN RESTORE 140 LA3B4] 

48 IF PEEK(6)=%91 THEN 128 [615C] 

Fl = De” 

IREN Datei umbenennen 5Q READ z:POKE %BiDE,z [7EB4] 
IDISC LOAD/SAVE von/auf Diskette 68 READ z:POKE %82C8,z:FOKE %8573,2:POKE 

i isk %8817,z:POKE &89B2,z LCC812] 
NDEN LOAD SEN Die ae 78 READ z:POKE %B1E2,z:POKE %89B8,2:POKE 

IDISCOUT SAVE auf Diskette LBAB1,z LFAC2]I 

ITAPE LOAD/SAVE von/auf Kassette 88 READ z:FOKE &B1ES,z:FOKE %89B9,2:POKE eo. 

LBAU2,z 

MAPE.IN LOAD von Kassette 98 READ z:POKE %8100,z [39BA] 

ITAPE.OUT SAVE auf Kassette 180 READ z:POKE %8101,z L&1@C) 

ICPM CP/M aufrufen (danach kann mit S-MON nicht mehr 15 Br "smon.bin",B,%89090,%FS5A,%8000 3 zer] 

gearbeitet werden) 150 DATA %5E,%A4,%86,%B2 ,%07 ,%B8 [BOCH] 

IUSER (Von S-MON aus nicht verwendbar) 148 DATA %&5B,%AB,%27,%B7,%1F,%Bi [21D6] 


Bild 5. Die Befehle des Monitors »Smon« im Überblick 


8020,31,80,C0,CD,08,BB,CD,4E,8F68 
8008,BB,CD,FF,BB,CD,65,BC,CD,7CD9 
8018,A7,BC,@E,88,CD,15,B9,7C,7A72 
8018,32,2B,81,3A,1D,81,3D,E6,0238 
8828,01,3C,32,FD,8@,CD,BE,BC,8184 
8828, AF,32,FC,88,3A,1E,81,47,4C6D 
8838,4F ‚AF,CD,32,BC,3A,1F,81,1377 
8038,47,4F ,3E,01,CD,32,BC,3A,3872 
8040,20,81,47,4F,CD,38,BC,11,3BBi 
8@48,2E,81,CD,2D,82,31,88,C®,2824 
8058,CD,E8,81,AF,32,FC,88,3E,47@E 
8058,3E,CD,FE,81,CD,44,82,CD,3D21 
8860,74,82,21,8A,88,4F ,23,23,1359 
8048, 7E,B7,28,F3,23,B9,28,F6,1BBA 
89878,CD,FE,81,11,7C,88,D5,7E,4884 
8078,23,66,6F,E9,11,8F,81,38,B8F6 
8880,03,11,94,81,CD,E@,81,CD,1B77 
8088,2D,82,18,C1,21,20,83,3A,39A4 
8898,5C,83,41,F@,83,4D,BE ,84,8C54 
8098,57,39,84,48,54,84,4C,9A,31@2 
8BAB,84,7C,88,83,40,36,85,53,46B1 
8aAB,F@,84,43,3E,85,59,DC,84,56F@ 
80B0,23,49,83,47,9D,85,26,39,1159 
8058,83,54,D4,85,44,FD,87,58,4&D2 
82C0,B3,85,42,F8,85,52,65,86,7A2C 
802C8,4B,A7,86,46,BB,86,2B,78,1C86 
80D8,87,2D,89,87,5E,93,87,55,5@77 
80D8,B5,87,44,B8,87,28,C8,87,7C9F 
80E9,29,C9,87,30,D4,87,31,DB,3125 
BBE8,87,5A,E5,87,@D,4D,88,83,418F 
B@OFB,00,80,4F,74,BC,2E,2F ,83,2B25 
B@F8,3F,80,88,00,00,20,00,00,2E80 
8188, 1F,B1,00,88,00,00,208,00,23C0 
8108,00,20,20,00,00,00,20,00, 2008 
8110,00,00,00,00,00,00,200,00, 2800 
8118,00,20,00,00,00,02,88,1A,8812 
8120,00,20,00,00,00,20,00,00, 2800 
8128,00,00,00,00,08,AD,28,20,0294 
8130,20,20,20,20,28,2A,2A,28,1FDC 
8138,53,55,5@0,45,52,4D,4F ,4E,31E4 


22 


8140,28,43,50,43,2D,31,30,3®,@F@C 
8148,32,20,2A,2A,@A,Q@A,0D,28,16A2 
8150,20,43,6F ,70,79,72,69,67,8895 
8158,68,74,20,28,63,29,2@,31,2C4D 
8160,39,38,35,20,62,79,20,48,14DC 
8168,61,70,70,79,20,43,6F ‚&D,25AF 
8170,70,75,74,65,72,0A,8A,8D,2E31 
8178,00,25,25,25,20,56,6F ,6C,OFSA 
8180,6B,65,72,2@0,45,76,65,72,23CB 
8188,74,73,20,25,25,25,@0,4E,2162 
8198,4F ,54,28,07,4F ,4B,80,4C,35E8 
8198,6F ,61,64,3A4,00,53,5A,2D,2135 
81AQ,48,2D,50,4E,43,20,20,41,2339 
81AB,20,20,42,43,20,20,20,44,15F4 
81B8,45,20,20,20,48,4C,20,20,2F9® 
8168,20,49,58,20,20,20,49,59,@AQB 
81C0,90,42,52,45,41,4B,20,87,1DF3 
81C8,00,20,46,69,60,65,6E,61,0419 
81D8,6D,65,20,3F ,28,0@,3A,2B,296F 
81D8,81,B7,CA,3A,BD,C3,5E,BD, 7145 
B1EQ,FS,2A,27,B7,B7,28,03,F1,7ESF 
81E8,C9,F5,3E,@A,CD,FE,81,3E,5AUC 
S81F®,2D,CD,FE,81,F1,C9,E6,FF ,278F 
81F8,FE,20,30,02,3E,2E,F5,3A,71B8 
8288 ,FC,80,B7,28,23,F1,F5,FE,49A8 
820@8,0D,28,@C,FE,8A,28,88,CB,82CB 
821@8,BF,FE,28,38,02,3E,2E,05,6771 
8218,06,20,4F,79,CD,2B,BD,38,82F& 
822@,05,18,F8,AF,32,FC,8@,C1,1@D1 
8228,F1,CD,5A,BB,C9,FS5,D5,1A,4FiC 
8230,B7,28,86,CD,FE,81,13,18,585A 
8238,F6,D1,F1,C9,F5,3E,28,CD,5A2D 
8248, FE,81,F1,C9,F5,3E,87,CD,4A63 
8248,5A,BB,F1,C9,7C,CD,51,82,1184 
8250,7D,F5,8F ,@F,aF,OF,CD,5A,0354 
8258,82,F1,E6,@F,FE,@2A,38,82,64DA 
8260,C6,07,C6,3@0,CD,FE,81,C9,7D5B 
8248,CD,8A,BB,CD,84,BB,F5,CD,5C4B 
8270,8D,BB,F1,C9,CD,68,82,FE,7CC2 
8278,61,D8,FE,7B,D8,D6,20,C9,1BAi 


Listing 4. Die Routine »Patch« paßt »Smon« an 


8288,CD,74,82,FE,FC,C8,FE,@D,6111 
8288,C8,D6,30,38,F3,FE,@A,38,5@4C 
8290 ,0B,D6,87,FE,18,30,E9,FE,3E6C 
8298,0A,3F ,30,E4,F5,CD,5A,82,062A 
82AQ,F1,C9,CD,3C,82,CD,88,82,5686 
82A8,D8,C5,07,07,07,07,4F,CD,59A7 
82B0,88,82,30,02,B1,37,C1,C9,62BF 
82B8,CD,BD,82,D@,EB,CD,A2,82,512A 
82C® ,D8,67,CD,A5,82,6F ,C9,21,662F 
82C8,A8,AC,3A,2B,81,B7,28,83,7C77 
82D@,21,8A,AC,36,88,CD,D6,81,26F9 
82D8,DU,ES,AF,@&64,FF,@4,BE,23,4277 
82E0,20,FB,E1,37,C9,3A,FC,8@,3648 
82E8,06,10,B7,C0,3A,FD,8@,@F,1ECB 
82F8,D®,86,88,C9,CD,89,BB,3F,6315 
82F8,D8,FE,@D,28,08,FE,20,28,537@ 
8380,04 ,FE,FC,2@,EF,CD,68,82,241E 
83@8,FE,FC,C8,37,C9,CD,E®,81,5E4D 
8318,CD,4C,82,CD,3C,82,CD,3C,&BSE 
8318,92,C9,7C,BA,C®,7D,BB,C9,712B 
8320 ,3E,FD,CD,68,83,AF,CD,68,38BE 
8328,83,CD,E8,81,C3,64,C8,3A,4@E2 
8330,F7,81,EE,8@,32,F7,81,37,4D79 
8338,C9,3A,FD,80,3D,20,02,3E,7CF2 
8340,02,32,FD,88,CD,@E,BC,37,1D3F 
8348,C9,3E,01,32,FC,8@,CD,2E,6C54 
8350,BD,3F ,D®,3E,@D,CD,2B,BD,4B17 
8358,E1,C3,5F,8@,CD,A2,82,D@,4494 
8340, FE,FC,38,@6,4F,CD,@F,B9,478B 
8368,37,C9,@F ,F5,DC,89,B9,F1,2037 
8370,F5,D4,86,B9,F1,8F,F5,DC,4252 
8378,03,B9,F1,D4,20,B9,37,C9,3EE3 
8388,CD,3C,82,3E,FF,32,E8,B4,7C74 
8388,CD,C7,82,D8,78,B7,C8,E5,4A69 
8390,48,06,08,3E,2C,ED,B1,E2,2534 


Listing 1. Die hexadezimalen Werte 
zu »Smon« (Eingabe mit dem Pro- 
gramm »CPC«) 


ADD 


TOM PUTER 


8398,9B,83,2B,2B,CB,FE,1E,@88,4F@C 
835AQ,DD,21,8A,81,23,BE,28,15,6C25 
83A8,23,FD,21,02,81,CD,CA,83,2CEB 
83B0,30,@B,DD,2B,DD,2B,FD,21,844F 
83B8,85,81,CD,CA,83,E1,D5,CD,313B 
83C0,D4,BC,D1,D®,7B,CD,1B,88,52FA 
83C8,37,C9,FD,36,@@,FF,FD,75,3773 
83D8,81,FD,74,02,1C,FD,E5,E3,335D 
83D8,DD,75,@@,DD,74,@1,E1,2B,7C5D 
83E8,23,FD,34,0@0,7E,B7,C8,FE,2882 
83E8,2C,20,F5,36,80,23,37,C9,B3EB 
83F@,CD,BD,82,D@,CD,E5,82,CB,50B3 
83F8,20,CB,28,C5,CD,@D,83,7E,2DB4 
8408,CD,F6,81,23,18,F9,C1,CD,4B3B 
8408,F4,82,38,EF,3F,C9,CD,BD,5@8B 
8410,82,D®,CD,ES,82,C5,CD,@D,6463 
8418,83,E5,C5,7E,CD,51,82,CD,6165 
8420,3C,82,23,1®,F6,C1,E1,CD,3E5B 
8428,3C,82,7E,CD,F6,81,23,1@,3872 
8438,F9,C1,CD,F4,82,38,DE,3F ,5F53 
8438,C9,CD,BD,92,D®,CD,E@,81,4CBS 
8448,CD,E5,82,C5,CD,2D,83,3E,44B4 
8448,08,CD,FE,81,CD,A2,82,30,2544 
8450,04,77,23,18,F7,C1,38,EB,1E87 
8458,3F ,C9,2A,08,81,CD,E®,81,2EFD 
8468,E5,DD,E1,CD,67,85,CD,2D,55AB 
8468,82,DD,7E,12,CD,E8,81,CD,7C87 
8470,51,82,CD,3C,82,DD,6E,15,15CD 
8478,DD,66,16,CD,4C,82,DD,SE ,789C 
8480, 18,DD,56,19,19,2B,CD,3C,31D2 
8488,82,CD,4C,82,DD,6E,1A,DD,7459 
8490,66, 1B,CD,3C,82,CD,4C,82,289E 
8498,37,C9,CD,A®,84,D8,18,23,3D13 
84AB,11,C9,81,CD,2D,82,CD,C7,248D 
84A8,82,D®,AF,CD,4B,BC,11,8@,&DBA 
84B8,08,CD,77,BC,38,21,22,00,3320 
84B8,81,CD,5A,84,DD,6E,15,DD, 7767 
84C8,66,16,C9,CD,E@,81,E5,CD,2773 
84C8,83,BC,E1,30,8A,DD,75,15,727B 
84D8,DD,74,16,CD,7A,BC,D8,CD,7DCD 
84D8,7D,BC,B7,C9,CD,AB,84,D®,@ECa 
84E0,CD,E8,81,11,77,81,CD,2D,48BB 
84E8,82,CD,BD,82,30,E9,18,D3,6F07 
84F0,11,C9,81,CD,2D,82,CD,C7,24@D 
84F8,82,D2,11,00,28,CD,8C,BC,75F@ 
8500,30 ,2F ,AF,CD,6B,BC,CD,E9,8422 
8588,81,CD,A5,82,3@,23,ED,47,6FD1 
8518,CD,B8,82,38,1C,B7,ED,52,5874 
8518,3F,30,16,23,EB,E5,CD,BD, 169B 
8520,82,44,4D,E1,30,0B,ED,57,5791 
8528,CD,98,BC,38,84,CD,8F ,BC,56B& 
8538,D8,CD,92,BC,B7,C9,11,8@,487E 
8538,08,CD,9B,BC,37,C9,CD,67,2C81 
8540,85,EB,11,808,88,CD,8C,BC,78B® 
8548, 30,E7,DD,2A,@8,81,DD,66,3B18 
8558,16,DD,64E,15,DD,56,19,DD,378F 
8558,5E,18,DD,46,1B,DD,4E,1A,35EA 
8560,DD,7E,12,CB,87,18,C1,C5,7AEF 
85648, E5,2A,080,81,7E,FE,28,30,7068 
8570,01,23,11,AB,AC,D5,06,08,86D8 
8578,CD,8F ,85,38,09,3E,2E,12,561E 
8588,13,064,03,CD,8F ,85,AF,12,039@ 
8588, 7B,D1,93,E1,C1,47,C9,7E,1348 
8590,B7,C8,FE,20,28,02,12,13,753F 
8598,23,18,F4,37,C9,CD,BD,82,@CF4 
85AB,D®,CD,EQ,81,11,AD,85,D5,4CB3 
85A8,E5,CD,1C,86,C9,F5,CD,35,4E13 
85B®,86,F1,C9,CD,B8,82,D®,B7 ,6C6F 
85B8,ED,52,3F,D®,44,4D,CD,BD,&AD3 
85C0,82,D®,CD,1A,83,38,08,09,69E1 
85C8,EB,89,803,ED,B8,37,C9,EB,7D15 
85D8,83,ED,B@,C9,CD,BD,82,D@,2518 
85D8,CD,ES,82,CB,2@,CB,20,48,4114 
85E9,CD,2D,83,CD,68,82,FE,FC,7938 
85E8,3F,C8,FE,@D,3F,C8,77,CD,386B 
85F@,F6,81,23,18,EE,41,18,E8,588C 
85F8,CD,BD,82,D®,7C,B5,C8,ED,54C9 
86480,5B,0D,81,7A,B3,C8,E7,32,3E24 
8608,0C,81,36,F7,22,@0D,81,3E,2FE8 
8618,C3,21,4E,86,32,30,80,22,6912 
8618,31,08,37,C9,ED,4B,11,81,1417 
8620 ,ED,5B,13,81,2A,8F,81,E5,6ABB 
8628,F1,2A,15,81,DD,2A,17,81,7E5F 
8630,FD,2A,19,81,C9,ED,43,11,7AS5B 
8638,81,ED,53,13,81,22,15,81,74BB 
8648,F5,E1,22,0F ,81,DD,22,17,415F 
8648,81 ,FD,22,19,81,C9,CD,35,7C93 
8658,86,E1,2B,CD,E9,81,11,C1,775F 
86458,81,CD,2D,82,CD,4C,82,CD,78D1 
8668,65,86,C03,7C,88,CD,E8,81,BADS 
8648, CD,E9,81,11,9D,81,CD,2D,4AAB 
8670,82,CD,E8,81,3A,@F,81,06,64B8 
8678,@8,4F ,3E,38,CB,21,CE,@8,144@ 
8688,CD,FE,81,1@8,F5,CD,3C,82,4046 
8688, 3A,18,81,CD,51,82,21,11,0523 
8690,81,06,85,5E,23,56,23,CD,448B 


8698,3C,82,EB,CD,4C,82,EB,1®,2E9E 
86AB,F2,CD,E®,81,CD,E9,81,37,5AA9 
86A8,C9,2A,@D,81,7C,B5,C8,3A,672E 
84E0,0C,81,77,21,00,88,22,8D,2AF9 
864B8,81,37,C9,CD,B8,82,D8,B7,5E6F 
86CQ,ED,52,3F,D@,23,44,4D,21,6853 
86C8,21,81,C5,CD,37,87,C1,DB,2646 
86D@,DD,21,21,81,EB,CD,E®,81,6FDD 
864D8,DD,7E,@8,B7,C8,DD,7E,®1,7FBF 
864E0,ED,B1,37,E8,ES,FD,E1,CD,57F3 
864E8,F4,82,3F,D8,DD,7E,@2,B7,5743 
84F0,28,88,DD,7E,83,FD,BE,80,@8D® 
86F8,29,E3,DD,7E,84,B7,28,08,3624 
8700,DD,7E,85,FD,BE,@1,28,D5,7Bii 
87@8,DD,7E,06,B7,28,08,DD,7E,7A14 
8718,@7,FD,BE,82,28,C7,2B,CD,29A7 
8718,4C,82,CD,3C,82,7E,CD,51,18C3 
8720,82,23,7E,CD,51,82,FD,7E,4BD4 
8728,01,CD,51,82,FD,7E,82,CD,3719 
8730,51,82,CD,E8,81,18,A6,86,1A82 
8738,04,36,FF,23,CD,3C,82,CD,15@1 
8740,88,82,30,1B,87,07,87,87,671D 
8748,E6,F0,77,CD,88,82,30,87,4BSF 
8750,B6,77,23,18,E4,37,C9,FE,4538 
8758,FC,C8,3E,@08,CD,FE,81,FE,4F2C 
8760,FC,C8,3E,58,CD,FE,81,CD,4A1F 
8768,FE,81,2B,36,88,23,18,E2,591E 
8770,CD,B8,82,D8,19,CD,7D,87,5641 
8778,CD,4C,82,37,C9,CD,30,82,6336 
8780,3£,3D,CD,FE,81,CD,3C,82,81C6 
8788,C9,CD,B8,82,EB,D®,B7,ED,4D7B 
8790,52,18,E2,CD,B8,82,D8,B7,394F 
8798,ED,52,2B,2B,7C,FE,FF,28,641E 
87AB,02,B7,CQ,AD,E6,88,C0,CD,3A&D 
87A8, 7D,87,7D,CD,51,82,37,C9,1C17 
87B9,CD,BD,82,D®,E9,CD,E8,81,51BD 
87B8,24,29,81,7C,B5,C8,37,E9,BEAF 
87C8,CD,BD,82,D8,22,29,81,37,54@1 
87C8,C9,CD,3C,82,2A,29,81,CD,585B 
87D9,4C,82,37,C09,3E,19,21,4D,@D&B 
87D8,81,18,05,3E,32,21,A7,00,059A 
87E9,CD,68,BC,37,C9,CD,B8,82,6CFE 
87E8,D8,B7,ED,52,3F ,D®,CD,A2,5ECa 
87F@,82,EB,13,4F ,71,23,1B,7A,7E18 
87F8,B3,28,F9,37,C9,CD,BD,82,4954 
8898,D®,CD,F4,82,3F ,D8,CD,@D,4EEF 
8888,93,11,08,AD,ED,53,2C,81,48ED 
8810,0E,00,CD,03,89,FD,21,A8,19C6 
8818,AC,FE,DD,20,84,CB,C1,18,72B& 
8828,F1,FE,FD,2@,84,CB,C9,18,5826 
8828,E9,FE,ED,28,68,FE,CB,CA,55C4 
8839,BA,88,CB,7F,20,38,CB,77,61Bi 
8838,20,88,11,E6,8A,CD,1B,89,199B 
8840,18,BF,11,42,84,47,CD,62,2F74 
8848,8A,FD,36,00,20,FD,23,EB,7ED9 
8859,78,0F ,@F,@F,CD,78,8A,FD,38R1 
8958,36,@0,2C,FD,23,78,CD,78,1@4A 
8848 ,84,CD,AC,89,18,9B,CB,77,681D 
8848, 20,2@,11,AD,8A,47,8F,@F,15AD 
8878,0F ,E6,87,CD,8F ,BA,EB,78,35CE 
8878,CD,78,8A,CD,AC,89,18,81,62E5 
8889,11,79,81,CD,E8,81,CD,2D,BE83 
8888,82,C9,11,5C,8C,E6,3F ,CD,73EB 
8899,1B,89,C03,01,88,CD,83,89,3@04B 
8898,D4,48,38,18,11,C3,8D,FE,7FE® 
B88AB,3C,38,0B,D6,68,38,@D,11,1FEB 
B88AB,QE,BF,FE,1C,38,86,CD,1B,3AD9 
88B9,89,C3,01,88,CD,57,84,C3,7A83 
88B8,01,88,CD,03,89,47,E6,C0,3F48 
88C0,28,17,78,11,05,8A,8F,@F,1FCi 
88C8,@F,E6,87,CD,8F,8A,78,CD,345D 
88D9,78,BA,EB,CD,AC,89,C3,81,89F3 
88D08,88,11,DD,8A,17,17,17,E6,536C 
89E0,03,3D,CD,8F ,84,78,@F,@F,1A31 
88E8,@F ‚E6,07,C6,38,FD,77,80,301A 
88F@,FD,23,FD,36,88,2C,FD,23,6BE9 
88F8,78,CD,78,8A,EB,CD,AC,89,@DSD 
8988,C3,81,88,7E,23,F5,E5,2A,748C 
8908,2C,81,FE,20,36,2E,38,@1,2AF9 
8919,77,23,22,2C,81,E1,CD,51,3387 
8918,82,F1,C9,EB,47,B7,28,08,&A&4C 
8928,23,7E,FE,60,38,FA,18,F8,153@ 
8928, 7E,FE,7B,20,85,CD,57,8A,BED8 
893@,18,7A,D6,20,86,85,FD,77,8BE9 
8938,00,FD,23,23,05,7E,FE,48,395C 
8949,38,6A,FE,20,28,F@,FD,77,1C0D 
8948,00,FD,23,10,F9,FD,2B,FD,3EB7 
8950,77,00,FD,23,23,7E,FE,68,276C 
8958,30,52,FE,5E,28,44,FE,21,172D 
8960,28,45,FE,2A,28,12,FE,2B,18FF 
8968,28, 1A,FE,40,28,E1,EB,FD,BAEF 
8970@,77,00,FD,23,CD,03,89,EB,218D 
8978,FD,77,8@,FD,23,EB,CD,@3,6FBD 
8980,89,EB,18,CB,FD,36,88,490,7688 
8988,FD,23,EB,CD,83,89,EB,E5,64FF 
8990,6F ,26,00,07,38,02,26,FF,3F4B 


8998, 19,FD,75,@8,FD,23,7C,E1,3A1D 
BIAB,18,AD,CD,11,8A,18,A8,CD,3ASD 
B9AB,2C,8A,18,A3,FD,36,00,00,3A8® 
89BQ,FD,21,AB,AC,CD,3C0,82,3A,6EA& 
89B8,27,B7,FE,10,38,F6,FD,7E,231C 
89CB,00,FD,23,B7,28,2C,FE,40,3@1C 
89C8,28,@F,FE,2A,28,1A,FE,20,0A54 
89D0,30,82,3E,25,CD,FE,81,18,199A 
89D8,E5,FD,4E,@8,FD,66,01,CD,46BF 
89E@,AC,82,FD,23,FD,23,18,D6, 1092 
89EB,FD,7E,@8,CD,51,82,FD,23,6C89 
B9FQ,18,CC,E5,2A,2C,81,01,88,226E 
89F8,AD,B7,ED,42,EB,CD,3C,82,6656 
BAQQ,3A,27,B7,FE,23,38,F6,QA,BDDE 
BABB,CD,F6,81,03,1D,2@8,F8,D1,4459 
8A10,C9,E5,26,58,2E,49,CB,41,5D@3 
8A18,20,0A,26,59,CB,49,20,04,14E8 
8A20,26,4C,2E,48,FD,75,88,FD,8781 
8428,23,7C,E1,C9,FD,36,80,28,1928 
8ASQ,FD,23,CD,11,8A,FD,77,88,69BA 
BA3B,FD,23,FE,4C,28,16,FD,36,6D94 
BA4D,00,2B,FD,23,EB,CD,93,89,13B3 
8A48,EB,FD,36,80,2A,FD,23,FD,4E1F 
8A58,77,00,70,23,3E,29,C09,06,26D® 
BASS,04,FD,36,00,3F,FD,23,18,39DA 
aAsQ,FB,C9,FS,C5,86,83,1A,FD,5C45 
8A68,77,00,13,FD,23,10,F7,FD,367B 
8A70,36,08,28,FD,23,C1,F1,C9,13E7 
8478,E6,87,DD,21,A5,8A,32,83,6097 
8A8Q,BA,DD,7E,88,FE,21,CC,2C,7B4® 
BAB8,8A,FD,77,88,FD,23,C9,B7,72E1 
8498,28,86,13,13,13,3D,20,FA, 1606 
BA9B,CD,62,8A,FD,36,80,20,FD,619D 
BAAB,23,C9,4C,44,20,42,43,44 ,2ECA 
BAAB,45,48,4C,21,41,41,44,44,38D® 
BABQ,41,44,43,53,55,42,53,42,3F94 
BABB,43,41,4E,44,58,4F ,52,4F ,3F57 
BACQ,52,20,43,50,20,52,40,43,2CF3 
BACB,52,52,43,52,40,20,52,52,32D6 
BADD,20,53,4C,41,53,52,41,53,0A51 
8ADB,4C,4C,53,52,4C0,42,49,54,39EE 
SAEB,52,45,53,53,45,54 ,6E,4F „34FB 
BAEB,SO,6C,44,20,42,43,20,40,3A84 
BAFQ,6C,44,20,28,42,43,29,20,272E2 
BAFS,41,69,4E,43,20,42,43,69,37D7 
B8B@Q,4E,43,20,42,64,45,43,20,3572 
8BQ8,42,6C,44,20,42,2C,24,72,3206 
8B10,40,43,41,65,58,20,41,46,3434 
8B18,2C,41,46,27,61,44,44,20,0E40 
8R20,5E,2C,42,43,6C0,44,20,41,2AB1 
8528,2C,28,42,43,29,64,45,43,1B61 
8B30,20,42,43,69,4E,43,20,43,8D@F 
8R38,64,45,43,20,43,6C,44,20,2A20 
8640,43,20,2A,72,52,43,41,64 ,2B9A 
8648, 4A,4E,5A,20,2B,6C,44,20,3F88 
8B50,44,45,2C,40,6C,44,20,28,38D8 
8B58,44,45,29,2C,41,69,4E,43,37D3 
8B40,20,44,45,69,4E,43,20,44,0C048 
8548, 64,45,43,20,44,6C,44,20,2A18 
8B70,44,2C,24,72,4C,41,64,52,2882 
8B78,20,2B,61,44,44,20,5E,2C, 1898 
8B688,44,45,60,44,20,41,2C,28,3AF4 
8588,44,45,29,64,45,43,20,44, 3300 
8B99,45,69,4E,43,20,45,64,45,35A9 
8698,43,20,45,6C,44,20,45,2C ,25E6 
BBAB,2A,72,52,41,6A,52,28,4E,05C6 
8BAB,5A,2C,2B,6C,44,20,5E,2C ‚2790 
BRBQ,40,6C,44,20,28,48,29,2C,31BE 
SBBB,5E,69,4E,43,20,5E,69,4E , 3854 
8PRCQ,43,20,48,64,45,43,20,48,25EC 
8BC8,4C,44,20,48,20,2A,64,41,26C1 
8BD®,41,6A4,52,28,5A,2C,2B,61,3@17 
8BD8,44,44,20,5E,2C,5E,60,44,3264 
8BEB,20,5E,2C0,28,40,29,64,45,0249 
8BE8,43,28,5E,69,4E,43,2@,4C,27A8 
BBF®,64,45,43,20,4C,6C,44,20,2458 
8BFB,4C,2C,2A,63,58,4C,6A4,52,2D46 
8C09,20,4E,43,2C,2B,6C,44,20,0960 
8C08,53,50,2C,48,6C0,44,20,28,3E18 
8C18,40,29,2C,41,69,4E,43,20,2986 
8C18,53,58,69,4E,43,20,21,64,36FE 
8C2@,45,43,20,21,60,44,20,21,3641 
8C28,2C,24,73,43,46,64,52,20,15CC 
SC3@,43,2C,2B,61,44,44,28,5E ,2ADE 
8C38,2C,53,50,6C,44,20,41,2C,@CQE 
8C4B,28,40,29,64,45,43,20,53,8457 
8C48,50,69,4E,43,20,41,64,45,3F39 
8C5@,43,20,41,6C,44,28,41,2C,256E 
8C58,2A,63,43,46,72,45,54,20,83CC 
8C40,4E,5A,78,4F ,50,28,42,43,39E7 
8C4B,4A,50,20,4E,5A,2C,40,64,236A 
8C70,590,20,48,63,41,4C,4C,20,2DE® 


Listing 1. Für Sonderheft-Stamm- 
leser ein alter Bekannter: 
Der CPC-Monitor »Smon« 


Die Schneider-Sonderhefte 


von Happy-Computer: 
eine runde Sache 


m —,—— 
SONDERHEFT 02/85: SCHNEIDER 1 
Eine Fülle wertvoller Beiträge und 
Listings für alle Schneider-Anwender. 


—————— 
SONDERHEFT 01/86: SCHNEIDER 2 
Noch mehr Tips und Tricks für Einsteiger 
und Fortgeschrittene mit interessanten 
Programm-listings. 


nn 
SONDERHEFT 04/86: SCHNEIDER 3 
Eine Erweiterung für alle Schneider- 


ER % A AN pP Py.+ Anwender, Super-Progromm-listings und 
; - großer Einsteiger-Teil. 
DC x PUJTE R 


— 
SONDERHEFT 07/86: SCHNEIDER 4 
Mit den Schwerpunkten Joyce und 
CP/M plus, Ratschlägen zur Vortex-Karte 
und vielen Tricks& Tips. 


SONDERHEFT 10/86: SCHNEIDER 5 
Derneue Schneider-PC wird vorgestellt. 
Wieder viele Hilfestellungen und Kurse. 


EEE 
SONDERHEFT 13/86: SCHNEIDER 6 
Neve Programme für CPC und Grund- 
liegendes für PC-Umsteiger. 


SONDERHEFT 16/86: SCHNEIDER 7 
6/86: SCHNEIDER 7 SE 
psy uch Super- ui CPC-Giga-CAD: SE, 
reidimensionales Zeichnen ng ” 
nr 


animierte Grafik 


DAS GROSSE HEIMCOMPUTER-MAGAZIN 


| Famtastische 
3D-Grofik mit 
CPC-Giga-CAD 


Nutzen Sie die Bestellmöglichkeit 
der Schneider-Sonderhefte 1 bis 7 mit der 
eingehefteten Zahlkarte im vorliegenden Sonderheft 
von »Happy-Computer«! 


8C078,4E,5A,2C,40,70,55,53,48,323A 
8C80,20,42,43,61,44,44,20,2A,BDAA 
8C88,72,53,54,20,3@0,72,45,54,25D& 
8099 ,20,54,72,45,54,6A,50,20,0F18 
8C98,54,2C,40,78,63,41,4C,4C,2B48 
BCAB,20,5A,2C,48,67,41,40,4C,85C8 
E8CAB,20,48,61,44,43,20,2A,72,BADE 
ECHQ,57,54,28,31,72,45,54,20,399C 
ECIB8,4E,43,70,4F,50,2@,44,45,3FFD 
SCCQ.6A,5B,20.4E,43,2C,40,6F „2347 
8008,55,54,20,2A,2C,41,63,41,3903 
8CD®,4C,4C,20,4E,47,2C0,40,70,3768 
8CD8,55,53,48,20,44,45,73,55,36C7 
SCEQ,42,20,24,72,53,54,20,272,28DA 
SCEB,72,45,54,20,43,65,59,58,72A4 
ECFQ,6A,50,20,43,2C,40,69,4E „21CC 
SCF8,20,41,7C,2A,.43,41,4C,4C,@5A8 
ED92,20,47,2C,40,78,73,42 „3,0588 
E008,20,24,72,52,54,20,33,72,13C04 
8D10,45,54,20,50,4F ‚7@,4F ‚„50,35F6 
3D18.20.5E ,4A,.50,20.50,AF ‚2C,0F32 
ee 
8D23,2C,5E,63,41,40,40,20,50,8AB® 
8030. AF .2C,40,70,55,53.48,70,22D4 
8D38,5E,61,4E,44,20,2A,72,53,3BDF 
8D49,54,20,34,72,45,54,20,58,20C8 
8D48,45,64,50,20,28,5E,29,4A,3000 
8DS0,50,20,59@,45,20,48,65,58,2EA2 
8058,20,44,45,20,48,40,63,41,0897 
8060,4C,40,20,58,45,2C,40,78,366® 
2D48,78,4F ,52,2@,24,72,53,54,27EA 
8070,20,75,72,45,54,28,58,78,15A® 
8D78,4F ,50,20,41,46,4A,50,20,3888 
EDRQ,50,2C,40,64,49,63,41,4C,2E4A 
E8D88,4C,20,50,2C,40,70,55,53,25F9 
8090,48,70,41,46,6F ,52,20,2A,221A 
5D98,72,53,54,20,36,72,45,54 ,25E6 
SDAQ,20,40,6C,44,20,53,58,2C,2A42 
8DAB,SE,6A,50,20,4D,2C,40,65,3FBD 
S8DEQ,49,63,41,40,40,28,4D,2C,32F6 
&DB8,40,78.63,.50,20,2A,72,53,367F 
8DCQ,54,20,37,69,4E,20,42,2C,2028 
8DC8,28,43,29,6F ,55,54,20,28,0480 
80DB,43,29,20.42,73,42,43,20,2856 
8DD8,48,40,2C,42,43,60,44,20,35AQ 
BDEBO,28,48,29,2C,42,43,6E,45,0065 
8DE8,97,72,45,54 ,46,67,40,20,S18E 
BDFO,30,6C,44,28,49,2C,41,69,0B93 
S8DF8,4E,20 EEE 43,29,6F ,25D1 
BEOD.SS.54.20,28.42.29,20,4%,3BA7 
BEQ8,61,44,43,20,42,43,60,44,2960 
BE1D,20.42,43,2C.28,40,29,7B.0n49 
8E18,72,45.54,49,7B,60,44,20,2490 
8E20,52,2C,41,69,4E,20,44,2C,2EE4 
8E28,28,43,29,6F ,55,54,20,28,048@ 
9E3@,47,29,2C,44,73,42,43,20,2836 
BEZB,48,4C,2C,44,45,6C,44,20,35F® 
BE40,28,48,29,2C,44,45,7B,7B,0059 
8E48,69,4D,20,31,6C0,44,20,41,22A1 
8E59,2C,49,69,4£,20,45,2C,28,8DE4 
8E58,43,29,6F,55,54,20,28,43,2143 
8E60,29,2C,45,61,44,43,28,48,1214 
8E68,4C,2C,44,45,6C0,44,20,44,23A4 
BE70,45,2C,28,48,29,7B,7B,69,28BB 
8E78,4D,20,32,6C,44,20,41,2C,2CBE 
8E80,52,69,4E,28,48,20,28,43,3A63 
8E88,29,6F,55,54,20,28,43,29,Q1AF 
8E90,2C,48,73,42,43,20,48,4C,0C84 
8E98,2C,48,4C,6C0,44,20,28,40,09F@ 
SEAQ,27,2C,48,4C,7B,7B,7B,72,1@F® 
SEAB,S?2,44,69,4E,20,4C,2C,28,3188 
SEBQ,43,29,6F,55,54,20,28,43,2143 
8EB8,29,2C,4C,61,44,43,20,48,1334 
BECQ,4C,2C,48,4C,6C,44,20,48,22B8 
BEC8,4C,2C,28,40,29,7B,7B,7B,2C029 
8EDQ,72,4C,44,7B,7B,73,42,43,27E3 
BED8,28,48,4C,2C,53,50,6C,44,2AD4 
BSEEQ,20,28,48,29,2C0,53,5@8,7B,1@67 
SEEB,7B,7B,7B,69,4E,2@,41,2C,28EE 
BEF®,28,43,29,6F ,55,54,20,28,2488 
SEF8,43,29,2C,41,61,44,43,20,28EE 
8F@8,48,4C,2C,53,50,6C,44,20,3428 
8F@8,53,50,2C,28,40,29,6C,44,38B8 
8F10,49,63,50,49,69,4E,49,6F ‚3®5D 
8F18,55,54,49,7B,7B,7B,7B,6C,33BE 
BF20,44,44,63,50,44,69,4E,44,393C 
8F28,6F,55,54,44,7B,7B,7B,7B,2EB9 
8F39,6C,44,49,52,63,50,49,52,2998 
BF38,69,4E,49,52,6F ,54,49,52,29E8 
8F40,7B,7B,7B,7B,6C0,44,44 ,52,293A 
8F48,63,50,44,52,69,4E,44 ,52,2ABA 
8FS@,6F ,54,44,52,7B,7B,7B,7B,2D99 
8F58,7B,20,08,00,00,00,00,20,3D88 


Listing. 1. Der CPC-Monitor »Smon« 
(Schluß) 


9880 ,CD,63,96,37,09,28,20,28,6958 
9008,20,20,20,20,20,20,28,20,1FE® 
9810,20,28,20,20,20,20,28,2@,1FE® 
9018,20,20,20,20,20,20,2@,31,1FFi 
9820 ,2E,29,28,50,72,6F ,67,72,1ED® 
9028 ,61,6D,6D,69,65,72,65,6E ,22B4 
9030 ,OA,OD,OA,OD,20.20.20.20,0630 
7038,20,20,20,20,20,20,20,20, IFEO 
9040,20,20,20,20,20,20,20,28,1FE® 
9048,20,20,20,20,20,2@ '32,2E, 1FCA 
9050,29,28,40,65,73,65,6E,@A,118A 
9058,0D,@A,0D,20,20,20,20,20,0640 
9060,20,20,28,20,20,28,28,28,1FE® 
9068,20,20,20,20,20,20,20,2@,1FE® 
9870,20,20,20,20,28,33,2E,29,1FB9 
9078,20,56,65,72,67,60,65,69,0C2B 
9080 ,63.68,65,6E „OA,BD,@A,BD,21ED 
9088,20,20,20,20,20,20,20,2®8,1FE® 
9090,20,20,20,20,20,28,20,28,1FE® 
9098,20,20,20,20,20,20,20,20,1FE® 
IOAD,20,20,34,2E,29,20,48,61,1D59 
9OAB,75,70,74,6D,65,6E,75,65,2CCF 
9BBB,BA,0D,OA,0D,20,28,28,20,8630 
90B8,20,20,20,20,20,20,20,2@,1FE® 
I2CQ,20,20,20,20,28,20,28,28,1FE® 
90C8,20,20,20,20,20,20,35,2E,1FC4 
90D0,29,20,45,6E,64,65,20,28,1814 
9ODB,OA,AD,2A,AD,20,20,20,20,0730 
9OEB,20,20,20,20,28,20,28,2A,1FEA 
IUEB,2A,2A,2A,2A,2A,20,28,28,19D® 
9BFB,20,20,45,50,52,4F,4D,28,16B6 
9BF8,2D,20,50,52,4F,47,52,41,1221 
9100,4D,4D,45,52,20,20,56,65,3989 
9108,72,73,69,6F ,6E,20,31,2E ,2DAC 
9118,30,20,20,20,20,2A,2A,2A,17D& 
9118,2A,2A,QA,QD,BA,0D,28,2@,1E14 
9120,20,20,20,20,20,20,28,20,1FE® 
9128,20,20,20,20,20,20,20,20,1FE® 
9130,20,20,20,20,A4,20,31,39,1BFB 
9138,38,37,20,62,79,20,50,65,1®6D 
9140,74,65,72,28,42,75,65,6E ,2C6® 
9148,64,67,65,6E,73,20,0A,@2D,2281 
9150,0A,00,20,20,20,20,28,28,21AB 
9158,28,20,20,28,5F,5F,5F,5F,1D65 
9168,5F ,5F ,5F,SF,S5SF,SF,SF,SF,3535 
9168,5F ,5F ,5F ‚SF ‚5F ‚SF ,SF,SF ‚3535 
9170,5F ‚SF ,5f ,5F ,5F,SF,5F,SF,3535 
9178,5F ‚SF ‚5F ‚SF ,5F,SF,5F,SF,3535 
9180,5F ‚5F ‚SF ‚SF ,5F ‚SF ,5F,5F,3535 
9188,5F ,5F ,5F ,5F,SF,SF,SF,SF ,3535 
9190,8A,0D,BA,DD,2A,2D,80,28,8794 
9198,20,28,20,20,28,20,20,20,1FE® 
91AD,20,20,20,20,28,28,28,53,1F9Z 
J1AB,69,65,20,6B,6F ,65,6E,6E ,2D2E 
91B0,65,6E,28,7A,77,69,73,63,2839 
91B8,68,65,6E,20,35,20,54,79,2379 
91C0,70,65,6E,28,77,61,65,68,2C1E 
91C8,6C,65,6E,21,0A,2D,@A,QD,2BED 
91D9,20,20,20,20,20,28,20,28,1FE® 
91D8,28,28,20,20,20,20,20,2®,1FE® 
91EB,20,28,20,20,31,2E,29,2@,1F42 
91EB,20,44,61,73,20,20,38,2D,@BCD 
91F0,4B,42,79,74,65,2D,45,58,3E26 
91F8,52,4F ,4D,20,20,32,37,36,3@F@ 
9200,34,28,0A,2D,@A,0D,28,20,1394 
9208,20,20,20,20,20,20,20,20,1FE® 
9210,20,20,20,20,20,28,28,20,1FE® 
9218,20,20,32,2E,29,20,20,44,1D&C 
9220,61 .,73,20,31.,36,2D.4B,42,2A80 
9228,79,74,65,2D,45,50,52,4F ‚2073 
9230,4D.2@,32,37,21,32,38,0N,2ABA 
9238,0D,2A,0D,28,20,20,20,20,0640 
92490,20,28,20,28,28,20,28,20,1FE® 
9248,20,20,20,20,20,20,20,33,1FF3 
9250,2E,29,20,20,44,61,73,28,1822 
Va DE 7, 65,1769 
9260,2D,45,50,52,4F ,4D,20,32,8RDE 
97268,37,31,32,38,41,2@, an, @D,1991 
9270,0A,0D,20,20, 28,20, 20,28,21A® 
9278,20,20,20,20,20,20, 20,20,1FE0 
9280 ,20.20.,20,20.20,20,34 ,2E,1FC6 
9288,29,20,20,44,61,73,20,33,1E77 
9290,32,2D,4B,42,79,74,65,2D.1DFF 
9298,45,50,52,4F ,4D,20,32,37,3A8B 
92AB,32,25,36,41,0N,@D BA,DD,16ED 
92A8,20,20.20,20,20,20,20,2@,1FER 
92E0,20,22,20,20,290,20,20,20,1FE® 
9259,20,20,20,20,35,2E,29,20,1F62 
92C0,20,44,61,73,20,33,32,2D,2B95 
92C8,4B,42,79,74,65,2D,45,50,3E2& 
92D0,52,4F ,4D,28,22,37,32,35,3@7D 
972D8,36,0A,0D,@A,8D,28,20,28,1888 
92E0,20,20,20,20,20,28,20,2@,1FE® 
G2EB,20,20,20,20,20,20,20,20,1FE® 
92FQ,20,20,70,20,20,20,20,20,1FE® 
92F8,20,28,20,22,20,20,6F ‚64 ,1F3A 


9308,65,72,20,0A,0D,BA,2D,28,2ADA 
9708,20,20,20,20,20,20,20,20,1FE® 
9310,20,20,20,20,20,20,20,20,1FE® 
9318,20,20,20,36,2E,2 ‚2@,1ED4 
937@,41,75,66,72,75,66,28,64,3434 
9328,65,73,20,43,58,43,2D,4D,2DER 
9330,6F ,6E,69,74,6F ,72,73,28,2416 
9379,22,53,AD,AF,AE,22,2E ‚A ,QASE 
9340 ,0D,8A,0D,00,0D,84,20,20,0588 
9348,20,20,20,20,20,20,20,20,1FE® 
9359,20,28,20,28,20,2 20.20,1FEo 
9359,20,20,20,20,20,20,42,69,1F6D 
9360,74.74,65,28,77,61.65,68.2 SE 
9368, 6C,65,64E,20,53,69,65,21,2357 
9370,20,00,20,20,20,20,20,20,17E8 
9378,20,20,20,28,28,20,20,53,1F93 
9780 ,69,65,20,68,61,62,65,6E ,2D64 
97388,20,64,65,6E,2@,38,2D,4B,82B1 
92799,42,79,74,65,2D,54,79,78,372A 
9398,20,32,37,36,34,20,61,75,1897 
93AB,73,67,65,77,61,65,68,6C,2958 
92A9,74,2E,2A,0D,20,20,20,20,31F® 
93BQ,28,20,20,20,2@,29,20,2®,1FER 
93BB ,20,5F ‚SF ,SF,SF,S5SF,SF,SF,@ABS 
93C0 ,5F „SF ‚Sf ‚SF SF ,SF,5SF,5F,3535 
9208, 5F ,5F ‚SF ,SF,SF,SF,5f,Sf,3 
92D9,5F „SF ,5F SF ,Sf,SF,SF,Sf, 
93D8,5F „5F ‚SF ‚SF ,5F,SF,SF,SF,3535 
93EM,S5F „SF ‚SF ‚Sf ,BA,0D,BA,0D,362D 
ITEB,AA,2D,2A,AD,@A,2D,20,20,0794 
93F0,20,20,20,20,20,20,20,20,1FE® 
93F8,20,20,20,20,20,53,69,65,1EFB 
94900,20,68,61,62,65,6E,20,64,82B4 
94988,65,6E,20,31,36,2D,4B,42,2FCQ 
94108,79,74,65,2D,54,79,70,20,2C74 
9418,32,37,31,32,38,20,61,75,1037 
9420,73,67,65,77,61,65,68,6C,29B® 
9428,74,2E,0A,2D,20,20,20,20,31F® 
9430,20,20,20,20,20,20,20,28,1FE® 
9438 ,20,5F ‚SF ,5F,SF,SF,SF,SF,BABS 
9448,5F ‚Sf „SF ,SF SF ,SF,SF,SF 3535 
9448,5F ‚SF ‚SF ,5F ,5F ‚SF ,5F ‚5F ‚3535 
9459 ,5F „SF ,5F „SF ‚SF SF ,SF,5F,3535 
9458 ,5F „SF ‚SF ,5F ,5F ‚5F „5F „SF ‚3535 
9460 ,5F „SF ,5F „SF ,5F,5F,@A,@D,35CD 
9448, BA,2D,BA,@D,QOA,@D,AA,2D,@7AD 
9479,00,20,20,20,20,20,20,20,8FE® 
9478,20,20,20,20,20,20,53,69,1F4F 
9480,65,20,68,61,62,65,6E,20,33E8 
9488, 64,65,64E,20,33,32,2D,4B,25C1 
94990,42,79,74,65,2D,54,79,78,372A 
9498,20,32,37,32,35,36,41,20,1892 
94AQ,61,75,73,67,65,77,61,65,2783 
94AB,68,6C,74,2E,BA,®D,20,20,2364 
94B0,20,20,20,20,20,20,20,28,1FE® 
94BB,20,20,20,5F ,5F ,SF,5SF,SF,1A95 
94CQ ‚SF ‚SF ,5F,SF ,5F,SF,S5f ‚SF ,3535 
94C8,5F ,5F ,5F,5SF,SF,SF,SF,SF,35 
9408 ,5F „Sf „SF ,5F ‚SF ,SF,SF,5F,353 
94D8 ,5F ‚SF ‚SF ,5F ‚SF ‚SF ‚SF ,„5F ‚3535 
94EQ ,5F „5F ,5F,5F,SF,SF,SF,SF,3535 
94E8,0A,QD,BA,@D,QA,DD,2A,QD,@7AD 
94FB,BA,0D,20,28,20,20,20,20,05A2 
94F8,20,20,20,20,20,20,20,20,1FEd 
9590 ,53,69,65,28,68,61,62,65,3F@5 
9508,6E,22,64,65,6E,20,31,36,3674 
9510,2D,4B,42,79,74,65,2D,54,09AA 
9518,79,70,20,32,37,31,32,39,2480 
9528,41,20,61,75,73,67,65,77,2149 
9528,61,65,68,6C,74,2E,@A,@D,21@1 
9538,20,20,20,20,20,20,20,20,1FE® 
9538,20,20,20,20,20,5F,5F,5F,1E9D 
9548 ,5F „SF „SF „SF „SF ,SF SF ,5F ‚3535 
9548 ,5F „SF ‚SF ‚SF ‚SF SF ,SF,SF,3535 
9558 ,5F ‚SF „SF „SF ,5F SF ,5F ‚SF ‚3535 
9558,5F „SF ,5F,SF ,5F,SF,SF,5F,3535 
9560 ,5F „SF ,SF,Sf,SF,SF,Sf,Sf,3535 
9568,5F ,5F,OA,@D,@A,@D,BA,QD,S9AD 
9570 ,0A,0D,8A,2D,20,20,20,20,8730 
9578,20,20,20,20,20,20,28,2@,1FE® 
9580,20,20,53,69,65,20,68,61,17E9 
9588,62,65,6E,20,64,65,6E ,20,25C8 
9598,33,32,2D,4B,42,79,74,65,1769 
9598,2D,34,79,70,20,32,37,32,0434 
9SAQ,35,36,20,61,75,72,67,65,17DF 
ISAB,77,61,65,68,6C,74,2E,8A,2BO& 
95EB,BD,20,20,20,20,20,20,20,2968 
9588,20,20,20,20,20,20,5F,5F,1F61 
95CQ,SF „SF ,SF,SF SF ,SF,Sf,5F,3535 
9508 ,5F ,5F,5F,SF,5F,SF,5F,SF ‚3535 


Listing 2. Die hexadezimalen Werte 
von »Eprom« (Eingabe mit dem Pro- 
gramm »CPC«) 


9509 ,5F „SF „SF ,5F,5F „SF „SF SF ‚3535 
95D8 ,5F ‚SF SF ‚SF ‚SF SF SF ‚Sf ‚3535 
95ER ,5F „SF „SF „SF „SF „SF „SF ‚SF ‚3535 
95E8,5F ‚SF ‚SF ,2A,0D,@A,0D,2A,3250 
95F0,0D,DA,0D,2OA,0D,20,80,C6,B4AE 
95F8,44,90,86,04,00,46,44,00,131@ 
9600,86,04,2D,2A,52,41,4D,41,0B4F 
9608,4E,46,41,4E,47,20,2D,28,3882 
9610,52,41,4D,45,4E,44,45,28,377A 
9618,3A,00,2D,@A,45,50,52,4F,1F83 
9620,4D,41,4E,46,41,4E,47,20,38FE 
9628,2D,20,45,58,52,4F,4D,45,1853 
9630,4E,44,45,20,34,0@,0D,2A,3D60 
9638,45,58,52,4F ,4D,41,44,52,3B86 
9640,45,53,53,45,28,3A,28,2D,3995 
9648,04,52,41,4D,41,44,52,45,1E89 
9650,53,53,45,20,3A,08,2D,2A, 3628 
9658,46,45,48,40,45,52,20,49,3CE9 
9660 ,4E,20,00,CD,FF,BB,3E,22,26BA 
9668,CD,@E,BC,21,DD,98,CD,89,752B 
9670,96,21,97,91,CD,89,96,21,5DFi 
9678,44,93,CD,89,96,CD,28,99,1@BD 
9680,CD,5A,BB,32,79,97,03,93,64C1 
9688,96, 7E,FE,@8,CD,5A,BB,23,4D15 
9690,20,F7,C9,FE,31,28,19,FE,3AE4 
9698,32,28,75,FE,33,28,31,FE,13E4 
960,34 ,CA,30,97,FE,35,CA,F®,21BQ 
96AB,96,FE,36,28,CA,C3,7B,97,757D 
96B9,3E,82,CD,@E,BC,21,DD,98,828E 
96B8,CD,89,96,21,72,93,CD,89,54DF 
96C9,96,21,05,98,CD,89,96,21,4FAi 
96C8,F6,95,CD,68,97,C03,580,97,4663 
96DB,3E,82,CD,BE,BC,21,DD,70,828E 
96D8,CD,89,96,21,F3,94,CD,89,5@CB 
96E0,96,21,05,98,CD,89,96,21,4FAi 
96E8,F9,95,CD,68,97,03,58,97,41E3 
96FB,3E,82,CD,BE,BC,21,DD,70,828E 
96F8,CD,89,96,21,75,95,CD,89,54FF 
9700,96,21,05,90,CD,89,96,21,4FAi 
9798,FC,95,CD,48,97,03,50,97,4363 
9710,3E,82,CD,®E,BC,21,DD,98,828E 
9718,CD,89,96,21,F8,93,CD,89,5@CF 
9720,96,21,85,98,CD,89,96,21,4FAl 
9728,F6,95,CD,68,97,03,50,97,4663 
9730,3E,82,CD,BE,BC,21,DD,978,028E 
9738,CD,89,96,21,71,94,CD,89,54DB 


9749,96,21,85,902,CD,89,96,21,4FAi 
9748,FF ,95,CD,60,97,03,50,97,42E3 
975@,F5,21,44,93,CD,89,96,F1,76E1 
9758,CD,28,99,CD,5A,BB,18,63,731F 
9768,11,6C,97,06,83,7E,12,23,B8E7 
9768,13,18,FA,C9,20,20,00,00,1E5® 
9770,80,20,20,00,20,00,20, 20, 2000 
9778,00,00,00,3A,20,80,FE,31,204D 
9780,28,07,21,8C,97,CD,89,96,1F28 
97788,C9,C03,90,80,0C,42,69,74,5DBE 
9790,74,65,20,4D,6F ,6E,69,74,21F& 
9798,6F ,72,20,6E,61,63,68,6C,2BD8 
ITAB,61,64,65,6E,20,75,6E,64 ,23AC 
97A8,20,45,70,72,6F,6D,6D,65,@A13 
97B0,72,20,6E,65,75,20,73,74,392A 
9788,61,72,74,45,6E,08,D1,F1,26F3 
97C0,C3,50,97,FE,38,CA,58,97,6A1F 
97C8,FE,34,CA,63,96,FE,35,C8,6A9A 
97D0,D2,5@,97,F5,FE,31,28,85,67C1 
97D8,21,82,96,18,03,21,1A,96,037E 
97E0,CD,89,96,CD,78,99,D2,BF ,SA6F 
97E8,97,B7,ED,52,23,22,71,97,7F25 
97F0,22,73,97,F1,F5,D5,FE,31,15@1 
97F8,20,05,21,36,96,18,03,21,12F7 
98@8,47,96,CD,89,96,CD,7D,99,18D7 
9808,30,B4,3A,79,97,FE,34,38,32CQ 
9810,22,D1,F1,FE,31,F5,D5,20,3756 
9818,808,CB,74,28,16,CB,B4,18,382C 
9820,06,CB,72,28,8E,CB,B2,E5,3FDD 
9828,21,6C,97,86,83,CB,FE,23,1BEB 
9830,10,FB,E1,D1,EB,86,F8,F1,21Bi 
9838,FE,33,CA,AB,99,FE,32,CA,67AE 
9840,,AF,99,FE,31,C02,58,97,EB,6B85 
9848,3E,05,32,4F ,97,22,75,97,1ABD 
9850 ,ED,53,77,97,2A,71,97,7D,6417 
9858,B4,CA,ED,99,11,80,81,ED,7CD7 
9840,52,7B,22,71,97,30,87,15,30F3 
9848,ED,53,71,97,24,7D,ED,47,6459 
9870,B7,20,81,EB,22,73,97,2A,5CC8 
9878,75,97,ED,5B,77,97,CB,F4,07D6 
9880,CD,D1,99,8D,3E,FB,CD,14,42A2 
9888,99,CD,909,BB,380,05,FE,FC,75C4 
9890,CA,ED,99,D5,3A,6D,97,F5,418F 
9898,CD,85,99,1A,8D,ED,79,BE,7668 
IBAB,E2,3C,28,06,3A,6E,97,ED,7ACB 
9B8AB,79,76,F1,ED,79,23,13,ED,327F 


Pforten 


98B8,57,2D,ED,47,20,DE,3D,ED,SFFF 
98B8,47,CD,14,99,24,75,97,D1,1AAB 
98C9,CD,E3,99,CA,48,98,3A,6F ,41FB 
98C8,97,3D,32,6F,97,CA,B9,99,420B 
98DB,E5,D5,2A,73,97,ED,5B,71,427B 
98D08,97,19,22,71,97,D1,E1,C3,486D 
IBED,4D,98,3A,6C,97,CD,05,99,Q61F 
98E8,@D,ED,48,ED,57,B7,79,28,3AAE 
IBFQ,05,1A,B9,37,CQ,3F,12,22,16AB 
9BF8,13,E5,2A,73,97,2B,7D,B4,36EA 
9900,22,732,97,E1,C09,BE,E1,ED,166F 
99QB,61,03,3C,ED,79,3D,ED,79,3B8F 
9910,08,ED,69,09,E5,2A,6D,97,38BD 
9918,A5,ED,79,EE,84,ED,79,E1,6B87 
9920 ,06,B1,76,10,FD,24,F8,C9,2649 
9928,CD,8A,BB,CD,86,BB,F5,CD,5C4B 
9938,8D,BRB,F1,C9,CD,28,99,FE,7DF4 
9938,61,D8,FE,7B,D®,D6,28,C9,1BAi 
9940,CD,24,99,FE,FC,C8,FE,@D,7271 
9948,C8,D6,30,38,F3,FE,@A,38,504C 
9950 ,06,D6,87,FE,10,30,E9,FE,3E6C 
9958, BA,3F ,38,E4,F5,CD,9D,99,07BF 
9968 ,F1,C9,CD,87,99,CD,48,99,5CF5 
9968 ,D0,C5,07,07,87,07,4F ,CD,59A7 
9970,40,99,30,82,B1,37,C1,C9,047F 
9978,CD,7D,99,D@,EB,CD,62,99,63D1 
9980 ,D8,67,CD,65,99,6F ,C9,F5,6A23 
9988 ,3E,20,CD,5A,BB,F1,C9,7C,@CF2 
9990,CD,94,99,7D,F5,8F,@F,@F,5@F5 
9998,8F,CD,9D,99,F1,E6,@F,FE,2AQ0 
I9AD,BA,38,02,C6,87,C6,38,CD,D4AD 
99AB,5A,BB,C9,3E,81,18,@1,AF,19C5 
99BQ,ED,47,CB,B4,CD,E3,99,38,7186 
99BB,BF,22,6F ,97,21,56,96,CD,BA21 
99C0,89,96,2A,6F ,97,CD,8F,99,64BB 
99C8,3A,6C,97,21,80,48,CD,25,166F 
9900,99,3E,80,18,02,3E,90,0E,5346 
99DB,E3,18,05,3A,60,97,QE,E2,7542 
99EB,ED,79,C9,CD,D5,99,CD,E2,7884 
99E8,98,D8,20,FA,C9,CD,C8,99,75D5 
99FB,C3,50,97,FF,BQ,FF,@®,FF,6B93 


Listing 2. »Eprom« (Schluß) 


zur Hardwarewelt 


ardware-Freaks verschmähen 

beim Programmieren den Um- 

weg über das Betriebssystem, 
wenn sich einzelne Bausteine im 
Computer direkt ansprechen lassen. 
Und Maschinensprache-Programmie- 
rer wissen ohnehin, daß die direkte 
Programmierung über OUT- und IN- 
Befehle viel höhere Geschwindigkei- 
ten zuläßt als der Aufruf der zugehöri- 
gen Betriebssystem-Routinen über 
die Vektoren des CPC. 

Oft ist die unmittelbare Program- 
mierung der Hardware auch der ein- 
zige Weg, um eine gewünschte Funk- 
tion zu verwirklichen. Man denke nur 
an die Bild- und Toneffekte, die einige 
kommerzielle Spielprogramme erzeu- 
gen, indem sie direkt den Video- 
Controller und den Tongenerator des 
CPC programmieren. 

Der CPC enthält an wichtigen 
Hardware-Komponenten den Prozes- 
sor Z-80, der die restliche Hardware 
steuert, das Gate Array, den Video- 
Controller 6845, den Disketten- 


Mit den Assembler-Befehlen 
OUT und IN sowie den Basic- 
Befehlen OUT und INP sind Sie 
in der Lage, die Hardware Ihres 
CPC direkt anzusprechen und 
damit sämtliche Komponenten 
des Computers unmittelbar zu 
steuern (Daten schreiben) und 
zu kontrollieren (Daten lesen). 


Controller 765, den Parallel-Port- 
baustein 8255 und den Tongenerator 
8912. 

Das. Programmieren dieser Bau- 
steine ist einfacher, als viele Compu- 
terbesitzer denken. Der Speicher 
eines Computers läßt sich verwalten, 
indem man mit dem Assembler-Befehl 
LD oder den Basic-Befehlen POKE 
und PEEK Daten in den Speicher 
schreibt beziehungsweise aus dem 
Speicher liest. Damit der Computer 
weiß, in welche Speicherposition er 
schreiben oder aus welcher Speicher- 


position er lesen soll, müssen Sie bei 
jeder Operation eine Speicheradresse 
angeben. 

Das Programmieren der Computer- 
bausteine erfolgt nach dem gleichen 
Prinzip. Auch hier lassen sich Daten 
schreiben und lesen, indem man die 
Assembler-Befehle OUT und IN bezie- 
hungsweise die Basic-Befehle OUT 
und INP verwendet. Nur muß man in 
diesem Fall zur Adressierung nicht 
eine Speicheradresse, sondern eine 
sogenannte Portadresse angeben. 
Diese Portadresse bestimmt, welcher 
Baustein angesprochen ist. Die Port- 
adressen der einzelnen Bausteine 
sind durch die interne Verdrahtung 
des Computers bereits festgelegt. 

Benutzen Sie beispielsweise in 
Basic den Befehl »OUT &EF00,0«, so 
wird der Wert O0 auf den Drucker- 
anschluß gelegt. Umgekehrt können 
Sie mit dem INP-Befehl den Zustand 
eines Bausteins über eine Port- 
adresse erfragen. Da das Betriebs- 
system des Schneider CPC jedoch die 
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x [\ Yr A, 


COMPUTER) 


0111 I111 xxxx xxxx 
1011 1100 xxxx xxxx 


Gate Array 
Video-Controller 6845 (Adreßregister zur Auswahl eines 


Datenregisters) 


‚1011 1101 xxxx xxxx 
1011 1111 xxx xxx 
1101 1111 xxx xxx 
1110 1111 Rx xx 


1111 0100 xxxx xxxx 
1111 0101 xxxx xxxx 
1111 O110 xxxx xxxX 
1111 0111 xxx xxx 


1111 1010 0111 1110 


1111 1011 0111 1110 
1111 1011 0111 1111 


x: Beliebiger Bit-Wert 


Tabelle 1. Die wichtigsten Portadressen des Schneider CPC auf einen Blick 


Register 0 


EL 


PoB05| 
[oB63| 


Nur die Register 14 bis 17 können zusätzlich gelesen werden. 


13 
15 
16 
17 


Video-Controller 6845 (Datenregister, schreiben) 
Video-Controller 6845 (Datenregister, lesen) 
Nummer des ausgewählten Erweiterungs-ROM 
Druckeranschluß 


Parallel-Portbaustein 8255 (Kanal A) 
Parallel-Portbaustein 8255 (Kanal B) 
Parallel-Portbaustein 8255 (Kanal C) 
Parallel-Portbaustein 8255 (Steuerregister) 


Laufwerks-Flipflop (Flipflop = 1: Internes ROM des CPC 
deaktiviert) 

Disketten-Controller 765 (Statusregister) 
Disketten-Controller 765 (Datenregister) 


Zahl der (teilweise unsichtbaren) Zeichen pro Zeile -1 
Zahl der tatsächlich angezeigten Zeichen pro Zeile 


Rasterzeilen-Position des HSYNC-Signals in CLK-Takten 
(bestimmt horizontale Verschiebung) 


Länge des HSYNC-Impulses in CLK-Takten { 
Zahl der (teilweise unsichtbaren) Zeichenzeilen -1 


Feineinstellung für Register 4 in Rasterzeilen 


O bis 6 | Zahl der tatsächlich angezeigten Zeichenzeilen 


Zeilensprungmodus (Interlace) ein/aus 
Höhe eines Zeichens in Rasterzelen 
Obis 7 | Erste Rasterzeile des Cursors 
Letzte Rasterzeile des Cursors 
Bit 0 bis Bit 7 der Startadresse des Bildschirmspeichers 
Bit 8 bis 14 der Startadresse des Bildschirmspeichers 
Bit 0 bis Bit 7 der Adresse des Cursors 
Bit 8 bis Bit 14 der Adresse des Cursors 
bis 7 | Bit 0 bis Bit 7 der Bildschirmadresse, bei der ein Lichtgriffelimpuls auftrat 


7 Zeichenposition des VSYNC-Signals (bestimmt senkrechte Verschiebung) 


Bit 8 bis Bit 14 der Bildschirmadresse, bei der ein Lichtgriffelimpuls auftrat 


Tabelle 3. Der umfangreiche Registersatz des Video-Controllers 8645 


Betriebsart 
Baustein gesperrt 


| 


Adressierung eines gewünschten Registers über DAO bis DA7 


Eingabe eines Wertes in ein zuvor ausgewähltes Register über DAO bis DA7 
Auslesen eines Wertes aus einem zuvor gewählten Register über DAO bis DA7 


Tabelle 5. Vier Betriebsarten kennt der Tongenerator des Schneider CPC 


meisten Portzustände der Bausteine 
gleich nach Ausführung des OUT- 
oder INP-Befehls automatisch zurück- 
setzt, läßt sich unter Basic die ge- 
wünschte Wirkung oft nicht erreichen. 
Besser istes deshalb, die Bausteine in 


Maschinencode beziehungsweise in 
Assemblersprache zu programmieren 
und auszulesen, weil man nur auf die- 
ser Ebene volle Kontrolle über die 
Hardware des Computers erlangen 
kann. 


ultifunktionsregister 
Bildschirmmodus 


Bildschirmmodus 

Bit 1=0 und Bit 0=0: Modus 0 

mit Blinken : 

Bit 1=0 und Bit 0=1: Modus 1 
Bit 1=1 und Bit 0=0: Modus 2 

Bit 1=1 und Bit 0=1: Modus O 
ohne Blinken 


Unteres ROM (0000 bis 3FFF hex) 
ausschalten (Bit 2=1) 
Oberes ROM (C000 bis FFFF hex) 
ausschalten (Bit 3=1) 
Interrupt-Zähler löschen 
Registerauswahl 


Registerauswahl 

Bit 7=0 und Bit 6=0: Bit 0 bis 5 in 
Farbnummer-Register (PEN) schrei- 
ben 

Bit 7=0 und Bit 6=1: Bit 0 bis 5 in 
Farbwert-Register (INK) schreiben 

Bit 7=1 und Bit 6=0: Bit 0 bis 5 in 
Multifunktions-Register schreiben 

Bit 7=1 und Bit 6=1: Bit 0 bis 2 zur 
RAM-Konfiguration verwenden (nur 
CPC 6128) 


| 
En 
Ba 
£3 
7 


Tabelle 2. Auf diese Weise läßt sich 
das Gate Array programmieren 


Da der Z80-Prozessor nur bei den 
Befehlen »OUT (C),Register« und »IN 
Register, (C)« die Ein- und Ausgabe 
von 16-Bit-Portadressen erlaubt, dür- 
fen beim CPC ausschließlich diese 
Befehle zur Adressierung der Ports 
verwendet werden. Der Inhalt des B- 
Registers bildet jeweils die obere 
Hälfte der Adresse, und die untere, 
meist nicht relevante Hälfte, stehtin C. 

Eine typische Befehlsfolge zur Pro- 
grammierung eines Bausteins sieht 
folgendermaßen aus: 

LD A,H89 ;Wert laden, der in 

das Gate Array 
geschrieben werden soll 
;Obere Hälfte der 
Portadresse laden 

;Wert in das Gate 

Array schreiben 

Das Ganze läßt sich noch kürzer 
und eleganter formulieren, indem man 
16-Bit-Register verwendet. 

LD BC,H7F89 ;Wert und Adresse laden 
OUT (C),C ;Wert in das Gate Array 
schreiben 

Das Einlesen von Betriebszustän- 
den funktioniert auf die gleiche Art und 
Weise, sofern die Hardwarekonfigura- 
tion des CPC das Lesen aus den Port- 
adressen zuläßt. (So läßt sich bei- 
spielsweise ein Wert vom Druckeran- 
schluß einlesen, doch dieser Wert 


LD B,H7F 


OUT (C),A 


R ADD N 
( PUTER 
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n-Software von Markt &T 


NASHTON TATE 


WordStar, dBASE 


WordStar 3.0 mit MailMerge 

Ein Bestseller unter den Textverarbeitungs- 
programmen, der Ihnen bildschirmorien- 
tierte Formatierung, deutschen Zeichen- 
satz und DIN-Tastatur sowie integrierte 
Hilfstexte bietet. Mit Mailieras-können 
Sie Serienbriefe mit persönlicher Anrede 
an eine beliebige Anzahl von Adressen 
schreiben und auch die Adreßaufkleber 
ausdrucken. 

dBASE Il, Version 2.41 

dBASE Il, das meistverkaufte Programm 
unter den Datenbanksystemen, eröffnet 
Ihnen optimale Möglichkeiten der Daten- 
und Dateihandhabung. Einfach und 
schnell können Datenstrukturen definiert, 
benutzt und geändert werden. Der 
Datenzugriff erfolgt sequentiell oder nach 
frei wählbaren Kriterien, die integrierte 
Kommandosprache ermöglicht den 
Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, lagerverwaltung, 
Betriebsabrechnung usw. 


702201 


MULTIPLAN, Version 1.06 

Wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen 
mit Bleistift, Radiergummi und Rechen- 
maschine satt haben, dann ist MULTI- 
PLAN, das System zur Bearbeitung 
»elektronischer Datenblätter«, genau 
das Richtige für Sie! Das benutzer- 
freundliche und leistungsfähige Tabellen- 
kalkulationsprogramm eh bei allen 
Analyse- und Planungsberechnungen 
eingesetzt werden. 


Sie erhalten jedes WordStar-, 
dBASE Il- und MULTIPLAN- 
Programm für Ihren Schneider-Com- 
puter oder Commodore 128PC fertig 
angepaßt (Bildschirmsteuerung). 
Jeweils Originalprodukte! Jedes 
Programmpaket enthält außerdem ein 
ausführliches Handbuch mit kompakter 
Befehlsübersicht. 


Für Atari ST 


MICRSSOFT 


Il, MULT 
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für den Commodore 128 PC 


RER. 
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Diese Markt & Technik-Softwareprodukte erhalten Sie 


in den Computer-Abteilungen der Kaufhäuser, bei Ihrem Computerhändler, 
im Buchhandel oder direkt beim Verlag gegen Vorauskasse. 


- fur CP/M Computer 


Best.-Nr. 90180, ISBN 3-89090-180-8 
WordStar für den Commodore 128PC 
Best.-Nr. 90181, ISBN 3-89090-181-6 
dBASE Il für den Commodore 128PC 
Best.-Nr. 90189, ISBN 3-89090-189-] 
dBASE II für den Schneider CPC 

Best.-Nr. 90188, ISBN 3-89090-188-3 
MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MUITIPLAN für den Commodore 128PC 
Best.-Nr. MT 836, ISBN 3-89090-189-] 


Schneider CPC 464, CPC 664, 
CPC 6128, Joyce, beliebiger Drucker 


mit Centronics-Schnittstelle. 


ISOFT 


IMULTIPLAN &itcersone rewozse 134 


Commodore 128/128D, Diskettenlaufwerk, 
80-Zeichen-Monitor, Commodore- 
Drucker oder Drucker mit Centronics- 

\ u Jedes Buch kostet >chnittstelle (ohne zwischengeschaltetes 


Interface). 

DM 49,- Übrigens gibt es WordStar, 
(sFr. 45,10/6S 382,20) dBASE und MULTIPLAN auch für 
Erhältlich bei Ihrem Buchhändler. NDR-Computer. Zu beziehen bei 
Graf Elektronik Systeme GmbH, 
Magnusstraße 13, 8960 Kempten. 


MICR: 


Markt&zfechnik 


Zeitschriften : Bücher Bestellungen im Ausland bitte an untenstehende Adressen. 
S f S h | Schweiz: Markt & Technik Vertriebs AG, Kollerstr. 3, CH-6300 Zug, Tel. (042) 415656 
© are » Schulung Österreich: Ueberreuter Media Handels- und Verlagsges. mbH., Alser Str. 24, A-1091 Wien, Tel. (0222) 481538-0 


Markt &Technik Verlag Aktiengesellschaft 
Hans-Pinsel-Str. 2, 8013 Haar bei München 
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nalB (F5xx) 


VSYNC 
(vertikale Video-Synchronisation) 


EXP (Erweiterungseinheit übernimmt 
Kontrolle) 


BUSY (Drucker beschäftigt) 


7 | RDDATA 
(Daten vom Kassettenrecorder) 


nalC (F6xx) 


OTOR 
(Kassettenrecoder-Motor einschalten) 


WR DATA 

(Daten für Kassettenrecoder) 

BC1 (zur Auswahl der Tongenerator- 
Betriebsart) 


BDIR (zur Auswahl der Tongenerator- 
Betriebsart) 


& 


S 


5 


I 


oO 


a ee 
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Ste 
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Bit0=0: Kanal C (Bit 0 bis Bit 3) ist 
Ausgabekanal 

Kanal © (Bit 0 bis Bit 3) ist 

Eingabekanal 


Bit 1=0: KanalB ist Ausgabekanal 

Bit1=1: KanalB ist Eingabekanal 

Bit2=0: Modus 0 

Bit2=1: Modus 1 

Bit3=0: Kanal C (Bit 4 bis Bit 7) ist 
Ausgabekanal 


Kanal C (Bit 4 bis Bit 7) ist 
Eingabekanal 


Bit4=0: Kanal A ist Ausgabekanal 
Bit4=1: Kanal A ist Eingabekanal 


Bit5=0 undBit6=0: Modus 0 
Bit5=1 undBit6=0: Modus 1 


Bit6=0: Modus 0 oder 1 
Bit6=1: Modus2 


Tabelle 4. Der Parallel-Portbaustein 
8255 ist gleich für mehrere Aufgaben 
verantwortlich 


Bit 0=1: 


Bit 3=1: 
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Die Register des 
Tongenerators 8912 


Register| Bit | Funktion —— 
Obis7 | Bit O0 bis Bit 7 des Fre- 
quenzteilers für Kanal A 
Bit 8 bis 11 des Fre- 
quenzteilers für Kanal A 
Obis 7 | Bit O bis Bit 7 des Fre- 
quenzteilers für Kanal B 
Bit 8 bis 11 des Fre- 
quenzteilers für Kanal B 
4 Obis7 | BitO bis Bit 7 des Fre- 
i quenzteilers für Kanal C 
Bit 8 bis 11 des Fre- 
quenzteilers für Kanal C 
Frequenzkontrolle des 
Rauschgenerators 


Bit 0=0: Ton-Freigabe 
für Kanal A 
Ton-Freigabe 
für Kanal B 
Bit 2=0: Ton-Freigabe 
für Kanal C 
Rausch- 
Freigabe für 
Kanal A 
Rausch- 
Freigabe für 
Kanal B 
Rausch- 
Freigabe für 
Kanal C 
Freigabe für 
Datenkanal A 
Nicht benutzt 


7 

Obis 3 | Lautstärke für Kanal A 

4 Bit 4=1: Hüllkurve be- 
stimmt Lautstär- 
ke für Kanal A 


Obis3 | Lautstärke für Kanal B 

4 Bit 4=1: Hüllkurve be- 
stimmt Lautstär- 
ke für Kanal B 

Obis3 | Lautstärke für Kanal C 

4 Bit 4=1: Hüllkurve be- 
stimmt Lautstär- 
ke für Kanal C 

Obis 7 | Bit 0 bis 7 des Hüll- 

kurven-Frequenzteilers 

Hüllkurve 


Bit 8 bis 15 des Hüll- 
5 fortführen 


kurven-Frequenzteilers 
Obis 7 | Bit 0 bis 7 des Daten- 
kanals A 
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Bit 1=0: 


Bit 3=0: 


Bit 4=0: 


Bit 5=0: 


Bit 6=0: 


Bit 0=1: Hüllkurve 
konstant halten 
Richtung perio- 
disch wechseln 
Bit 2=0: Absteigende 
Hüllkurve 
Aufsteigende 
Hüllkurve 


Bit 1=1: 


Bit 2=1: 


Bit 3=1: 


Tabelle 6. Durch die Programmierung 
des Tongenerators 8912 lassen sich 
neue akustische Effekte erzielen 


beträgt immer 255, weil der Drucker- 
anschluß nur als Datenausgabe funk- 
tioniert.) 


LD B,FB ;Obere Hälfte der 
Portadresse laden 

LD C,7E ;Untere Hälfte der 
Portadresse laden 

IN A,(C) ;Wert aus dem Status- 


register des Disketten- 
Controllers lesen 


oder entsprechend kürzer 


LD BC,FB7E ;Portadresse laden 

IN A,(C) ;Wert aus dem Status- 
register des Disketten- 
Controllers lesen 


Tabelle 1 zeigt die wichtigsten Port- 
adressen des Schneider CPC. Eine 
besondere Rolle spielt das Gate Array, 
das einen Großteil der Funktionen im 
CPC steuert, jedoch nur über eine ein- 
zige Portadresse verfügt. Über diese 
Portadresse lassen sich aber drei 
(beim CPC 6128 vier) Register anspre- 
chen (Tabelle 2). 

Der Video-Controller 6845 ist für 
den Aufbau des Bildschirminhalts 
zuständig. Tabelle 3 zeigt den Regi- 
stersatz dieses Bausteins, der dem 
erfahrenen Programmierer viele 
Wege zur Bildgestaltung (zum Bei- 
spiel ein anderes Bildformat, eine 
andere Bildfrequenz oder die Fähig- 
keit zur Programmierung von Raster- 
interrupts) bietet. 

Der Parallel-Portbaustein 8255 ist 
für Tastatur- und Joystickabfrage, Pro- 
grammierung des Tongenerators, 
Steuerung des Kassettenrecorders 
und des Druckers zuständig. Tabelle 4 
zeigt die Funktionen der einzelnen 
Bits aller drei Kanäle und die Bedeu- 
tung des Steuerregisters. 

Wenn der Modus 0 des 8255 ausge- 
wählt ist, erfolgt die Ein- und Ausgabe 
von Daten unidirektional ohne 
Handshake-Signale. Befindet sich der 
8255 dagegen im Modus 1, so werden 
zusätzlich Handshake-Signale er- 
zeugt, und arbeitet der 8255 im Modus 
2, so erfolgt die Datenein- und -aus- 
gabe (jedoch nur für Kanal A) bidirek- 
tional im Handshake-Betrieb. Der 
CPC nutzt jedoch ausschließlich den 
Modus 0. 

Wer über den Portbaustein 8255 
den Tongenerator 8912 programmie- 
ren möchte, der kann sich in Tabelle 5 
über die Betriebsarten des Bausteins 
und in Tabelle 6 über den Registersatz 
informieren. 

Auf die Programmierung des 
Disketten-Controllers 765 wird an die- 
ser Stelle nicht eingegangen, da eine 
Beschreibung der komplexen Fähig- 
keiten des 765-Bausteins den Rah- 
men dieses Beitrags sprengen würde. 

(Thomas Bullinger/ma) 
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Die Diskette — (k)ein Buch 


In der Zwischenzeit ist die Dis- 
kette wohl das beliebteste Spei- 
chermedium - nicht nur für 
Schneider-Computer. Dazu 
haben nicht zuletzt die CPCs 
664 und 6128 durch ihre von 
vornherein eingebauten Dis- 
ketten-Laufwerke beigetragen. 
Die Dokumentation in den mit- 
gelieferten Handbüchern läßt 
jedoch viele Fragen offen. So 
haben wir die fehlende Informa- 
tion zusammengetragen. 


ie Geschwindigkeit, mit der die 
D Diskette ihre Aufgabe erledigt, 

wird nur noch vom Komfort 
ihrer Handhabung überboten. In 
ihrem Preis-Leistungs-Verhältnis 
schlägt die Diskette jedes andere 
Speichermedium. Aber die Entwickler 
bei Amstrad taten einen Fehlgriff, als 
Sie entgegen allen anderen Compu- 
terherstellern, das 3-Zoll- dem 3'/- 
Zoll-Format vorzogen. Da Schneider 
und ihr englischer Partner Amstrad 
also die einzigen Anbieter dieses For- 
mats sind, hat sich der recht hohe Dis- 
kettenpreis leider nicht wesentlich 
nach unten entwickelt. Mit immer noch 
zirka acht Mark pro Diskette sind diese 
Datenträger zwar im Preis gesunken, 
den Preis einer billigen 5'4-Zoll- 
Diskette von zum Teil nur noch ein bis 
zwei Mark werden sie aber nie errei- 
chen. Diesen Preisvorteil des »älte- 
ren« Formats machten sich Firmen wie 
Vortex und Cumana zunutze, indem 
sie schon bald 5'4-Zoll-Laufwerke für 
die CPC-Serie anboten. Vortex bietet 
alternativ auch Laufwerke im 3'/2-Zoll- 
Format an. Disketten mit diesem Maß 
gehen mit den Vorteilen der beiden 
anderen Systeme einen guten Kom- 
promiß ein. Sie liegen preislich ziem- 
lich genau in der Mitte zwischen den 
beiden konkurrierenden Größen, ver- 
fügen (mit den entsprechenden Lauf- 
werken) über dieselbe hohe Speicher- 
kapazität wie die 5'4-Zoll-Disketten, 
bieten aber, ähnlich ihrem 3'%-Zoll- 
Pendant, den besseren Schutz der 
empfindlichen Diskettenoberfläche 
vor mechanischer Unbill. Bild 1 zeigt 
je einen typischen Vertreter der drei 
Diskettentypen. Mittlerweile besitzt 
also ein großer Teil der Schneider- 
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Bild 2. Im geöffne- 
ten Controllerge- 
häuse erkennt man 
auf der Platine 
deutlich »Herz« 
und »Gehirn« des 
Controllers: den 
Mikroprozessor 


Bild 1. Die drei für 
CPs erhältlichen 
Diskettenformate: 
3'% Zoll, 3 Zoll, 
und 5/4 Zoll 


765 (FDC) und das „PD 765 Amsdos-ROM 
ROM mit dem DOS 
Schrittmotor 
Lichtschranken i 
’ ! Bild 3. Das ge- 
P Schlitten mit = 
® Miinehmer Schreib-Lese-Kopf öffnete Laufwerks- 


Benutzer ein Diskettenlaufwerk zu sei- 
nem Computer. Leider weiß aber noch 
längst nicht jeder, was in dem »surren- 
den Kasten« genau vor sich geht. Die- 
sem Umstand wollen wir mit unserem 
Beitrag Abhilfe schaffen. Gehören Sie 
schon zu den »alten Hasen«, denen 
man in bezug auf die normale Disket- 
tenhandhabung nichts mehr vorma- 


gehäuse einer 
DDI-1 offenbart das 
Innenleben 


chen kann, sollten Sie auf Seite 38 den 
weiterführenden Beitrag studieren. 
Die Diskettenstation besteht im 
wesentlichen aus Mechanik (dem 
Laufwerk), Elektronik (dem Controller) 
und Software, dem Disc-Operating- 
System - kurz »DOS« genannt (Bild 2). 
Das Gehäuse des Schneider 3-Zoll- 
Laufwerks enthält neben dem Lauf- 
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Happy-Computer 


Ab 26.6.1987 
im r ‘ m 
handel 


im Juli 


CPC und Grafik 

Informieren Sie sich in dieser Ausgabe von Happy- 
Computer über die großartigen graphischen Fähigkeiten 
des Schneiders CPC. 


Desktop Publishing 

Die wichtigsten DTP-Programme haben wir für Sie gete- 
stet. Fortgeschrittene sollten sich den Programmierwett- 
bewerb vormerken, den wir gemeinsam mit Atari veran- 
stalten. 

Bitgedrängel 

Wir beleuchten die Speicherlandschaft der nächsten 
Jahrzehnte, untersuchen günstige Harddisks und stellen 
ein CD-Rom vor, auf dem mehrere hundert MByte Public 
Domain-Software gespeichert sind. 


Schachcomputer de Luxe 
lesen Sie unseren interessanten Erfahrungsbericht über 
den sensationellen »Mephisto Dallas 68020«. 


C64: Listing 

Mit unserem Listing »Happy-Packer« können Programme 
für den C64 im Durchschnitt auf weniger als 70 Prozent 
ihrer ursprünglichen länge gekürzt werden, ohne daß 
ein Bit verlorengeht. 


=... u... 07 


Gutschein | 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER Fordern Sie mit neben- 
stehendem Gutschein 
ein kostenloses Probe- 
heft an. lernen Sie 
»Happy-Computer«, 
das große Heimcom- 
puter-Magazin, völlig 


Straße PLZ, On 5 unverbindlich kennen. 


JA, ich möchte »Happy-Computer« kennenlernen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »Happy-Computer« 
gefällt und ich es regelmäßig weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte »Happy- 
<Computer« dann regelmäßig frei Haus per Post und bezahle pro Jahr nur DM 66,— statt DM 72,— Einzel- 
verkaufspreis (Ausland auf Anfrage) 


Vorname, Name 


Datum l. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann 
und bestätige dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
des Widerrufs 


Datum 2. Unterschrift 


s18 


) 


Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: 
Markt& Technik Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 
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werk auch das Netzteil zur Versorgung 
des Laufwerks und des Controllers mit 
Strom (Bild 3). Für den Betrieb stellt es 
zwei Spannungen von 12 und 5 Volt 
bereit, mit denen es die Laufwerks- 
elektronik zur Signalaufbereitung und 
Motorsteuerung sowie die zwei Moto- 
ren speist. Einer der beiden Motoren 
läßt die in der steifen Plastikhülle der 
Diskette steckende magnetisierbare 
Scheibe (Bild 4) mit 300 Umdrehun- 
gen pro Minute rotieren. Der zweite 
Motor, ein sogenannter »Schrittmo- 
tor«, dessen Achse sich bei jedem 
Stromimpuls um einen bestimmten 
Winkel dreht, ist in der Lage, Bewe- 
gungen mit großer Wiederholgenauig- 
keit auszuführen. Er bewegt einen 
Schlitten mit dem Schreib-/Lesekopf 
(mit einem Tonkopf im Kassettenrecor- 
der vergleichbar) in Schritten, die klei- 
ner sind als ein halber Millimeter. Die- 
ser Kopf magnetisiert die metallisch 
beschichtete Oberfläche der flexiblen 
Kunststoffolie ir bestimmten magneti- 
schen »Mustern«, die beim späteren 
Lesen wieder einen Sinn ergeben. Die 
kleinste Bewegung des Kopfschlittens 
entspricht einer der 40 Spuren 
(Tracks), auf die wir später noch näher 
zu sprechen kommen. 

Ist nun eine 3-Zoll-Diskette im Lauf- 
werk eingerastet, hat sich zuerst beim 
Einführen ihre Schutzabdeckung 
(siehe Bild 1) beiseite geschoben, die 
Drehachse ist im Mittelloch der Dis- 
kette verankert und ein Filz drückt die 
dünne Plastikfolie von oben auf den 


unter ihr liegenden Schreib-/Lese- 
kopf. Daraus ergibtssich, daß die Daten 
immer auf die nach unten gewandte 
Seite der Diskette geschrieben wer- 
den. Ist das Laufwerk in Betrieb, treten 
zwei Lichtschranken (Bild 3) in Aktion. 
Die eine tastet den Schreibschutz der 
Diskette ab, mit der sie sich vor unbe- 
absichtigtem Beschreiben (und damit 
auch Löschen) schützen läßt. Die 
andere erkennt das Indexloch zur Mar- 
kierung einer bestimmten Stellung der 
Diskette. Dort nämlich beginnt der 
erste Sektor jeder Spur. Eine Diskette 
ist also nicht nur in Spuren unterteilt, 
sondern zusätzlich in Sektoren (siehe 
Bild 5). Diese zweite Aufteilung erfolgt 
jedoch nicht mechanisch wie bei den 
Spuren, sondern softwaregesteuert. 
Diese Einteilung der Diskette veran- 
schaulicht der Vergleich mit einer 
Torte: Stellen Sie sich vor, Sie haben 
eine Sahnetorte vor sich. Mit einem 
Messer zerschneiden Sie sie in neun 
gleich große Stücke. Danach ziehen 
Sie mit dem Finger 40 von außen nach 
innen kleiner werdende Kreise. Sie 
haben jetzt - abgesehen von einem 
beschmierten Finger - den Aufbau 
einer Diskette bildlich vor sich. Die 
Kreise entsprechen den Spuren, die 
Stücke den Sektoren. Ein solcher Dis- 
kettensektor beinhaltet bei normaler 
Formatierung 512 Byte beziehungs- 
weise ein halbes KByte. Da auf einer 
Spur jeweils neun Sektoren unterge- 
bracht sind, werden den Sektoren zur 
Unterscheidung beim Formatieren 


fortlaufende Nummern zugeordnet. 
Diese Nummern differieren bei den 
vier Schneider-Formaten. Durch eine 
Überprüfung dieser Sektornummern 
(nach dem englischen Begriff »Identi- 
fier« auch IDs genannt) erkennt das 
DOS bei jedem Diskettenzugriff auto- 
matisch dasmomentane Format. »For- 
matierung« nennt man die Vorberei- 
tung einer noch nicht benutzten, 
neuen Diskette zum ersten Beschrei- 
ben. Bei der Formatierung erfolgt die 
Einteilung in Spuren und Sektoren. 
Währenddessen wird die Diskette 
aber auch auf mechanische Fehler 
geprüft, die einen späteren Datenver- 
lust zur Folge hätten. Bei der Formatie- 
rung ist zwischen diesen vier Forma- 
ten zu wählen: 


- DATA-Format: Es stellt den größten 
Speicherplatz aller vier Formate 
(178 KByte) zur Verfügung. Von einer 
solchen Diskette läßt sich aber kein 
CP/M laden (booten). Es besteht aus 
40 Spuren zu je neun Sektoren. Diese 
Sektoren tragen IDs von C1 hex bis C9 
hex. 


- IBM-Format (genauer gesagt IBM 
CP/M 86 single sided): Es bietet die 
geringste Kapazität (152 KByte), hat 
aber den Vorteil, daß viele andere 
CP/M-Computer dieses Format (zu- 
mindest auf 5"/-Zoll-Disketten) verar- 
beiten können. Seine geringe Kapazi- 
tät erklärtsich daraus, daß es aufjeder 
seiner 40 Spuren nur acht Sektoren 
mit den Nummern 1 bis 8 bereitstellt. 


Schreibschutz-Schieber 


Mitnehmer 


Indexloch 


Bild 4. Hinter der stabilen Plastikhülle verbirgt sich neben 
aufwendiger Mechanik die Kunststoffolie der Diskette 


„Indexloch 


_w- 
Compact 
Floppy Disk 


Bild 5. Schematisch betrachtet sieht so die Aufteilung der 
Diskette nach der Formatierung aus 


Eomurren 
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- CP/M-(System-)Format: Als meist- 
benutztes Format verfügt es über 
169 KByte Speicherplatz. Ahnlich 
dem DATA-Format besteht auch hier 
jede Spur aus neun Sektoren. Diese 
tragen allerdings IDs von 41 bis 49 
hex. Die gegenüber dem DATA-Format 
fehlenden 9 KByte belegt das Be- 
triebssystem CP/M. Da dieses 
Betriebssystem dem Copyright unter- 
liegt, darf man keine Disketten mit die- 
ser Formatierung weitergeben. Des- 
halb gibt es als Abwandlung des 
Systemformats noch das 

- Vendor-Format (deutsch: »Ver- 
käufer«-Format): Es ist von der Disket- 
tenaufteilung her mit dem CP/M- 
Format identisch, jedoch sind die 
CP/M-Spuren frei. Der Grund dafür 
sind die genannten rechtlichen Pro- 
bleme bei der Weitergabe des CP/M. 

Jede Diskette besitzt ein eigenes 
Inhaltsverzeichnis, auch »Directory« 
genannt. Dieses Directory enthält alle 
Informationen, die der Computer 
braucht, um gespeicherte Dateien auf 
der Diskette zu finden und zu laden. 
Der Basic-Befehl CAT zeigt auch dem 
Benutzer die wichtigsten Daten dieses 
Inhaltsverzeichnisses. Für bessere 
Übersicht sorgt dabei die wahlfreie 
Unterteilung des Directory in soge- 
nannte Benutzerbereiche. Der Basic- 
Befehl IUSER schaltet zwischen die- 
sen 16 Bereichen um. 


Wegweiser 
durch den 
»Daten-Dschungel« 


Je nach Format liegt das Directory 
an verschiedenen Stellen. Im DATA- 
Format ist es auf Spur O zu finden, im 
IBM-Format auf Spur 1 und im System- 
Format (einschließlich Vendor- 
Format) auf Spur 2. 

Sehen wir uns nun stellvertretend 
für alle Formate das CPM-Format 
genauer an. Jeder der maximal 
erlaubten 64 Einträge (Dateien) im 
Directory belegt 32 Byte. Daraus 
ergibt sich ein Speicherplatzbedarf 
von 2 KByte pro Directory. Diese 
2 KByte sind übrigens auch dann 
belegt, wenn nur eine oder noch gar 
keine Datei auf der Diskette steht. Der 
erste Directory-Eintrag beginnt am 
Anfang des ersten Sektors der 
Directory-Spur. Bild 6 zeigt zwei typi- 
sche Directory-Einträge als 
Bildschirm-Ausschnitt während der 
Arbeit mit einem Disketten-Editor. Die 
Bytes eines Eintrags (siehe auch 
Tabelle 1) sind wie folgt codiert: 

Byte O0: Die Nummer des Benutzer- 
bereichs, unter der der Eintrag beim 
Befehl CAT oder DIR angezeigt wird. 
Ein Wert von E5 hex (wie im zweiten 


Dateiname mit 
Extension 


Benutzer-Nummer 


vsıD00 
Bı1o 
a1202 
2130 


20 42 
vo vo 80 908 
- 47 AD AF 4E 


L ein] 
=D 80 20 um 008 


ju1%) 


42 


ZA ZB 2 


Nummern der 
belegten Blöcke 


49 


vo Du BD 88 


41 


vo aa Do 


Zahl der belegten 
Records 
4E 00 
a8 
Jo) 
vo 


a@ 
vo 
au Qu 
28 


„MINIMON BIN. ... 


AB 


Bild 6. Der Ausschnitt zeigt zwei Einträge einer beispielhaften Directory 


Dateiname mit Extension 


Benutzer-Nummer 


vaoo 
a010 
2020 
2030 
ao40 


Ladeadresse 


Zwei-Byte-Prüfsumme 


2 Du DD DD\ OD DO 
DB 7E CO 13 "5 


Länge 


(wird beim Umbenennen nicht geändert) 


on oa 00a 
ou on 00 
oR Du aa 


ao 
20 
{7} 
[ln] 


„MINIMÖN BIN.... 


1875 1A 


Startadresse 


Bild 7. Diese Informationen finden Sie (und das DOS) im Datei-Header 


Eintrag in der dritten Zeile von Bild 6) 
sorgt dafür, daß der Computer die 
Datei als gelöscht betrachtet und er 
die durch sie belegten Blöcke der Dis- 
kette überschreiben darf. Hat man 
also eine Diskette mit »IERA,”*.*”« 
gelöscht, sind keineswegs Daten ver- 
loren; die durch Programme belegten 
Sektoren sind nur im Directory als 
überschreibbar deklariert. Deshalb ist 
die versehentliiche Eingabe des 
Löschbefehls auch nicht tragisch, 
denn durch einfache Anderung dieses 
Bytes (mit einem Disketten- 
Monitorprogramm) sind die »gelösch- 
ten« Dateien wieder zum »Leben« zu 
erwecken. 

Byte 1 bis 11: Hier steht der Datei- 
name mit seiner Extension (die drei 
Buchstaben hinter dem Punkt). Danur 
Großbuchstaben vorkommen dürfen, 
wandeln sowohl Amsdos als auch 
CP/M kleingeschriebene Namen bei 
der Eingabe automatisch um. Namen 
mit weniger als acht Buchstaben vor 
dem Punkt füllt das DOS ebenfalls 
automatisch mit Leerzeichen (ASCIl 
32) auf acht Buchstaben auf. Der 
Punkt wird nicht mitgespeichert, da er 
grundsätzlich Verwendung findet und 
damit nur Platz verschwendet würde. 

Byte 9: Deklariertman eine Datei als 
R/O (Read-Only), ist sie nur noch zu 
lesen, nicht aber zu löschen oder zu 
überschreiben. Dazu wird der ASCII- 
Wert des Buchstaben an dieser Posi- 
tion des Dateinamens um 128 erhöht, 
also das Bit 7 gesetzt. Zum Beispiel 
wird aus dem »B« in »TEST.BAS« mit 
dem Code 42 hex ein »TEST.?AS«, 
denn das »?« entspricht dem Code C2 
hex (42 hex plus 80 hex ergibt nämlich 
genau C2 hex). Steht eine solche 
Datei auf der Diskette, ist sie bei CAT 


durch einen Stern hinter der Extension 
gekennzeichnet (bei unserem Bei- 
spiel »TEST.BAS*«). Eine R/O- 
Deklaration wird durch ihr Pendant 
R/W aufgehoben. R/W steht für 
»Read/Write« und besagt, daß diese 
Datei jederzeit gelöscht oder über- 
schrieben werden darf. Alle Dateien 
auf der Diskette befinden sich 
zunächst im R/W-Status. 

Byte 10: Neben der R/O- und R/W- 
Deklaration gibt es auch den SYS- 
Status. SYS steht für »System« und 
besagt, daß der Computer diese Datei 
zwar als existent ansieht und er sie 
somit auch laden und starten kann. 
Bei einem CAT-Befehl jedoch verwei- 
gert das Betriebssystem die Anzeige 
des Eintrags. Diese SYS-Deklaration 
eignet sich unter anderem dazu, die 
Übersicht einer Directory zu erhöhen. 
Besteht beispielsweise ein Programm 
aus mehreren Teilen wie Basic-Lader, 
Maschinencode-Laderoutine, Titel- 
bild, Hauptprogramm und eventuell 
noch einigen Datenfeldern, kann man 
alle Teile außer dem Basic-Lader als 
SYS-Dateien kennzeichnen. Bei 
einem CAT-Befehl erscheint dann statt 
vier oder mehr Namen nur noch ein 
einziger auf dem Bildschirm. Das Ver- 
fahren der Codierung entspricht dem 
bei Byte 9 beschriebenen. 

Byte 12: In diesem Byte ist festge- 
halten, um den wievielten Eintrag für 
die Datei es sich handelt. Ein einzel- 
ner Eintrag reicht aus, um Dateien mit 
einer Länge von bis zu 16 KByte zu 
verwalten. Für umfangreichere 
Dateien (ein Bildschirminhalt belegt 
beispielsweise 17 KByte), benötigt das 
Betriebssystem mindestens einen 
weiteren Directory-Eintrag. Damit 
aber Amsdos die einzelnen Einträge 
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unterscheiden kann, sind sie im 
Byte 12 mit Null beginnend fortlaufend 
durchnumeriert. 

Byte 13 und 14: Sie haben unter 
Amsdos und CP/M keine Bedeutung. 

Byte 15: Hier ist die Zahl der 
Records (Einheiten zu je 128 Byte) ver- 
merkt, die die Datei belegt. Steht hier 
eine 80 hex (128 dez), bedeutet dies, 
daß die Datei noch mindestens einen 
weiteren Directory-Eintrag besetzt. 
Die Einheit »Record« besitzt unter 
Amscdos keine Bedeutung. Sie wurde 
von den Entwicklern nur wegen des 
CP/M aus Kompatibilitätsgründen 
übernommen. 

Byte 16 bis 31: Hier stehen die Infor- 
mationen für das DOS, wo die Datei 
auf der Diskette zu finden ist. Der Spei- 
cherplatz der Diskette ist für jedes der 
vier Formate in Blöcke zu je 1024 Byte 
(ein KByte), also zwei Sektoren zu je 
512 Byte, aufgeteilt. Daher belegt 
auch ein noch so kleines Programm 
auf der Diskette immer mindestens 
1KByte. Der Block entspricht der 
kleinsten Einheit, die Amsdos verar- 
beitet. Sie werden jetzt sicher einwen- 
den, daß sich der Speicherplatz der 
Diskette mit kleineren Blöcken Öökono- 
mischer nutzen ließe. Diese Annahme 
ist sogar richtig - zumindest auf den 
ersten Blick betrachtet. Bei Verwen- 
dung kleinerer Blöcke erhöht sich 
jedoch zwangsläufig auch deren Zahl. 
Da die Blöcke dem DOS maßgeblich 
zur Verwaltung der Diskettendaten 
dienen, wächst mit steigender Block- 
zahl natürlich auch der Umfang der 
Directory immens. Und genau dort 
würden die eben mühevoll gesparten 
Byte wieder verbraucht. Sinnvoll ist 
diese Aufteilung also nur, wenn man 
mit sehr vielen, kleinsten Dateien 
arbeitet. Für die normal gebräuchli- 
chen Dateigrößen aber ist die 
gewählte Blockgröße ein günstiger 
Kompromiß. 

Doch nun wieder zurück zum 
eigentlichen Thema. Die beiden 
Directory-Blöcke sind bei allen Forma- 
ten einheitlich als Block O0 und 1 
codiert. Der erste Block zur Aufnahme 
von Daten ist also Block 2. Die Num- 
mern der Blöcke, die eine Datei auf der 
Diskette belegt, stehen in aufsteigen- 
der Reihenfolge in den letzten 16 Byte 
ihres Directory-Eintrags. Belegt sie 
weniger als 16 Blöcke in einem Ein- 
trag, sind die verbleibenden Byte mit 
Nullen aufgefüllt. 

Der R/O- und SYS-Status läßt sich 
nicht aus dem Basic heraus erzeugen. 
Hierzu bedient man sich des transien- 
ten CP/M-Befehls STAT oder eines der 
zahlreichen Hilfsprogramme (Disket- 
ten-Monitore beziehungsweise -Edi- 
toren), die auch als Public-Domain- 
Software erhältlich sind. 


Im Directory ist keine Unterschei- 
dung zwischen den verschiedenen 
Dateitypen (Basic-, Binär- oder ASCII- 
Dateien) getroffen. Diese Informatio- 
nen stehen im ersten Block der jeweili- 
gen Datei, der den sogenannten 
Datei-Header enthält. Bild 7 zeigt als 
Ausschnitt die ersten 80 Byte eines 
Header-Blocks. Die ersten 66 Byte 
enthalten alle wichtigen Datei- 
Informationen. Die einzige Ausnahme 
machen ASCII-Dateien, für die man 
keine Informationen wie Dateilänge 
oder ähnliches benötigt. Sie besitzen 
also auch keinen Header. Die Byte 0 
bis 11 des Datei-Headers sind mit 
denen des Directory-Eintrags iden- 
tisch (siehe auch Tabelle 2). Das DOS 
benutzt sie jedoch nicht. So verändert 
zum Beispiel ein REN-Befehl 
(Rename=Umbenennen) nur das 
Directory, niemals jedoch den Header. 
Wichtig ist das Byte 18, das die 
Angabe des Dateityps enthält. Ein 
Basic-Programm kennzeichnet die 
Nummer 0. Ist dieses Programm mit 
»SAVE ” NAME” ‚P« gespeichert, also 
gegen das Listen geschützt, findet 
sich hier eine 1. Die 2 steht für eine 
Binärdatei. Inden Byte 21 und 22ist (in 
der Reihenfolge High-, Low-Byte) die 
Ladeadresse angegeben. Für Basic- 
Programme beispielsweise steht hier 
170 hex, gespeicherte Bildschirmin- 
halte beginnen bei C000 hex. Byte 24 
und 25 geben die Länge eines Pro- 
gramms an. Diese ist natürlich ebenso 
variabel (abhängig vom Programm) 
wie die Ladeadresse. In Byte 26 und 
27 folgt nun bei Maschinencode- 
Programmen die Startadresse, sofern 
sie beim Speichern angegeben 
wurde. Diese Angabe ist nötig, will 
man ein solches Programm mit »RUN 
"NAME ” « starten. Alle anderen Byte 
des Datei-Headers sind vom Betriebs- 
system nicht belegt und deshalb mit 
Null-Bytes aufgefüllt. Die folgenden 2 
Byte sind eine Prüfsumme, die sich 
aus der Addition der vorangegange- 
nen 66 Byte berechnen. Anhand die- 
ser Prüfsumme unterscheidet der 
Computer auch zwischen ASCII- 
Dateien und anderen. Stimmt sie näm- 
lich nicht, liegt eine Text-Datei vor. 
Beim Laden eines Programms mit 
Header werden die beschriebenen 
Daten mit in den Arbeitsspeicher 
(RAM) des CPC geladen. Die Lade- 
adresse für die einzelnen Header- 
Daten variiert. Die wichtigsten Anga- 
ben jedoch, Dateityp und Adressen 
beispielsweise, stehen ab AE42 hex. 
Sie lassen sich also sehr einfach für 
eigene Zwecke verwenden. 

In erster Linie wird eine Diskette 
zum Speichern von Programmen mit 
dem Basic-Befehl »SAVE ”NAME”« 
genutzt. Sie können ein Basic- 


Programm aber auch als ASCII-Datei 
speichern, indem Sie den Befehl 
»SAVE ” NAME” ‚A« (»A« für »ASCll«) 
verwenden. Auch haben Sie die Wahl, 
ein Basic-Programm so zu speichern, 
daß man es nach dem Laden nicht 
mehr listen kann. Die Befehlsfolge 
hierfür lautet »SAVE ”NAME”,P«. 
(Das »P« steht für »Protected«, also 
deutsch: geschützt). Bei praktischen 
Anwendungen (Textverarbeitung, 
Datenverwaltung und ähnlichem) wer- 
den aber oft weniger Programme als 
vielmehr Daten auf Diskette ausgela- 
gert. Will man zum Beispiel die Inhalte 
der beiden Textvariablen <a$> und 
<b$> auf Diskette ablegen, benutzt 
man folgende Programmzeilen: 
OPENOUT ”NAME” 

PRINT #9,a$,b$ 

CLOSEOUT 


Disketten 
in der Praxis 


Für das Laden der so gespeicherten 
Daten benutzt man diese Zeilen: 
OPENIN ”NAME” 

INPUT#9,a$,b$ 
CLOSEIN 

Mit der beschriebenen Methode las- 
sen sich natürlich auch numerische 
Variablen (die Zahlenwerte beinhal- 
ten) auf Diskette speichern. Um einen 
Text einzulesen, dessen Länge nicht 
bekannt ist, findet folgendes Pro- 
gramm Verwendung: 

OPENIN ”NAME” 
WHILE NOT EOF 
INPUT #9,a$ 
PRINT a$ 
WEND 
CLOSEIN 

Die Systemvariable EOF (»End Of 
File«, also »Ende der Datei«) nimmt 
den Wert -1 an, wenn der letzte Daten- 
satz der Datei gelesen ist, ansonsten 
ist sie gleich Null. 

Will man einen Teil des Arbeitsspei- 
chers auf Diskette ablegen, benutzt 
man den Befehl 
SAVE ”NAME”,b,anfang,länge,start 
wobei <anfang> der Adresse des 
ersten Byte entspricht und <länge> 
der Anzahl der Bytes. <start> gibt die 
Startadresse an, bei der ein 
Maschinencode-Programm nach dem 
Laden startet. Oft zum Einsatz kommt 
das Speichern von Computergrafiken. 
Die Befehlsfolge 
SAVE ”BILDNAME”,b,&C000, &4000 
legt das sichtbare Monitorbild unter 
dem Dateinamen »BILDNAME« auf 
Diskette ab. Zum Laden genügt ein 
einfaches 
LOAD ”BILDNAME” 

Es ist wichtig darauf zu achten, daß 
sich vor dem Laden eines Bildes der 
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Bildschirm nicht nach oben verscho- 
ben hat, also gescrollt wurde. Daher 
müssen Sie vor dem Laden des Bilds 
mit einem MODE-Befehl den Modus 
setzen, in dem es gespeichert wurde. 
Haben Sie vor dem Speichern die 
Farbregister des Computers mit INK- 
Befehlen verändert, ‚müssen Sie diese 
auch vor dem Laden wieder eingeben, 
da sie nicht mit gespeichert sind. 

Um auf einen anderen Benutzer- 
Bereich der Diskette zu wechseln 
(siehe oben), verwenden Sie den 
Befehl 
| USER, nummer 

Der erlaubte Wertebereich der 
Variablen <nummer > liegt zwischen 
0 und 135. 

Wollen Sie eine Datei auf der Dis- 
kette umbenennen, benutzen Sie den 
Befehl REN (steht für Rename). Er ver- 
langt als Parameterübergaben den 
neuen und den alten Dateinamen. 
a$ß="altname” 
b$="neuname” 
| REN, @b$,@a$ 

Auch das gezielte Löschen einer 
Datei von der Diskette ist kein Pro- 
blem: 
a$="BEISPIEL.EXT” 
lERA,@a$ 
löscht nur die Datei mit dem Namen 
»BEISPIEL.EXT«. Wahlweise lassen 
sich aber auch mehrere Dateien mit 
einem Befehl löschen. Um beispiels- 
weise alle Backup-Dateien (.BAK) zu 
löschen, die bei mehrmaligem Spei- 
chern eines Programms unter demsel- 
ben Namen automatisch entstehen, 
genügt die Anweisung 
a$="x.BAK” 
lERA,@a$ 

Das Zeichen »*« ist eine soge- 
nannte »Wildcard« oder auch »Joker«. 
Es steht für eine beliebige Anzahl und 
Art von Buchstaben. Also löscht das 
Betriebssystem mit diesem Befehl alle 
Dateien, deren Extension »BAK« lau- 
tet. Eine komplette Diskette (nämlich 


alle Dateien) löscht demzufolge 
a$="x.x” 
lERA,@a$ 

Die zweite Wildcard, »?«, steht stell- 
vertretend für einen einzelnen, belie- 
bigen Buchstaben. So spricht »*.BA?« 
alle Dateien an, deren Extension mit 
der Buchstabenkombination »BA« 
beginnt; also nicht nur die Backups 
(»BAK«) sondern zum Beispiel auch 
Basic-Programme mit der Extension 
»BAS«. 

Weitgehend unbekannt ist die 
Fähigkeit des Amsdos, wahlweise ein 


Benutzer-Nummer (E5 hex 
bedeutet gelöscht) 

Name mit Extension (ohne 
"Punkt) 

Nummer des Directory- 


| Eintrags (beginnt bei 0) 
13 bis 14 | unbenutzt (immer 0) 
15 Anzahl der belegten Records 
(zu je 128 Byte) 
belegte Blöcke, mit Nullen 
aufgefüllt : 


16 bis 31 


[Byte T Beschreibung 
[0 | BenutzerNummer | 
Name mit Extension (ohne 
Punkt) 
21 und 22| Ladeadresse des Programms 
(170 hex für Basic) 
EITEIE 


Dateityp 
Startadresse des Programms 


Tabelle 1. Byte-Belegung eines 
Directory-Eintrags 
0=Basic-Programm 
1=geschütztes Basic- 
Programm 
67 und 68 | Prüfsumme über die ersten 
.66 Byte des Headers 
Tabelle 2. Byte-Belegung eines Datei- 
Headers 


Directory selektierter Dateien auszu- 
geben. Anstelle des CAT-Befehls ver- 
wendet man dann einfach den Befehl 
IDIR. Allerdings fehlt gegenüber CAT 
die Angabe der Dateilängen auf dem 
Bildschirm. Wollen Sie sich einen 
Überblick über alle Basic-Programme 
auf einer Diskette verschaffen, ver- 
wenden Sie die Befehle 

a$="x.BAS” 

IDIR,@a$ 

Besitzer zweier Diskettenlaufwerke 
schalten mit »lA« und »IB« zwischen 
den beiden Laufwerken hin und her. 
Aber auch mit gewähltem A-Laufwerk 
läßt sich ohne Umschaltung direkt 
vom Laufwerk B laden: 

LOAD ”B:NAME” 

Im Dateinamen darf man bei 
»LOAD« auch noch die Nummer des 
Benutzer-Bereichs angeben, in dem 
eine Datei gespeichert ist. Soll bei- 
spielsweise ein Programm aus dem 
Benutzer-Bereich 12 vom B-Laufwerk 
geladen werden, lautet der Befehl 
LOAD ”12B:NAME” 

Ebenfalls vielfach unbekannt ist der 
Befehl DRIVE. Mit ihm läßt sich, 
abhängig vom Inhalt einer Variablen, 
das Laufwerk selektieren. 
a$="B” 

IDRIVE,@a$ 
bewirkt dasselbe wie »IB«. 

Bei den CPCs 664 und 6128 darf 
man den Amsdos-Befehlen Datei- 
namen auch direkt übergeben. Also 
lassen sich Befehlsfolgen wie 
aß="x.BAK” 
| ERA,@a$ 
durch 
ERA, "x.BAK” 
ersetzen. Wenn Sie noch tiefer in den 
Umgang mit den Schneider-Disketten- 
laufwerken einsteigen wollen, folgen 
Sie uns bitte im zweiten Teil dieses 
Beitrags ab Seite 38 auf unserer Ex- 
kursion in die vielfältigen Fähigkeiten 
des DOS und Controllers. 

(Oliver Suttorp/ja) 


[Sekoraı [Sokor26 ] SoXor 32] Sekior #7 | Sexor #3 [Sexor a8 ] Sewor24 [Sewor 9 ] Semoras]Seworsı [Senoras] 


Eine Diskette im CPC-Systemformat besteht inklusive der Directory und beider Systemspuren aus: 


1440 Records zu je 128 Byte 


360 Sektoren zu je 512 Byte (vier Records) 
180 Blöcken zu je 1024 Byte (acht Records beziehungsweise zwei Sektoren) 
40 Spuren zu je 4608 Byte (4,5 Blöcke beziehungsweise neun Sektoren beziehungsweise 36 Records) 


Bild 8. Schematische Unterteilung einer Spur des CP/M-Formats 
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Was die Floppy sonst 


Wenn Sie sich bereits den 
ersten Teil des Beitrags einver- 
leibt haben, verfügen Sie über 
die nötigen Grundlagen für 
diese Fortsetzung. Wir steigen 
nun gemeinsam hinab in die 
Tiefen des DOS. 


ie in der Einführung ab Seite 
D: dieser Ausgabe beschrie- 

bene Art der Diskettenpro- 
grammierung ist die einfachste und 
oberflächlichste.e. Wir wollen sie 
als Stufe 1 bezeichnen, denn hier 
nimmt das Betriebssystem dem 
Anwender den Großteil der Arbeit aus 
den Händen. Er muß sich nur darum 
kümmern, genügend Platz auf einer 
formatierten Diskette bereitzustellen. 
Von den Problemen, die das DOS 
automatisch bewältigt, bemerkt er 
nichts. Ähnlich sieht es in der Stufe 2 
aus. Sie ist nicht mehr in Basic zu pro- 
grammieren, man muß sich auf die 
Ebene der Maschinensprache-Pro- 
grammierung hinunterbegeben. Aber 
keine Angst - durch die im Betriebs- 
system enthaltenen Vektoren gestaltet 
sich diese Programmierung recht ein- 
fach. Auch hier brauchen Sie sich 
nicht um die Verwaltung der Diskette 
zukümmern. Sie müssen lediglich der 
jeweiligen ROM-Routine die nötigen 
Parameter übergeben, den Rest be- 
sorgt das DOS. 

Tabelle 1 zeigt eine Liste der wichtig- 
sten Vektoren mit ihren Übergabepa- 
rametern. Damit läßt sich wie mit den 
äquivalenten Basic-Befehlen arbei- 
ten, wenn man über zumindest rudi- 


E:B = Länge des Dateinamens 
DE = Adresse eines 2-KByte-Puffers 
HL = Adresse des Dateinamens 


A:NC = Fehler aufgetreten 


HL = Adresse des Datei-Headers 
DE = Original-Ladeadresse der Datei 


BC83 E:HL = Ladeadresse Einlesen einer geöffneten Datei 
A:NC = Fehler aufgetreten (kein Puffer nötig) 
E- 


Lesen eines Zeichens aus einer 
 (ASCII-)Datei 
(Puffer nötig) 


AA = Zeichen (1A hex=EOF) 
NC = Fehler aufgetreten 


E:B = Länge des Dateinamens 
DE = 2-KByte-Puffer 
HL = Adresse des Dateinamens 


A:NC = Fehler aufgetreten 
HL = Adresse des Datei-Headers 


Eröffnen einer Datei zum Lesen 


mentäre Kenntnisse der Assem- 
bler-Programmierung verfügt. Als Bei- 
spiele mögen Ihnen Listing 1 und 2 
dienen, die jeweils eine (Binär-) Datei 
laden beziehungsweise speichern. 
Wie Sie sehen, lassen sich mit dieser 
Art der Programmierung Speicherin- 
halte fast so einfach wie unter Basic 
speichern und laden. Sie dürfen die 
Dateien jedoch im Gegensatz zum 
Basic an jede beliebige Speicher- 
adresse laden. Sie müssen dabei nur 
darauf achten, keine Betriebssystem- 
Bereiche und -Variablen zu über- 
schreiben. Der Speicher von Adresse 
40 hex bis etwa A600 hex und von 
C000 hex bis FFFF hex steht norma- 
lerweise frei zur Verfügung. 

Mit der Vektorenbenutzung ist es 
noch immer nicht möglich, auf Daten 
einer Diskette direkt zuzugreifen. 


Immer noch kümmert sich das Ams- 
dos darum, auf welche Sektoren die 
Daten »wandern«. Dasändertsich erst 
in der Stufe 3 der Diskettenprogram- 
mierung. Sie geht auf alle Wünsche 
des Anwenders hinsichtlich des Dis- 
kettenzugriffs ein, erfordert aber fort- 
geschrittene Kenntnisse der Assem- 
bler-Programmierung sowie tiefgrei- 
fendes Wissen um die Datenorganisa- 
tion. Den letzteren Aspekt wollen wir 
Ihnen vermitteln. Im folgenden erfah- 
ren Sie deshalb, wie Sie auf einzelne 
Sektoren und Spuren zugreifen, Spu- 
ren formatieren und Fremdformate 
verarbeiten. Nehmen Sie keine Dis- 
kette mit wichtigen Daten als Ver- 
suchsobjekt, denn es ist zu minde- 
stens 95 Prozent sicher, daß solche 
Daten schon bei den ersten Versu- 
chen das Zeitliche segnen. 


; Laden einer Binärdatei in Assembler 
; entspricht dem Basic-Befehl ))LOAD ”TEST.BIN”(( 


; 
LOAD 


HL,NAME 
B,8 

DE,&4000 ; 
&BC77 


DE,HL 
HL,&CO00 ; 
&BC83 
&BC7A H 


; 
NAME 'TEST.BIN' 


;‚ Startadresse des Namens 

; Anzahl der Buchstaben 

Puffer, in diesem Fall nicht nötig) 
; Eröffne Eingabedatei 


; Original-Ladeadresse übernehmen 
Beispiel: Ladeadresse C000 hex) 


; gesamte Datei laden 


Eingabedatei schließen 


Listing 1. Eine Assembler-Routine zum Laden einer Binärdatei via 


Systemvektoren 


E:A = 0 für Basic-Programm 


Schreiben eines kompletten 


= 1 für geschütztes Basic-Programm | Speicherbereichs 


= 2 für Binärdatei 


(kein Puffer nötig) 


= 6 für ASCII-Datei 
HL = Anfangsadresse 
DE = Anzahl der Byte 


BC = Startadresse (nur bei 
Maschinencode-Programmen) 


A:NC = Fehler aufgetreten 


E: und A: stehen für Übergabeparameter 
(Ein- und Ausgabe); 
NC bedeutet »No Carry-Flag« 

A, BC, DE und HL sind die Z80-Register 


Schneider 


fessionelle Grafikprogramme 
ur Schneider CPC 6128 +Joyce 


N 
CPC/Joyce-Software 


Damau 


DR Draw 


FROM #9 DIGITAL RESEARCH" THE CREATORS OF CM 
DR Draw: macht aus Ihren Ideen ein Kunstwerk 


3"-Diskette für den Schneider CPC 6128 
und Joyce PCW 8256 


DR Draw: 

Macht aus Ihren Ideen 
ein Kunstwerk. 
Verwenden Sie DR Draw, 
um Organisations-Dia- 
gramme, Flußdiagramme, 
Logos, technische Zeich- 
nungen, Schaubilder, 
Platinenentwürfe und jede nur erdenkliche Art von Linien- und 
Formgrafiken zu entwerfen. Jeder Bestandteil Ihrer Zeichnung 
kann auf vielfältige Weise durch Farben und Schraffuren 
hervorgehoben werden. 


Die Fähigkeiten auf einen Blick: 


@ Erstellung beliebiger Zeichnungen 

@ vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, 
Kreisbögen, Polygone und Linien 

@ freie Wahl der Gestaltungselemente wie Farben, Muster und 
Schriftarten 

@ Vergrößerungen und Ausschnittdarstellungen 

@ Teile einer Zeichnung können kopiert, verschoben oder 
gelöscht werden 

@ Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 


DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem 
oder zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder 
Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen 
Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 


Diese Markt & Technik-Software-Produkte 
erhalten Sie in den Computer-Abteilungen 
der Warenhäuser, bei Ihrem 
Computerfachhändler, im Buchhandel oder 
direkt beim Verlag gegen Vorauskasse. 


oe 
CPCJoyce-Software 


K DIGITAL 


DR Graph 


FROM #6 DIGITAL RESEARCH" THE CREATORS Of CDM 
DR Graph: Präsentationsgrafiken mit 
3"-Diskette für den Schneider CPC 6128 
und Joyce PCW 8256 


DR Graph: 
Präsentationsgrafiken 
mit professionellem 
Niveau. 

DR Graph ist ein interakti- 
ves Softwarepaket, mit 
dem Sie Ihren Mikro- 
computer zur Erstellung 
von Geschäftsgrafiken und Text-Charts verwenden können. 


Die Fähigkeiten auf einen Blick: 

@ Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Gra- 
fiken, Strich-Histogramme, Punkte-Grafiken und Text-Grafiken 

@ freie Wahl der Gestaltungselemente wie Beschriftungen, Titel- 
zeilen, Legenden, Farben, Schriftarten und Ränder 

@ frei wählbare Skalierung 

@ variable Linien- und Balkenbreite 

@ Schnittstelle zu anderen Programmen 

®@ beliebig positionierbare Anmerkungen 

@ Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


Hardwarevoraussetzungen: 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit 
einem oder zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker 
nder Plotter ausgegeben werden, für den ein GSX-Treiber verfügbar ist. Dazu 
zählen Schneider-, Epson- und Shinwa-Drucker sowie der Plotter HP 7470A. 
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; Speichern einer Binärdatei in Assembler 
; entspricht dem Basic-Befehl ))SAVE ”TEST.BIN”,B, 
&C000, &3FFF,&C000( ( 


’ 
SAVE LD HL,NAME 


; Adresse des Namens 


LD ; Anzahl der Buchstaben 


( LD 
CALL 


; Puffer, in diesem Fall nicht nötig) 
; Eröffne Ausgabedatei 


LD ; Kennzeichen für Binärdatei 


LD HL,&CO00 ; 
LD DE,&3FFF ; 
LD BC,&C000 ; 
CALL &BC98 


CALL &BC8F ; 


; 
NAME DEFM 'TEST.BIN' 


ab Adresse CO00 hex 

3FFF hex Byte speichern 
Startadresse, wenn Programm) 
; gesamte Datei schreiben 


Schließe Ausgabedatei 


Listing 2. Das Programm zum Speichern unterscheidet sich nur 


wenig von der Laderoutine 


Wie Sie bereits wissen, ist eine Dis- 
kette in Spuren und Sektoren unter- 
teilt. Normalerweise besteht jede Spur 
aus neun Sektoren zu je 512 Byte. Für 
die Unterscheidung dieser neun Sek- 
toren ordnet der Computer jedem Sek- 


tor einer Spur beim Formatieren eine 
eigene Nummer zu. Diese soge- 
nannte ID steht direkt vor dem eigentli- 
chen Datenfeld. Das vier Byte große 
ID-Feld hilft dem Controller bei der 
Identifizierung des folgenden Sektors. 


Ah hex E:A=0 (Meldungen aus) Feine der Disketten- 
A=FF hex (Meldungen ein) lermeldungen 
| 82hex | C60D hex | E:HL=Tabellenadresse Laufwerks-Parameter ändern 
a Br I er 


Motor-Start-Zeit (so Sek.) 
Motor-Stop-Zeit ("so Sek.) 
GAP-Länge (normal AF hex) 
nicht benutzt 
83 hex| C581 hex| E:A=Format (ID) 
1: IBM 
65: System 
93: DATA 
84 hex| C666 hex| E:E=Drive D=Spur Lesen eines Sektors von 
C=Sektor HL=Puffer Diskette 
85 hex| C64E hex| E:E=Drive D=Spur Schreiben eines Sektors 
C=Sektor HL=Puffer 
86 hex| C652 hex| E:E=Drive D=Spur Spur formatieren 


Steprate in ms (normal 12) 
Head-Unload-Time (32 ms) 
C=erster Sektor der Spur 
HL=Adresse der Para- 


Head-Load-Time (16ms) 
metertabelle: 


Einstellen der Format- 
KERN 


Parameter im RAM 


| 87 nex) hex| C763 hex en positioniere Kopf über Spur 


CI C630 hex| E:A=Laufwerk (0 für A; 1 
für B) Laufwerk verfügbar? 
A:C=Laufwerk ready 
89 hex| C603 hex| E:A=Anzahl (0=256) Anzahl der Leseversuche bei 
Lesefehlern 


E: und A: stehen für Übergabeparameter (Ein- und Ausgabe) 
C bedeutet gesetztes Carryflag 
A, BC, DE, und HL sind die Z80-Register 


vr so eg für alle 


Tabelle 2. Die »ver- 
borgenen« RSX- 
Befehle des Ams- 
dos sind nur per 
Maschinen- 
Programmierung 
zugänglich 


" ASCII-Disk-Monitor 


" Dliver Suttorp, 
" 5024 Fulheim, 


68 MEMORY 


rack 


LOCATE 1,24:FRINT"Sektor :"; 


LOrFFF 

78 trackadr=%AD1B: sekadr=L.AB12 

88 FOR i=%ADBUO TO LABIA:READ as 

9B FOKE i,VAL("R"+a&): NEXT 
DATA 21,1A,AQB,CD,D4,EC,22,1B,AQ 
DATA 79,32,1D,AB,1E,82,16,B8B,BE 
DATA 90,21,208,98,DF,1E,AB,C9,84 
MODE 2: INK 8,8: INK 
OPENOUT "d": 
LDOCATE 1,23: INPUT 


Im ersten Byte ist zur Kontrolle noch 
einmal die momentane Spurnummer 
vermerkt. Das zweite Byte ist für den 
Betrieb der Schneider-Laufwerke un- 
interessant, da sie nur mit einem 
Schreib-/Lese-Kopf arbeiten. Deshalb 
steht hier immer eine Null. Bei 
Doppelkopf-Laufwerken bestimmt die- 
ses Byte, auf welche Diskettenseite 
zugegriffen wird. Das dritte Byte ist 
nun die Sektor-ID, diemanbeimLesen 
und Schreiben eines Sektors natürlich 
immer mit angeben muß. Das DOS 
vergleicht die gesuchte ID mit der des 
aktuellen Sektors. Sind die Werte 
identisch, greift es auf diesen Sektor 
zu, ansonsten sucht es weiter. Das 
vierte und letzte Byte ist das interes- 
santeste von allen. Mit ihm läßt sich die 
physikalische Größe eines Sektors 
festlegen. Man ist nämlich nicht auf 
512 Byte pro Sektor beschränkt, son- 
dern kann zwischen 256, 512, 1024, 
2048 und 4096 Byte wählen. Da für 
diese Kapazitäts-Festlegung nur ein 
Byte zur Verfügung steht, erfolgt sie 
verschlüsselt. Den genannten Werten 
entsprechen in dieser Reihenfolge die 
Zahlen 1, 2, 3, 4 und 5. 

Um dem Programmierer auch in 
dieser Stufe die Arbeit zu erleichtern, 
haben sich die Programmierer des 
Amsdos etwas Besonderes einfallen 
lassen: Jede wichtige Funktion ist als 
RSX-Befehl ins Betriebssytem einge- 
bunden. Diese Befehle in Form einer 
»residenten System-Erweiterung« er- 
lauben einen komfortablen Aufruf der 
Routinen. Doch noch einen weiteren 
wichtigen Vorteil bietet diese Technik. 
Die Adresse des Befehls läßt sich 
nämlich durch eine Betriebssystem- 
Routine (KL-FIND-COMMAND) auto- 
matisch berechnen. Falls es jemals 
eine geänderte Version des Amsdos 


TEZFCI 
[6852 

[BBES] 
[817A] 
[6158] 
[B1SE] 
[11E6] 
[8B26] 
TEQSöB] 
[68BA] 
[6132] 
[CSSE] 
LEC78] 
[3092] 

"st 


Johannisstr. 64 
Tel.: 32238/56368 


1,26:BORDER ® 
CLOSEOUT: ° Login 
"Track : (90-39 
[DZAE] 
[A9DA]I 


IF FEEK (A895) =179 THEN PRINT" (&c1- 


ca"; 


£ECB7AI 


IF FEEKE (LA895)=178 THEN PRINT" (&A1-% 


a9)"; 


[BEAE]I 


IF PEEK (%A895)=155 THEN PRINT" (1-8)" 


InruT sek 


FOKE trackadr ,‚track:FOKE sekadr ‚sek 


CALL LABDR 


LOCATE 1,1:FOR i=%90208 TO S91FF 
a=PEEK(i): IF a<s32 
FRINT CHR& (a); 


GOTO 158 


[124C] 
[BO4A] 
[1302] 
[7ECE] 
LIFE] 
L8B2A]I 
[6696] 
[C24E] 


THEN a=46 
:NEXT 


Listing 3. Dieser ASCII-Monitor zeigt Ihnen den Inhalt 
eines beliebigen Diskettensektors 


40 


; Lesen eines Diskettensektors in Maschinensprache 


’ 
HL,BEFEHL ; 
&BCD4 
(ADR) ‚HL 
A,C 
(ROMNR) ‚A 


E, 
D, 


C,1 
HL,BUFFER 
&18 

DEFW 


Adresse des Befehlscode 
; Suche RSX-Befehl (KL-FIND-COMMAND) 
; Adresse speichern 


; ROM-Nummer sichern (normal 7) 


0 ; Drive nach E (0=A; 1=B) 

1 ; Spurnummer nach D (0 bis 42) 

; Sektor-ID (-Nummer) 

; Adresse des Puffers nach HL 

; FAR-CALL zur gesuchten Adresse 
; Zeiger auf Adresse 


; und zurück 


BUFFER &200 
ROMNR DEFS 1 
BEFEHL DEFB &84 


; 512-Byte-Puffer für Sektorinhalt 
; ein Byte Speicher für ROM-Nummer 
; RSX-Befehlscode (Sektor lesen) 


Listing 3a. Der Assembler-Quellcode der kurzen Maschinencode-Routine im 
ASCII-Monitor zeigt, wie man in Maschinensprache einzelne Sektoren liest 


geben sollte, sind dann auch noch 
»alte« Programme ohne Anpassung 
lauffähig. 

Die insgesamt neun RSX-Befehle 
stehen in Tabelle 2. Bei der Durchsicht 
dieser Tabelle werden Sie feststellen, 
daß es jetzt bei den Diskettenzugriffen 
nicht mehr um Dateien geht. Auch 
Directory oder Blöcke sind für diese 
Routinen ein Fremdwort. Vielmehr 
richten sich Zugriffe jetzt gezielt auf 
einzelne Sektoren der Diskette, was 
Sie anhand einiger kleiner Beispiele 
nachvollziehen können. Listing 3 liest 
einen Sektor von Diskette und stellt 
dessen Inhalt in Form von ASCIl- 
Zeichen auf dem Bildschirm dar. Es 
besteht aus dem Basic-Hauptpro- 
gramm und einer wenige Byte umfas- 
senden Maschinencode-Routine zum 
Lesen des Sektors. Den ausführlich 
dokumentierten Assembler-Quell- 
code dieser Routine zeigt Listing 3a. 
Die Ermittlung der Befehlsadresse 
mag Ihnen zunächst etwas aufwendig 
erscheinen, sie hat aber wie bereits 
weiter oben erwähnt den Vorteil, daß 
das Programm auf allen ROM-Versio- 
nen läuft, also beispielsweise auch 
unter dem VDOS der Vortex-Lauf- 
werke. 

Der Rest der Routine besteht im 
wesentlichen nur noch aus dem 


Records pro Spur (9 Sektoren mal 4 Records) 


-Maske 


A895 bis AB96 ar maximale Zahl der Blöcke 


170=System und Vendor 


Laden der benötigten Register zur 
Parameterübergabe und dem Aufruf 
der Betriebssystemroutine mittels 
eines FAR-CALL (RST 18). Das auf 
den RST-Befehl folgende Byte deutet 
auf eine Tabelle, in der die Adresse 
und die ROM-Nummer der Routine 
stehen. In diesem Fall lautet die 
Adresse C666 hex im ROM Nummer 7. 
Diese »umständliche« Programmie- 
rung hat den weiteren Vorteil, daß 
durch einfache Anderung eines ein- 
zelnen Byte, des Befehls-Byte (letztes 
Byte in den DATA-Zeilen), in 85 hex 
der Sektor nicht gelesen, sondern 
geschrieben wird. Der Aufbau des 
Basic-Programms ist sehr leicht über- 
schaubar. Zeile 140 dient dazu, das 
RAM mit den Formatwerten der der- 
zeitigen Diskette zu laden. Die Zeilen 
170 bis 190 stellen anhand der Zahl 
der freien Blöcke fest, welche IDs auf 
der Diskette Verwendung finden. Die 
Angabe falscher IDs führt nämlich zur 
Fehlermeldung »READ FAlL«, da 
dann der FDC (»Floppy-Disc- 
Controller«) vergeblich nach dem Sek- 
tor sucht. 

Damit sind wir bei den RAM- 
Speicherbereichen des DOS ange- 
kommen, denen wir einen wesentli- 
chen Teil unserer Aufmerksamkeit 
schenken müssen. Sie enthalten 


C 


bis 
bis 


ABB9 bis ABCE 


Bra 


A91A und AY1B | A890 hex 
A92A und AY2B| A8DO hex 


Informationen, die sonst nur schwer 
zugänglich sind. So halten wir den 
Programmieraufwand in Grenzen. 
Wurde einmal unter Basic auf die ein- 
gelegte Diskette zugegriffen, ist sie 
»eingelogt«, das heißt die Formatpara- 
meter des augenblicklichen Disket- 
tenformats sind im RAM abgelegt. Das 
»Login« einer Diskette geschieht am 
einfachsten mit der Befehlsfolge 
OPENOUT ”DUMMY” 

CLOSEOUT 

(Die Bezeichnung »DUMMY« steht 
für einen beliebigen Dateinamen und 
besagt, daß diese Datei nur temporär 
genutzt wird und deshalb hinterher 
auch nicht im Directory steht.) Jetzt 
sind im DPB (Disk Parameter Block) 
wichtige Informationen zu finden, die 
sich ohne Probleme unter Basic mit 
PEEK auswerten lassen. In Adresse 
A895 hex steht beispielsweise die 
maximale Anzahl der Blöcke der ein- 
gelegten Diskette. Uber diesen 
Umweg kann man das Format der Dis- 
kette feststellen, da jedes der Disket- 
tenformate eine andere Kapazität hat 
(170 entspricht dem System- und 
Vendor-, 179 dem DATA- und 155 dem 
IBM-Format). Ab Adresse A8B9 hex 
liegt die sogenannte »Allocation 
Table«, in der 22 Byte die Belegung der 
Diskette codieren. Gesetzte Bits ste- 
hen für belegte Blöcke, nicht gesetzte 
für freie. Mit dem Umweg über diese 
Tabelle ist der freie Speicherplatz 
einer Diskette aus dem Basic leicht 
festzustellen. Das ist wichtig, will man 
aus einem Programm heraus Daten 
auf Diskette speichern. Ist die Diskette 
nämlich voll, führt der Versuch zur 
DOS-Meldung »Disk full«e und zur 
Unterbrechung des laufenden Pro- 
gramms. Eine Liste der wichtigsten 
DPB-Adressen ist in Tabelle 3 zu fin- 
den. Ein Beispiel zur automatischen 
Formaterkennung und Ermittlung des 
freien Speicherplatzes sehen Sie im 
Listing 4. Dieses Programm macht 
ausschließlich Gebrauch von den 
beschriebenen Adressen. 

Mit dem ASCII-Monitor aus Listing 1 
lassen sich, wie Sie wissen, be- 
stimmte Sektoren der Diskette lesen 
beziehungsweise schreiben. Doch 


Directory-Größe (codiert: entspricht 2 Blöcken. 
also 2 KByte) 


Directory-Einträge pro Record 
vom System belegte Spuren: 
2=System und Vendor 
0=DATA 
1=1BM 


‚Allocation-Table (nach jedem Login steht ein 
gesetztes Bit für einen belegten Block) 


Zeiger auf DPB (Laufwerk A) 
Zeiger auf DPB (Laufwerk B) 


" Disk-Parameterabfrage 


* Oliver Suttorp, 
" 5824 Fulheim, 


Tel.: 


OFENOUT "d":CLOSEOUT: "Login 


aktdrive=PEEK (%A79B) : "aktuelies Drive 


holen 


"Anzahl der Blocks (formatabhaengig) 
98 blocks=PEEK (LABIStaktdrive*64) 
180 IF blocks=177 THEN format#="DATA" 
118 IF blocks=178 THEN format#="SYSTEM" 
128 IF blocks=155 THEN formatt="TEM" 


Johannisstr. 
82279/56368 


LEED2I PRINT 


[4852 
64 TaBEsö] 
[8174] 
[6158] 
t[ICF4] 


Block-Flans 


anz=® 
tıDıA? 
[&s5EC] 
C4FCQ] 
TEsE6] 
[26&C] 
L735A]I 


2z0 
238 FRINT 


"kB frei !" 


Listing 4. Ein Programm zur Analyse des Disk-Parameterblocks 


damit sind Sie noch immer auf die 
Standardformate System, DATA und 
IBM beschränkt. Andere (Fremd-)For- 
mate können Sie noch nicht bearbei- 
ten. Doch was ist überhaupt ein 
Fremdformat? Einfach ausgedrückt 
ist das ein Diskettenformat, das der 
CPC von Haus aus nicht erkennt, also 
auch nicht lesen oder schreiben kann. 
Demzufolge sind derartige Disketten 
auch mit normalen Kopierprogram- 
men wie »Disccopy« nicht zukopieren. 


Damit ist auch die Hauptanwendung 
von Fremdformaten klar: Sie ergeben 


einen guten Kopierschutz. Um Pro- 
gramme gegen unerwünschtes Kopie- 
ren zu schützen, ist es ratsam, wich- 
tige Teilprogramme in einem Fremd- 
format zu speichern. Diese Teile benö- 
tigen dann natürlich spezielle eigene 
Laderoutinen. 


Zur Erzeugung eines »Fremdfor- 
mats« muß die Diskette zunächst - wie 
jede Diskette - formatiert werden. 
Allerdings nicht mit dem Programm 
»Format« oder »Disckit« der System- 
diskette, sondern durch eine eigene 
Formatierroutine. Das Formatieren ist 
fast so einfach wie das Lesen und 
Schreiben eines Sektors. Es ge- 
schieht ebenfalls über einen »ver- 
steckten« RSX-Befehl. Der Befehl 86 
hex verlangt im Prozessor-Register E 
die Laufwerksnummer und in D die 
Nummer der zu formatierenden Spur. 
Im C-Register teilen Sie der Routine 
den ersten Sektor mit, der auf die Spur 
geschrieben werden soll. Über das 
Doppelregister HL übergeben Sie nun 
einen Zeiger, der auf eine Tabelle mit 
den ID-Informationen deutet. In dieser 
Tabelle müssen die Werte aller Sekto- 
ren vermerkt sein, die später im jewei- 
ligen ID-Feld stehen sollen. Unser Bei- 
spielprogramm in Listing 5 formatiert 
eine komplette Spur im Systemformat. 
Durch Anderung der IDs (»DEFB &41« 
bis »DEFB &49« hinter dem Label 
»IDTAB«) lassen sich nun fast belie- 
bige Formate erzeugen. Beim ersten 
Blick auf das Beispielprogramm fällt 
Ihnen wahrscheinlich die ungewöhnli- 
che Verteilung der Sektoren auf der 
Spur auf. Die Numerierung erfolgt 
nämlich nicht fortlaufend, sondern in 
Sprüngen von je fünf Werten. Prinzi- 


piell ließen sich auch alle Sektoren 
nach IDs geordnet schreiben. 
Dadurch verlangsamen sich jedoch 
die Lese- und Schreibzugriffe, da der 
Computer zur Verarbeitung bezie- 
hungsweise Bereitstellung der Daten 
einige Zeit benötigt. Im ungünstigsten 
Fall müßte die Diskette beispielsweise 
eine gesamte Umdrehung vollziehen, 
ohne daß neue Daten gelesen oder 
geschrieben werden. Diese aus der 
Veräarbeitungsgeschwindigkeit des 
Computers resultierende versetzte 
Verteilung der Sektoren einer Spur 
nennt man Skew-Faktor. 

Mit Anderung der ID eines Sektors 
sind noch lange nicht alle Möglichkei- 
ten der Fremdformatierung erschöpft. 
Wie wäre es beispielsweise mit Sekto- 
ren unterschiedlicher Länge? Bitte- 
schön, das vierte Byte des ID-Felds 
gibt die Anzahl der Datenbyte pro Sek- 
tor an. Setzen wir dort anstelle der 2 
eine 1, erfolgt die Formatierung mit 
Sektoren zu je 256 Byte. Das bedeutet 


’ 


LD HL,BEFEHL ; 
CALL &BCD4 ; 
LD (ADR) ‚HL ; 
LD A,C 

LD (ROMNR),A 5; 


"Diskettenformat : 
"Speicherplatzermittelung 
alltab=%ABBF+aktdrive*ä4: "Start des 


FOR byte=@ TO 21: 22 
wert=FEEK (alltab+tbyte) 


FOR bit=ZB TO 7 
IF (wert AND (2*“bit)) THEN anz=anz+il 


NEXT:belegt=belegt+tanz:NEXT 


free=blocks+t1-belegt 
"Won"sblocks-1; "kB sind";free; 


; Formatieren einer einzelnen Spur in Maschinensprache 


LFF7&] 
[26D4] 


"sformat# 


[482E] 
[81721 
[PEFB] 
CARDE) 
TAZQEI 


Bytes 


[83821 
CED78] 
[c51A] 


[62F4] 


natürlich, daß die doppelte Menge von 
Sektoren auf eine Spur paßt. 18 Sek- 
toren zu je 256 Byte ersetzen nun die 
neun normalen 512-Byte-Sektoren. 
Mit solchen »Mini-Sektoren« läßt sich 
zum Beispiel recht einfach eine 
schnelle relative Dateiverwaltung auf- 
bauen. Ein Datensatz entspricht dabei 
dem Inhalt eines Sektors. Benutzt 
man die letzten 30 Spuren der Diskette 
(Spur 10 bis 39) mit 18 Sektoren zu 256 
Byte und formatiert die Spuren O bis 9 
im DATA-Format, steht für das verwal- 
tende Programm immer noch eine 
Kapazität von 38 KByte zur Verfügung. 
In die Spuren 10 bis 39 passen 540 
Datensätze, die in Bruchteilen von 
Sekunden verfügbar sind, ohne den 
Arbeitsspeicher des CPC zu belasten. 

Das Lesen und Schreiben solcher 
Sektoren ist etwas aufwendiger als 
das Formatieren. Mit dem Befehl 84 
hex (Sektor lesen) wird nicht das 
gesamte ID-Feld an die Routine über- 
geben, sondern nur die Spur- und 


Adresse des Befehls 
Suche RSX-Befehl (KL-FIND-COMMAND) 
Adresse speichern 


ROM-Nummer sichern (normal 7) 


LD C,&41 ; erste Sektor-ID auf der Spur 
LD D,0 ; Spurnummer nach D (0 bis 42) 
LD E,0 ; Drive nach E (O=A; 1=B) 
LD HL, IDTAB ; Adresse der ID-Tabelle nach HL 
RST &18 ; FAR-CALL zur gesuchten Adresse 
DEFW ADR ; Zeiger auf Adresse 
RET ; und zurück 
ADR DEFS 2,0 ; zwei Byte Speicher für die Adresse 
ROMNR DEFS 1,0 ; ein Byte Speicher für ROM-Nummer 
’ 
IDTAB ; ID-Feld-Information Sektor 
; Spurnummer 1 
; Kopfnummer 1: 
; Sektornummer 1 
; Sektorgröße (512 Byte) 1 
F 2 
; 2 
5 2 
F 2 
; 3 
; 3 
; 3 
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Tabelle 4. Bei 


griff holt sich das 


D09 ZUNEHST A 
Daten des FDC- 


Länge von GAP 3 beim Sektorlesen 


Parameter-Blocks 


Füll-Byte beim Formatieren 
Byte pro Sektor (codiert: entspricht 512 Byte) 
ABA5 Zahl der Records pro Sektor 


nn on 2 jedem Diskettenzu- 
ABA 


AB9F 4 
ABAO 9 
1 FOR 
ABA3 NER 
ABA4 2 
4 


Sektornummer. Die anderen Informa- 
tionen für die Routine müssen also 
woanders stehen. Glücklicherweise 
hielten die Entwickler das Amsdos so 
flexibel, daß es keine festen Werte ver- 
wendet, sondern auf eine Tabelle im 
RAM zugreift, in der alle FDC- 
Parameter stehen. Aus diesem »FDC- 
Parameter-Block« beziehen alle DOS- 
Routinen ihre Werte. Tabelle 4 zeigt 
die Adressen mit den Werten der nor- 
malen Belegung. Daraus ist ersicht- 
lich, daß die Größe eines Sektors auf 
Adresse A8A4 hex zu finden ist. Zum 
Lesen eines Sektors mit 256 Byte muß 
man also vor dem Aufruf der Routine 
84 hex in diese Speicherstelle den 
Wert 1 laden. Das gleiche gilt analog 
für die Routine 85 hex (Sektor schrei- 
ben). Zwei Adressen des FDC-Para- 
meterblocks sind auf den ersten Blick 
etwas unverständlich. Es sind die 
Adressen A8A1 und A8A2 hex, die der 
Angabe der Länge des Gap 3 dienen. 
Ein Gap ist der Leerraum zwischen 
den Sektorteilen (ID- und Daten-Feld) 
und den einzelnen Sektoren einer 


DEFB 2 ; 3 
DEFB 0 E 4 
DEFB 0 F 4 
DEFB 75 4 
DEFB 2 ; 4 
DEFB 0 F 5 
DEFB 0 $ 5 
DEFB 3; 5 
DEFB 2 ; 5 
DEFB 0 5; 6 
DEFB 0 $ 6 
DEFB KB; 6 
DEFB 2 ; 6 
DEFB 0 ; 7 
DEFB 0 5 7 
DEFB [7 7 
DEFB 2 5 7 
DEFB 0 ; 8 
DEFB 0 ; 8 
DEFB 849 5 8 
DEFB 2 E 8 
DEFB 0 F 9 
DEFB 0 ; 9 
DEFB 5 9 
DEFB 2 r 9 


’ 

BEFEHL DEFB &86 

Listing 5. Der Assembler-Quellcode 
eines Programms zur Formatierung 
einzelner Sektoren 


Spur. Dieser Leerraum gibt dem FDC 
Zeit, die gelesenen Daten (aus einem 
ID-Feld zum Beispiel) zu verarbeiten 
und an den Computer weiterzuleiten. 
Des weiteren dienen sie dazu, Gleich- 
laufschwankungen des Laufwerks 
auszugleichen. Dies ist besonders 
dann wichtig, wenn die Diskette nicht 
von dem Laufwerk beschrieben 
wurde, also zum Datenaustausch 
benutzt wird. Gap 3 beschreibt den 
Zwischenraum zweier Sektoren einer 
Spur. Durch geschickte Veränderung 
der Werte (Verkleinerung) in den 
genannten Adressen ist ein weiterer 
(zehnter) Sektor auf der Spur unterzu- 
bringen. Dabei ist lediglich zu berück- 
sichtigen, daß zu kleine Werte Lese- 
fehler zur Folge haben können. 
Besonders groß ist dieses Risiko, 
wenn die so behandelte Diskette spä- 
ter auf anderen Laufwerken zu laden 
sein soll. 

Die vorgestellten Tabellen im RAM 
sowie die ROM-Routinen erlauben 
bereits eine weitreichende Beeinflus- 
sung der Diskettenzugriffe. Aber 
immer noch ist der Rahmen des Mach- 
baren längst nicht erschöpft. 

Die jetzt folgende Stufe 4 der 
Disketten-Programmierung beschäf- 
tigt sich nur noch direkt mit dem FDC. 
Das DOS benötigen wir nun nicht 
mehr. Selbstverständlich ist die 
direkte Programmierung des Control- 
lers sehr kompliziert, da man exakte 
Zeiten und Datenübergabe-»Zeremo- 
nien« einhalten muß. Für die exakte 
Einhaltung des Timing werden schon 
vom DOS sämtliche Interrupts bei Dis- 
kettenzugriffen gesperrt. 

Da man schon in Stufe 3 mit relativ 
geringem Aufwand und mittleren 
Kenntnissen vielfältige Manipulatio- 
nen vornehmen kann, wollen wir die 
Thematik der FDC-Programmierung 
jedoch nur der Vollständigkeit halber 
anschneiden. Der FDC ist nur über die 
beiden Portadressen FB7E und FB7F 
hex mit dem Z80-Prozessor des CPC 
verbunden. Eine dritte Adresse, FA7E 
hex, spricht ein Flip-Flop an, das die 
Laufwerksmotore ein- beziehungs- 
weise ausschaltet. Der Datentransfer 
zwischen Computer und Controller ist 
im CPC so realisiert, daß der Compu- 
ter immer anhand des Haupt-Status- 
registers feststellt, ob der FDC zum 


Datenaustausch bereit ist. Das ist 
zwar die einfachste Art des Daten- 
austausches, hat aber den Nachteil, 
daß sich der Computer während die- 
ser Zeit um nichts anderes kümmern 
kann. Der Diskettenzugriff hat also 
absoluten Vorrang. Der FDC ist aber 
für zwei weitere Betriebsarten vorbe- 
reitet. Als erstes ist der DMA-Modus 
(Direct-Memory-Access) zu nennen. 
In diesem Modus hat der FDC in Zu- 
sammenarbeit mit einem DMA-Con- 
troller (findet in vielen Festplatten- 
Laufwerken Verwendung) direkten 
Zugriff auf den Arbeitsspeicher des 
Computers, das heißt, der Hauptpro- 
zessor ist dann von der Aufgabe ent- 
bunden, die Daten zu holen oder 
bereitzustellen. Das führt natürlich zu 
enormen Geschwindigkeitsvorteilen. 
Der zusätzliche Hardware-Aufwand 
eines DMA-Controllers hätte sich bei 
der Entwicklung der CPCs aber allein 
des Diskettenlaufwerks wegen kaum 
gelohnt, so daß wir heute auf diesen 
Komfort leider verzichten müssen. 

Der zweite Modus ist der Interrupt- 
Modus. Dabei signalisiert der FDC der 
CPU mit einem Interrupt seine Bereit- 
schaft zum Datentransfer. Auf diese 
Betriebsart wurde in den CPCs wahr- 
scheinlich verzichtet, da das CPC- 
Betriebssystem mit einer Vielzahl von 
Interrupts ohnehin schon an der 
Grenze seiner Leistungsfähigkeit 
betrieben wird. 

Die ganze Programmierung des 
FDC beschränkt sich also auf zwei 
(drei) Adressen. Das Haupt- 
Statusregister ist mit dem Flag- 
Register des Z80 vergleichbar (Tabelle 
5). Aus ihm lassen sich nur Daten 
lesen. Das Datenregister dagegen 
steht für Lese- und Schreibzugriffe zur 
Verfügung. Über das Datenregister 
erfolgt deshalb auch die Programmie- 
rung. Als Beispiel für die FDC- 
Programmierung dient ein Kom- 
mando, dessen Auswirkung aus den 
unteren drei Programmierungsstufen 
nicht erreichbar ist: das Lesen einer 
Sektor-ID. Bevor Sie mit der FDC- 
Programmierung beginnen, stellen 
Sie anhand des Haupt-Statusregisters 
fest, ob der Controller momentan zur 
Befehlsverarbeitung bereit ist. 
Danach schalten Sie die Laufwerks- 
Motore mit einem OUT-Befehl ein. Die 
eigentliche Programmierung ist in drei 
Phasen unterteilt: die Befehlsphase, 
die Ausführungsphase und die Ergeb- 
nisphase. 

Als erstes wird dem FDC in der 
Befehlsphase der Kommando-Code 
4A hex für das Lesen der ID übermit- 
telt. Danach folgt ein Datenbyte, das 
dem FDC sagt, auf welches Laufwerk 
sich der Befehl bezieht. Für Laufwerk 
A schreiben Sie eine 1, für Laufwerk B 


43 


eine 2 in das Datenregister. Damit ist 
die Befehlsphase schon abgeschlos- 
sen. Zwischen den Datenübergaben 
dürfen Sie aber nicht vergessen, im 
Haupt-Statusregister abzufragen, ob 
der FDC empfangsbereit ist. In der 
jetzt folgenden Ausführungsphase 
erledigt der FDC seine Aufgabe; er 
sucht auf der aktuellen Spur nach 
einer Sektor-ID. Die erste gefundene 
liest er in sein Register ein. Der Com- 
puter muß in der Ausführungsphase 
keine Daten vom FDC holen. Das ist 
allerdings nur bei diesem Befehl so. 
Bei anderen, wie beispielsweise »Sek- 
tor lesen« oder »Sektor schreiben«, 
werden alle Datenbyte (normaler- 
weise 512 an der Zahl) in der Ausfüh- 
rungsphase zwischen CPU und FDC 
ausgetauscht. Nachdem jetzt mit der 
Ausführungsphase die zweite Phase 
endet, beginnt augenblicklich die 
dritte und letzte Phase. In dieser 
Ergebnisphase werden zuerst die drei 
internen Statusregister O bis 2 für den 
CPC zur Verfügung gestellt. Das Sta- 
tusregister 3 läßt sich nur über einen 
bestimmten Befehl auslesen. Es be- 
inhaltet den Laufwerksstatus, sagt 


CB 


Jedes Bit steht für eins der vier möglichen Laufwerke. Ist das ent- 
sprechende Bit gesetzt, kann auf dem Laufwerk ein Schreib- 
oder Lesebefehl ausgeführt werden. 


Dieses Bit signalisiert, daß der FDC zur Zeit ein Kommando 
abarbeitet. 

Mit diesem Bit kann zwischen den einzelnen Phasen des FDC 
unterschieden werden. In der Resultatphase ist das Bit 0 
Hiermit bestimmt der FDC, ob er bereit ist, Daten zu senden (1) 
oder zu empfangen (0). 


also aus, ob das Laufwerk betriebs- 
bereit oder der Schreibschutz aktiv ist. 
Aus diesen Registern kann der Com- 
puter eventuelle Fehler oder Hard- 
ware-Eigenschaften der Disketten- 
laufwerke abfragen. Auf diese drei 
Statusbyte folgen die erfragten vier 
Byte der Sektor-ID. Nacheinander 
stellt der FDC Spurnummer, Kopfa- 
dresse, Sektornummer und Sektor- 
größe bereit. In der Ergebnisphase ist 
zu beachten, daß immer alle Byte aus- 
gelesen werden müssen, auch wenn 
man sie nicht benötigt. Der FDC kann 
einen neuen Befehl nur dann ausfüh- 
ren, wenn von der Ausführung des vor- 
angegangenen Befehls keine Daten 
mehr übrig sind. 

Wenn wir jetzt Ihren Appetit auf 
die FDC-Programmierung angeregt 
haben, können Sie die Aufstellung der 
gesamten Befehle in einem Datenblatt 
des FDC nachlesen. Die Dokumenta- 
tion aller Befehle würde den Rahmen 
dieses Artikels bei weitem sprengen. 
Es ist auch sinnvoll, ein gut dokumen- 
tiertes DOS-Listing anzuschaffen. 

Doch - warum sollten Sie sich mit 
einer solchen Programmierung über- 


Tabelle 5. Das 
Hauptstatusregi- 
ster des FDC 765 
(Port FB7E hex) 


haupt herumschlagen? Für den nor- 
malen Anwender, der nur Programme 
und Daten von Diskette laden will, ist 
es sicher uninteressant; ihm genügen 
die DOS-Befehle allemal. Aber für 
jemanden, der verstehen möchte, was 
im »Hintergrund« passiert, ist es 
höchst interessant, das Laufwerk 
»nach seiner Pfeife tanzen zu lassen«. 
Und die Handhabung des FDC ist auf 
größtmögliche Benutzerfreundlichkeit 
ausgelegt, was dazu führt, daß wenige 
leistungsstarke Befehle das Leben 
des Programmierers erleichtern. 
Durch die zusätzlichen Fähigkeiten, 
wie unterschiedliche Sektorgröße und 
schnelle Laderoutinen, kann man jetzt 
eigenen Diskettenprogrammen höhe- 
ren Komfort und eine höhere Arbeits- 
geschwindigkeit angedeihen lassen. 
Last but not least wollen wir aber 
auch die Hauptanwendung für solche 
»Bit-Verrenkungen« nicht verschwei- 
gen: Kopierschutzmechanismen für 
mehr oder weniger teure Programme. 
Sie sind durch die diversen Befehle 
des FDC ohne großen Aufwand zu rea- 
lisieren. Aber genau da ist auch der 
Haken an der Sache: Durch die 
begrenzte Anzahl von Befehlen ist es 
unmöglich, einen Schutz zu verwirkli- 
chen, der sich nicht von einem ebenso 
intelligenten Kopierprogramm kopie- 
ren ließe. Mehr über dieses Thema 
lesen Sie im Anschluß an diesen 
Beitrag. 
(Oliver Suttorp/ja) 


Literaturhinweis: 

Günter Woigk, »Das Schneider CPC Systembuch«, Sybex Ver- 
lag, ISBN 3-88745-606-8, Preis: 58 Mark 

Brückmann/Schieb, »Das große Floppybuch zum CPC«, Data 
Becker, ISBN 3-89011-093-2, Preis: 49 Mark 

»DDI-1 Firmware Manual«, Schneider-Data, Am Rindermarkt 
4a, 8050 Freising, Preis: 59 Mark (englische Originalausgabe) 


Hat der FDC eine bestimmte Spur (Seek-Befehl) gefunden, setzt 
er dieses Bit. 


Diese Bits setzt der FDC beim Auftreten von Fehlern. 


Das Statusregister 0 


keine Sektor-ID auf der Spur gefunden 
die Diskette ist schreibgeschützt 


der FDC setzt dieses Bit, wenn er beim Schreiben oder Lesen 
den Sektor nicht fand 


| at |nemonie 
BL 
Be 
Ber 
a on | 
a 
Ge er 


7 Ein gesetztes Bit zeigt an, daß der FDC bereit ist, Daten mit dem 
Prozessor auszutauschen. Die Richtung bestimmt Bit 6. 


Ein gesetztes Bit zeigt an, daß ein Doppelkopflaufwerk ange- 
schlossen ist 


ein Datenbyte wurde nicht früh genug vom FDC geholt 
es ist ein Prüfsummenfehler entstanden 
(die Prüfsumme generiert der FDC) 


das Ende der Spur ist erreicht 


Das Statusregister 1 
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opierschutz - schon das Wort 

übt eine fast magische Faszi- 

nation auf viele Computerbe- 
sitzer aus. Sie verstehen nicht, wie so 
etwas funktioniert und betrachten den 
Begriff, als käme er aus einer anderen 
Welt. Den Leuten, die sich damit aus- 
einandersetzen, im allgemeinen als 
»Cracker« bezeichnet (nicht jedoch 
»Hacker«), haftet ein zweifelhafter Ruf 
an, der sie an die Grenze der Illegalität 
oder manchmal sogar darüber hinaus 
bringt. Dieser Ruf wird von vielen Soft- 
warehäusern geschürt, da sie um die 
Verkaufszahlen ihrer Programme 
fürchten. Dabei wird meistens jedoch 
übersehen, daß der durchschnittliche 
Cracker nicht die Absicht verfolgt, Soft- 
warehäuser in den Bankrott zu trei- 
ben. Vielmehr will er meist sein eige- 
nes Können an dem des Kopierschutz- 
Programmierers messen und so einen 
privaten Wettkampf ausfechten. Wir 
wollen mit diesem Beitrag auch kei- 


Schutz — wie lange noch? 


Wir sind noch nie vor »heißen 
Eisen« zurückgeschreckt. Auch 
ein Beitrag wie dieser, der sich 

mit Grundlagen von Kopier- 
schutz-Methoden beschäftigt, 
birgt natürlich die Gefahr des 
Mißbrauchs. 


neswegs Rezepte zum Entfernen des 
Kopierschutzes geben, sondern Tech- 
niken aufzeigen, die heute zum 
Schutz von Programmen Verwendung 
finden. Ähnlichkeiten mit zur Zeit 
benutzten Kopierschutzmechanis- 
men sind natürlich nicht zu vermei- 
den. 

Schon unter Basic gibt es einige 
Wege, Fremden die Einsichtin ein Pro- 
gramm zu verweigern. Mit einem 
»POKE &172,0« läßt sich der ersten 
Programmzeile die Nummer O geben. 
Dieser Eingriff hat zur Folge, daß diese 


Zeile nichtmehr zu listen und zu editie- 
ren ist, sehr wohl aber ausgeführt 
wird. In dieser Zeile bringt man bei- 
spielsweise eine Befehlsfolge unter, 
die eine Binärdatei lädt und startet. 
Um Kopierwütige zu verwirren, sollte 
man in den sichtbaren Zeilen ein von 
der Logik her nicht funktionsfähiges 
Programm ablegen. Der POKE nutzt 
eine Lücke des Basic-Interpreters, da 
dieser für Zeilen mit der Nummer O0 
eigentlich gar nicht gerüstet ist. 
Genau so einfach, wie dieser »Schutz« 
zu erzeugen ist, läßt er sich aber auch 
wieder entfernen. Der »POKE 
&172,zeilennummer« gibt der Zeile O 
nämlich die Nummer <zeilennum- 
mer>, und wer es noch einfacher 
haben will, gibt nur den Befehl 
RENUM ein. 

Die meisten Schutzmechanismen 
basieren aber darauf, daß eine Lade- 
routine das Hauptprogramm nach- 
lädt. Dieser wichtigste Programmteil 
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Bitte geben Sie einen Satz ein 


Text :H a ’ 3 Con Br uyter 
ASCII-Werte : 48 6i ba 5 79 26 43 6F 6b 75 74 65 72 
XOR 


Code 
ASCII-Herte 


Ergebnis 
ASCII-Herte 


Bild 2. Auch Texte lassen sich mit XOR 
bis zur Unkenntlichkeit chiffrieren 


jedoch ist in keinem systemkonformen 
Dateiformat abgelegt. Speziell bei Dis- 
kettensoftware wird oft zusätzlich eine 
fehlerhafte Spur abgefragt, die in her- 
kömmlicher Weise nicht zu kopieren 
ist. Der Schwachpunkt jedes dieser 
Schutzsysteme ist das Ladepro- 
gramm, da es im normalen Format vor- 
liegen muß. Schafft es ein Cracker, in 
diesem Ladeprogramm hinter der 
Laderoutine eine eigene Routine zur 
Speicherung einzubinden, ist der 
Schutz meist hinfällig. Dieser Zugang 
läßt sich auf einigen Wegen mehr oder 
weniger stark erschweren. Da in 
Maschinensprache viel mehr Schutz- 
methoden denk- und realisierbar sind, 
werden nur die wenigsten Lader in 
Basic geschrieben. Um zu verhin- 
dern, daß der Cracker ein Ladepro- 
gramm zu leicht durchschaut, sind 
solche Routinen oft mit speziellen Ver- 
fahren verschlüsselt. Dafür wurden 
verschiedene Methoden entwickelt, 
dieeinrelativ hohes MaßanSicherheit 
bieten. Darunter fällt zum Beispiel ein 
System, das vor einiger Zeit in den 
USA entstand .und sich recht gut 
bewährte. Es benutzt zwei »Schlüs- 
sel«. Als Schlüssel dienen Zahlen 
oder Buchstabenfolgen, mit denen 
man einen Text codiert beziehungs- 
weise wieder decodiert. Genauso wie 
man mit einem Türschlüssel eine Tür 
öffnet, öffnet solch ein Schlüssel den 
Zugang zu den Daten. Einer der 
Schlüssel ist dem Benutzer bekannt, 
es handelt sich um den sogenannten 
Benutzerschlüssel. Den zweiten 
Schlüssel kennt der Empfänger der 
Daten (das Ladeprogramm im Arbeits- 
speicher des Computers), da er nur 
mit ihm die Daten wieder entschlüs- 
seln kann. Natürlich eignen sich sol- 
che Verfahren nur bedingt für die 
Codierung von Programmen. Hier 
macht man sich die Arbeitsweise des 
Computers zunutze. Die CPU unter- 
scheidet nur zwischen zwei Signalen 
beziehungsweise Zuständen (Ja/nein, 
wahr/falsch, 1/0 oder Strom/kein 
Strom). Da jedes Datenwort (Byte) aus 
jeweils acht dieser Zustände besteht, 


j i z .. +? Happy nun 
Bitte gehen Sie das Codierwort ein :? Computer-S 


:Cco rn Bi uter -% ß ass 
» a3 6F 6b 20 75 7a 65 72 28 53 28 61 73 73 


: dA Po Be de Sa de A Ih 


Pass 


Bild 1. Die Hand- 
habung des 
Lenslok-Prismas 
ist nicht gerade 
einfach 


lassen sich zwei solcher Worte mit 
Hilfe der booleschen Algebra logisch 
verknüpfen. Eine logische Verknüp- 
fung erzeugt nach bestimmten Regeln 
aus zwei Eingangsaussagen ein 
Ergebnis. Eine diese Verknüpfungen 
ist XOR (eXklusives OdeR). XOR setzt 
ein Bit, wenn die Eingänge unter- 
schiedliche Werte aufweisen; sind sie 
jedoch identisch, wird das Bit im 


Ergebnis null. 
Beispiel 1: 
10100010 
XOR 01110100 
ergibt 11010110 
Beispiel 2: 
11010110 
XOR 01110100 
ergibt 10100010 


Diese Beispiele verdeutlichen das 
Besondere an dieser Verknüpfung: 
Behandelt man das Ergebnis der 
ersten Verknüpfung nochmals mit 
dem gleichen Wert, ergibt sich wieder 
der Ausgangswert. Den Zeitaufwand, 
den die Entschlüsselung eines Pro- 
gramms verursacht, selbst wenn es 
einen großen Teil des Speichers 
belegt, bemerkt der Benutzer kaum. 
Solche Entschlüsselungs-Routinen 
arbeiten nämlich meist in Maschinen- 
code und verarbeiten mehrere tau- 
send Byte pro Sekunde. Bei der Ver- 
wendung von XOR-Schleifen sind der 
Fantasie fast keine Grenzen gesetzt. 
So lassen sich selbstverständlich 
mehrere Verknüpfungen mit unter- 
schiedlichen Werten hintereinander 
aufrufen oder gar ineinander ver- 
schachteln. Geben Sie im Beispielpro- 
gramm (Listing) ein beliebiges Wort 
Ihrer Wahl ein. Das Ergebnis ist ohne 
Kenntnis des Codewortes kaum zu 
erraten (siehe auch Bild 1). Jetzt 
geben Sie in das Beispielprogramm 
einmal ein Codewort aus lauter glei- 
chen Buchstaben ein. Am Ergebnis 
werden Sie den Nachteil dieser Me- 
thode erkennen: Gleiche Werte sind 
auch nach der Verknüpfung gleich. 


In vielen Programmen kommen 
Null-Bytes am häufigsten vor. Findet 
man also eine Häufung gleicher 
Bytes, handelt es sich also wahr- 
scheinlich um Nullen und man kann 
an ihnen unschwer »erraten«, mit wel- 
chem Wert das Programm verschlüs- 
selt ist. 

Ahnliche Verfahren finden trotzdem 
als Kopierschutz Verwendung. Zur Bil- 
dung des Schlüsselwerts benutzt man 
aber kein festes, im Programmcode 
enthaltenes Byte. Man nimmt viel- 
mehr das Refresh-Register des Z80 
zur Hilfe, das sich nach jedem Taktzy- 
klus des Z80 um den Betrag 1 erhöht 
(der Zyklus entspricht dem Arbeitstakt 
der CPU). Lädt man zunächst einen 
festen Wert in dieses Register und 
liest es nach einer genau definierten 
Zeit wieder aus, erhält man einen ver- 
änderten Wert, der ausschließlich von 
der Laufzeit des Programms abhängig 
ist. Jedenoch so geringe Veränderung 
des Programms hat zwangsläufig Ein- 
fluß auf die Anzahl der benötigten 
Takt-Zyklen. Nutzt man nun den so 
ermittelten Wert zur Decodierung, läßt 
das zwangsläufig falsch entschlüs- 
selte Programm den Computer 
augenblicklich »abstürzen«. Das Ziel, 
jede Veränderung im Programm zu 
unterbinden und somit den Kopier- 
schutz zu erhalten, ist mit diesem 
System fast erreicht. Aber natürlich ist 
auch dieser Schutz nicht vollkommen, 
er erschwert Crackern lediglich ihr 
Handwerk. Man kann beispielsweise 
in der zeitabhängigen Schleife 
Befehle gegen andere austauschen, 
die genausoviel Zeit benötigen, um so 
die Laufzeit nicht zu verändern, das 
Programm aber nach seinen Wün- 
schen umschreiben. 

Dieses Verfahren wurde beim CPC 
erstmals im »Speedlock-Protection- 
System« für Kassetten eingesetzt und 
fand durch seine neue Verfahrens- 
weise recht weite Verbreitung. Doch 
gerade in der gemeinsamen Nutzung 


46 


nee 


AUFBRUCH IN EINE NEUE DIMENSION 


mit »68000er«, dem Magazin der neuen 
Computer-Generation 


>» Programmiersprachekurse für Basic, C, 
Modula und Assembler. 


» Bauanleitungen für professionelle Hard- 
ware-Erweiterungen. 


» Spiele-Spaß und -Spannung auf höchstem 
Niveau. 


Ihre hot-line zur Spitzentechnologie von 
AtariST, Amiga, Macintosh und Sinclair OL. 


Nor 
en 


FÜR EIN KOSTENLOSES PROBEEXEMFR 
DES »68000er«-MAGAZINS 


JA, ich möchte »68000er«, das Magazin der neuen Co 
ter-Generation, kennenlernen. h 
Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Pro- 
beexemplar. Wenn mir »68000er« gefällt und-ich es regelmäßig 
weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte es 
dann regelmäßig frei Haus per Post. Außerdem nutze ich den 
Abonnement-Preisvorteil von 8% und bezahle pro Jahr nur 
77,— DM statt 84,— DM im Einzelverkauf. 


Vorname 
Name 
Straße 
PLZ, Ort 


Datum ______ 1. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen 
bei der Bestelladresse widerrufen kann und bestätige dies 
durch meine zweite Unterschrift. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung des Widerrufs. 


Datum ______ 2. Unterschrift 


Gutschein ausfüllen und absenden an: Markt&Technik V: 
Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 


HCS1 


eines Schutzes liegt auch eine große 
Gefahr: Ist er erst einmal geknackt, 
betrifft das nicht nur ein Programm - 
vielmehr sind auf einen Schlag gleich 
ganze Software-Serien den Raub- 
kopierern schutzlos ausgeliefert. So 
erging es einem Softwarehaus, das 
sein ganzes Vertrauen in Speedlock 
setzte. Fast alle Programme des 
Labels waren mit diesem Lader verse- 
hen. Deshalb gibt es seit längerem 
einige käufliche Kopierprogramme, 
für Speedlock-geschützte Kassetten. 
Da es aber inzwischen als Reaktion 
darauf diverse Variationen des Speed- 
lock gibt, arbeiten diese Kopierpro- 
gramme nur bei einem Teil korrekt. 


Einfache 
Direktkopien 


Eine äußerst einfache, aber oft 
genauso wirkungsvolle Kopierme- 
thode für Kassetten-Software besteht 
darin, zwei Kassettenrecorder direkt 
miteinander zu koppeln und so eine 
identische Kopie vom Orginalband zu 
erhalten. Dabei wird der Kopierschutz 
mitkopiert und braucht so nicht ent- 
fernt zu werden. Auch diesen Prakti- 
ken arbeiteten die Schutz-Entwickler 
entgegen. Auch Speedlock verwendet 
einen Schnell-Lader (daher sein 
Name), der zwar eine Direktkopie vom 
Originalband nicht verhindern kann, 
der jedoch oft gewährleistet, daß 
durch beim Überspielen unvermeidli- 
che Qualitätsminderungen Kopien 
nicht fehlerfrei lesbar sind. 

Andere Autoren kamen auf weniger 
elegante Lösungen. Das Lenslok- 
System beispielsweise basiert weni- 
ger auf einem softwaremäßigen 
Schutz (der allerdings in Form eines 
Turboladers zusätzlich vorhanden ist), 
als mehr auf einer Hardwarelösung: 
Dies sind in diesem Falle spezielle 
Prismen, durch die man auf dem Bild- 
schirm eine Buchstabenkombination 
erkennt (Bild 2). Diese Buchstaben 
sind bei jedem Start andere und müs- 
sen als Codewort via Tastatur eingege- 
ben werden. Dafür stehen dem Benut- 
zer drei Versuche zur Verfügung. 
Schafft eresnicht, die korrekte Kombi- 
nation einzugeben, löst das Pro- 
gramm einen Reset des Computers 
aus. 

Selbst wenn man es schafft, das 
Programm zu kopieren, läßt es sich 
ohne die »Hardware-Erweiterung« 
(das Prisma) nicht nutzen. Einen 
schwerwiegenden Nachteil stellt die 
extreme Benutzerunfreundlichkeit 
dar. Erstens gibt es zu verschiedenen 
Programmen natürlich auch verschie- 
dene Prismen. Hat man also aus der 


»Glassammlung« nach zahlreichen 
erfolglosen Versuchen (und ebenso 
vielen erneuten, quälend langen 
Ladevorgängen) endlich das pas- 
sende Prisma herausgesucht, steht 
man unvermittelt vor der zweiten 
Hürde. Die Prismen sind qualitativ teil- 
weise so schlecht gefertigt (siewerden 
aus Kostengründen nicht geschliffen 
sondern aus Kunststoff gegossen), 
daß man - wenn überhaupt - die bei- 
den Buchstaben nur mit Schwierigkei- 
ten erkennt. Dieses System ist für 
beide Datenträger (Kassette und Dis- 
kette) erhältlich, während Speedlock 
zunächst nur Kassettensoftware zu 
schützen trachtete. Inzwischen haben 
die Speedlock-Entwickler, D. Looker 
und Aubrey Jones, auch eine Disket- 
tenversion ihres Cracker-Schrecks 
herausgebracht. Es basiert auf einer 
einfachen Fehlerspur-Abfrage. Die 
gesamte Diskette ist in einem norma- 
len Format gehalten. Selbst die Pro- 
grammteille liegen als normale 
Dateien vor. Nur das Hauptprogramm 
ist mit einem Wert über die XOR- 
Verknüpfung verschlüsselt. Speed- 
lock selbst besteht aus zwei Dateien, 
der Laderoutine und einer Datei mit 
dem sinnesschwangeren Namen 
»AAAA.BIN«. Die Laderoutine initiali- 
siert die Farben und aktiviert das 
Controller--ROM. Danach lädt es den 
zweiten Teil des Kopierschutzes, eben 
jene Datei »AAAA.BIN«. Der eigentli- 
che »Witz« ist, daß die XOR-Schleife 
zur Entschlüsselung des zweiten Teils 
in keiner der beiden Binär-Dateien zu 
finden ist. Hier haben sich die Ent- 
wickler etwas Besonderes einfallen 
lassen. Doch zur Erklärung müssen 
wir etwas weiter ausholen. 


Aus Kompatibilitätsgründen haben 
die Programmierer des DOS den 
Datei-Header des Kassetten- 
Managers ohne Anderung übernom- 
men. Dieser Header geht den Daten 
einer Datei voran. In ihm sind unter 
anderem Lade-, End- und Start- 
adresse gespeichert, einige Bytes 
jedoch bleiben ungenutzt (umfas- 
sende Informationen darüber vermit- 
telt Ihnen unser Beitrag auf Seite 31 
dieser Ausgabe). Da der Header ab 
Adresse A750 hex in den Arbeitsspei- 
cher geladen wird, haben die 
Speedlock-Entwickler ihre XOR- 
Routine dort plaziert. Genau gesagt 
liegt die Routine im »Benutzer-Feld«, 
das von A771 bis A794 hex reicht und 
dem Anwender bei der Speicherung 
zur freien Verfügung steht. Diese 
Routine entschlüsselt die Datei 


»AAAA.BIN« und startet danach das 


darin enthaltene Programm. Um 
Cracker, die so weit vorgedrungen 
sind, durch Demotivation zur Aufgabe 
ihres unschönen Vorhabens zu bewe- 
gen, befindet sich dort eine weitere, 
zeitabhängige Schleife. Sie entschlüs- 
selt diesen Programmteil ein zweites 
Mal, nun aber abhängig vom Ergebnis 
der vorangegangenen Entschlüsse- 
lung. Danach erfolgt die Abfrage der 
fehlerhaften Spur und das Hauptpro- 
gramm wird geladen, wiederum ent- 
schlüsselt und endlich gestartet. 

Ein weiterer diskettengestützter 
Kopierschutz ist der PM.S.-Lader, der 
in jüngster Zeit bei einigen Program- 
men Verwendung findet. Er greift nicht 
auf Dateien zu, sondern lädt alle 
Daten, wie Titelbild und Hauptpro- 
gramm, direkt aus den Diskettensek- 
toren. Der Start des Ladeprogramms 
erfolgt oft mit dem Basic-RSX-Befehl 
ICPM, was keineswegs das Booten 
des Betriebssystems CP/M zur Folge 
hat. Der Befehl startet in diesem Fall 
nur den Lader auf etwas ungewöhn- 
liche Weise. Dieses Maschinencode- 
Programm darf höchstens 512 Byte 
lang sein und muß im ersten Sektor (41 
hex) der Spur Oliegen. Bei Ausführung 
des RSX-Befehls ICPM geschieht 
nichts anderes, als daß das Betriebs- 
system diesen ersten Sektor der Spur 
O nach Adresse 100 hex lädt und 
anschließend die Kontrolle an diese 
Adresse übergibt. Damit läuft nun 
bereits die Laderoutine und lädt die 
einzelnen Teile des Hauptprogramms 
aus den Sektoren. Die Diskette liegt in 
einem relativ gebräuchlichen Format 
vor, das heißt jede Spur umfaßt neun 
Sektoren zu je 512 Byte. Der PM.S.- 
Lader verwendet aber nur acht dieser 
neun Sektoren als Datenspeicher, pro 
Spur sind also nur vier KByte des Pro- 
gramms gespeichert. Der neunte Sek- 
tor jeder Spur ist in zwei Hälften zu je 
256 Byte aufgeteilt. Die erste Hälfte 
belegt jeweils eine kleine Routine, die 
der Lader mit einem CALL als Unter- 
programm aufruft. Die Routinen erle- 
digen diverse Aufgaben. Sie setzen 
zum Beispiel die Farben oder bauen 
den Bildschirm - für PM.S. charakteri- 
stisch - von oben nach unten auf. Die 
zweite Hälfte dient als Adressenspei- 
cher. Sie enthält, natürlich verschlüs- 
selt, die Adressen für den zu benut- 
zenden Speicherbereich und die 
Startadresse der Hilfsroutinen. Dar- 
über hinaus findet der Lader hier die 
Werte zur Decodierung des nächsten 
Datensektors. 

Damit aber noch nicht genug der 
kleinen »Gemeinheiten«. Nachdem 
das Laden des gesamten Programms 
abgeschlossen ist, startet der Lader 
erst eine »Haupt-Test-und-Start- 
Routine«, die er auf der letzten Spur 
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" Verschluesselung mittels der 
XOR 


logischen Operation 


‘ Oliver Suttorp, 
"5224 Pulheim, Tel.: 


78 MODE 2 
88 en "Bitte geben Sie einen Satz ein 


stext# 


98 INFur "Bitte geben Sie das Codierwort 


ein :";codef# 
x=LEN (codef) :z=LEN (text#): 
EN 78 


LOCATE 1,5:FRINT "Textiß> 


stgf=text#:G0OSUB 77B: SosuB 230 
:FRINT:FRINT"Codei8> 


PRINT: FRINT"XOR" 


FOR i=® TO z/x:c&= c$+codef:NEXT: code 


$=c# 


stg#f=codef:605UB 278:G0SUB 2350 


findet. Dieses Programm fragt eine 
bestimmte fehlerhafte Spur der Dis- 
kette ab und fabriziert, wenn diese 
nicht auffindbar ist, einen farbenfro- 
hen »Absturz«. Ist auch diese letzte 
Hürde überwunden, startet das 
(Spiel-)Programm, das nach so vielen 
Mühen nun endlich richtig im Spei- 
cher steht. 

Allein das Vorhandensein dieses 
letzten Programmteils mit seinem 
abschließenden Test zeigt, daß die 
Programmierer eines Kopierschutzes 
dem Erfolg ihrer Bemühungen nie voll 
vertrauen. 

Beispiele für Schutzmechanismen, 
die ihre Aufgabe nicht ganz erfüllen, 
sind zwar durch intensive Programm- 
kontrollen seitens der Softwarehäuser 
rar geworden, ab und zu taucht aber 
doch einmal wieder einer auf und ver- 
ursacht in der Regel ein hämisches 
Grinsen der Kopierwilligen. 

Interessant ist es, die Entwicklung 
von Schutzmechanismen bei Disket- 
tensoftware im Laufe der Jahre zu ver- 
folgen. Begonnen hat alles mit einfa- 
chen Veränderungen der Sektor-IDs. 
Eine einzelne Sektornummer wird 
dabei auf der gesamten Diskette 
geändert. Unter anderem arbeitet ein 
bekanntes Textverarbeitungspro- 
gramm nach diesem Prinzip. In die- 
sem Sektor befindet sich eine kleine 
Maschinencode-Routine, die das 
Hauptprogramm bei jeder Disketten- 
operation aufruft. Findet das Pro- 
gramm diese Routine nicht, liegt dem- 
zufolge eine »Raubkopie« vor und es 
beginnt, die Daten der Diskette nach 
und nach zu zerstören. Der Vorteil die- 
ser subtilen »Langzeitwirkung« liegt 
darin, daß sich eine vermeintlich ein- 
wandfreie Kopie erst nach einiger Zeit 
als unbrauchbar erweist. 

Die Entwickler anderer Disketten- 
Software beließen es nicht bei nur 
einem Sektor. Praktisch die ganze Dis- 
kette ist in einem »Fremdformat« 
beschrieben. Dabei ist der Fantasie 
bei Vergabe von Sektornummern 
kaum eine Grenze gesetzt. Ob sie nun 


Johannisstr. 
02238/56368 


IF 


[öQEE] 
L1E9E] 
[SFS4] 
L&DESI 
LE27C]I 
[845A] 
U[FBFCI 


64 
’) 
NEXT 


[4842] 


FOR i=1 TO 
$,i1,1)),2)" 


12242] 
z>2@ TH 
[8D70] 
[7382] 
1[335A]J 
„133 
RETURN 


weaz" 


LEC4E]I 


[9376] 
[3ABCI 


von Fi bis F9 hex oder von 10 bis 18 
hex numeriert sind, ist vollkommen 
egal. Nur Nummern der normalen For- 
mate scheiden aus, weil Kopien sonst 
mit einfachsten Mitteln herzustellen 
sind. 

Fast gleichzeitig wurde entdeckt, 
daß man mehr als 40 Spuren auf einer 
Diskette unterbringen kann. Auf den 
3-Zoll-Disketten lassen sich bis zu 43 
Spuren beschreiben. Da einfache 
Kopierprogramme, wie die mit dem 
Laufwerk gelieferten Disckit oder 
Disccopy nur die Spuren O bis 39 
erkennen und verarbeiten, konnte 
man in diese »verborgenen« Spuren 
wichtige Teile des Programms ausla- 
gern. 

In diesem Zeitraum kam die Disk- 
Utility »Oddjob« von Pride Utilities auf 
den Markt. Dieses Softwarepaket ent- 
hielt unter anderem ein Kopierpro- 
gramm, mit dem sich auch Formate 
mit »illegalen« Sektornummern dupli- 
zieren ließen. Nur Spuren jenseits der 
Nummer 39 waren auch fürOddjobein 
»Rätsel«. Dieses Manko behoben fin- 
dige Cracker jedoch recht bald. 


Rüstungsspirale 


Die Softwareschützer waren also 
wieder gefordert. Sie mußten sich im 
Wettlauf mit den Herstellern von 
Kopierprogrammen etwas Neues ein- 
fallen lassen. So wurden kurz darauf 
Sektoren mit größeren Kapazitäten als 
den üblichen 512 Byte verwendet: Bis 
zu 4096 Byte paßten auf einmal in 
einen Sektor. 

All diesen Mechanismen wohnt ein 
großer Vorteil inne. Bei der Entwick- 
lung des Schutzes konnten die Pro- 
grammierer trotz der ungewöhnlichen 
Formate auf Betriebssystemroutinen 
zurückgreifen und mußten sich so 
nicht mit der komplizierten und zeitkri- 
tischen Programmierung des FDC 
herumschlagen (siehe auch unseren 
Beitrag auf Seite 38 dieser Ausgabe). 
Die vorhandenen ROM-Routinen sind 


PRINT:PRINT"Ergebnisi4>: ";z 

" ### Satz verschluesseln 

FOR i=1 TO z:ergt=ergf+CHR# (ASC (MID$ 
(text#,i,1)) XOR ASC(MIDF(codef#,i,i) 


stg$=erg$:GOSUB 278: G0OSUB 238 
CALL &%BEB&6: RUN 

" #*#%* ASCII-Werte in Hex ausgeben 
FRINT:PRINT"ASCII-Werte 


zZ 


[B826]1 
[C8AA] 


[2Z4BE] 
[75F2] 
L1AAAR] 
[985C1 
[D8B8] 
H [713E] 
FRINT HEX# (ASC (MID$ (stg 


"ZzNEXT [14906] 
PRINT: RETURN 

" ##%* Buchstaben ausgeben 

ERR i=1 TO z:PRINT CHR$(1);MID£ (stg$ 


[48BC] 
[&CaC] 
:NEXT [857E] 
[1734] 


Listing. Mit diesem kurzen Beispiellisting können Sie 
ein wenig zur Probe codieren 


so flexibel, daß durch entsprechende 
Anderung von Tabellen und Überga- 
beparametern jeder bislang beschrie- 
bene Schutz zu realisieren ist. Der 
Programmierer spart bei der Entwick- 
lung des Schutzes viel Zeit und das 
Programm muß keine aufwendigen 
eigenen Laderoutinen enthalten, was 
dem ohnehin arg begrenzten Spei- 
cherplatz des Computers zugute 
kommt. Das bedeutet natürlich auch, 
daß Kopierer ein leichtes Spiel haben, 
da sie mit ihren Hilfsprogrammen 
ebenfalls auf die DOS-Routinen 
zugreifen können. 

Aus diesem Grund häufen sich in 
letzter Zeit Programme, deren Lader 
direkt auf den FDC zugreifen. Kunst- 
griffe wie »gelöschte Data-Adress- 
Marks« finden sich immer öfter auf 
käuflichen Disketten. Wo soll das 
Ganze hinführen? Man könnte mei- 
nen, daß dies eine Entwicklungsspi- 
rale ohne Ende sei. Jedes noch so 
intelligente Kopierprogramm wird von 
einem noch besseren Schutz überli- 
stet (oder umgekehrt). Doch ein Ende 
ist absehbar. Da der FDC ein recht 
intelligenter Bursche ist, haben die 
Entwickler des Chips viele komplexe 
Funktionen in einfache Befehle 
gepackt. Genau dort ist die Grenze 
gezogen, über die niemand hinaus- 
kommt. Sein begrenzter Befehlssatz 
schränkt auch seine Fähigkeiten ein. 
Beim CPC ist der Controller, im 
Gegensatz beispielsweise zum Com- 
modore 64, nicht völlig frei program- 
mierbar. Schon jetzt ist die Flexibilität 
des FDC soweit ausgeschöpft, daß 
neue Methoden zum Programm- 
schutz nur noch schwer denkbar sind. 
Die Zukunft der Schützer sieht also 
alles andere als rosig aus, sie stehen 
auf verlorenem Posten. Vielleicht 
gehen deshalb immer mehr Firmen 
jetzt dazu über, ihre Produkte im wahr- 
sten Sinne des Wortes »schutzlos aus- 
zuliefern« und auf die Ehrlichkeit des 
Großteils der Benutzer zu vertrauen. 

Wir sollten ihr Vertrauen nicht miß- 
brauchen. (Oliver Suttorp/ja) 


49 


Ganz einfach: 


m bei der Programmierung der 
Grafik des CPC überhaupt 
etwas zu erreichen, muß man 
erst einmal deren grundlegenden Auf- 
bau kennen. 

Der Bildschirm des CPC ist in allen 
drei Bildschirmmodi (Modus O bis 2) in 
ein feines Raster aus Grafikpunkten 
aufgeteilt. Im Modus 2 lassen sich 640 
Punkte horizontal und 200 Punkte ver- 
tikal ansprechen, Modus 1 stellt 320 
Punkte horizontal und 200 Punkte ver- 
tikal zur Verfügung, und Modus 0 bie- 
tet 160 horizontale und 200 vertikale 
Punkte. 

Wie Sie sehen, ist die Zahl der verti- 
kalen Punkte konstant, lediglich die 
Anzahl der horizontalen Punkte vari- 
iert und bestimmt damit die Auflösung 
der Grafik, das heißt, die Anzahl von 
Grafikpunkten pro Flächeneinheit. Je 
geringer die Auflösung der Grafik, 
desto mehr Farben lassen sich auf 
dem CPC darstellen. Der Grund liegt 
darin, weil durch eine geringere Auflö- 
sung weniger Grafikpunkte gespei- 
chert werden müssen und dement- 
sprechend mehr Farbinformationen 
pro Punkt im Bildspeicher abgelegt 
werden können. 

Folgende Rechnung macht dies 
deutlich: 
Auflösung: 

Modus 2: 640 x 200 
Modus 1: 320 x 200 
Modus 0: 160 x 200 


128000 Bildpunkte 
64000 Bildpunkte 
32000 Bildpunkte 


nnoh 


Farben: 

Modus 2: 
Modus 1: 
Modus 0: 16 Farben 


Rechnet man nun den Gesamt- 
Speicherbedarf für ein Bild in allen 
drei Modi aus, so erhält man jedesmal 
das gleiche Ergebnis: 

Modus 2: 128000 x 1 Bit = 16000 Byte 
Modus 1: 64000 x 2 Bit = 16000 Byte 
Modus 0: 32000 x 4 Bit = 16000 Byte 


Da der Bildspeicher des CPC 16 
KByte (gleich 16384 Byte) groß ist, 
wird so der Speicherplatz in jedem 
Bildschirmmodus optimal ausgenutzt. 

Die einzelnen Grafikpunkte des 
CPC lassen sich mit den Basic- 
Befehlen manipulieren, indem sie 
über ein rechtwinkliges Koordinaten- 
system angesprochen werden. Die 
Position jedes Punktes legen jeweils 
zwei Werte fest. Der erste Wert (x) gibt 
an, wie weit der Punkt parallel zur hori- 
zontalen Achse des Koordinatensy- 


2 Farben = 1 Bit Speicherbedarf 
4 Farben = 2 Bit Speicherbedarf 
= 4 Bit Speicherbedarf 


Die Grafikbefehle des Schnei- 
der CPC sind im Handbuch teil- 
weise nur unzureichend und 
ohne Beispiele erklärt. Insbe- 
sondere das Handbuch des 
CPC 464 weist in dieser Hin- 
sicht eklatante Schwächen auf. 
Wenn Sie die Grafik des CPC 
beherrschen und beispiels- 
weise auch die relativen Grafik- 
befehle MOVER, PLOTR, 
DRAWR und TESTR optimal 
einsetzen möchten, ist dieser 
Beitrag genau richtig für Sie. 


stems vom Koordinaten-Nullpunkt 
(Achsen-Schnittpunkt) entfernt ist, der 
zweite Wert (y) gibt den Abstands des 
Punktes parallel zur vertikalen Achse 
vom Koordinaten-Nullpunkt an. 
Sicherlich ist Ihnen dieses Koordina- 
tensystem noch aus der Schulzeit 
bekannt (Bild 1). 

Die Grafikbefehle des CPC arbeiten 
immer mit einem Koordinatensystem, 
das 640 Punkte in der horizontalen 
und 400 Punkte in der vertikalen Rich- 
tung erlaubt, ganz gleich, welche Auf- 
lösung der gewählte Bildschirm- 
Modus tatsächlich zuläßt. So adres- 
sieren beispielsweise im Modus 1 die 
Koordinaten 100/100, 101/100, 100/101 
und 101/101 alle den gleichen Punkt 
auf dem Bildschirm. 

Das Verhältnis von 640 horizontalen 
zu 400 vertikalen Punkten wurde des- 
halb gewählt, weil auf diese Weise ein 
Bildpunkt (zwei übereinanderlie- 
gende Punkte im Modus 2) annähernd 
quadratisch ist, und beispielsweise 
ein Kreis auch wirklich wie ein Kreis 
und nicht wie ein Oval aussieht (das 
optimale Verhältnis von horizontalen 
zu vertikalen Punkten beträgt 640 zu 
480). 

Damit das Grafik-Koordinatensy- 
stem des CPC dem mathematischen 
Koordinatensystem entspricht, befin- 
det sich der Nullpunkt nach dem Ein- 
schalten links unten auf dem Bild- 
schrm und die Koordinaten- 


Positionen zählen von links nach 
rechts beziehungsweise von unten 
nach oben. 

Wenn wir im folgenden die Grafikbe- 
fehle des Schneider CPC bespre- 
chen, teilen wir sie grob in absolute 


Grafik auf dem CPC 


undrelative Befehle auf. Bei absoluten 
Grafikbefehlen werden die Koordina- 
ten eines Bildpunktes immer ausge- 
hend vom Nullpunkt berechnet, bei 
relativen werden die im Befehl ange- 
gebenen Koordinaten ausgehend von 
der aktuellen Position des Grafikcur- 
sors verwendet. Das heißt die momen- 
tane Position des Grafikcursors wird 
als Koordinaten-Nullpunkt betrachtet. 
Einer der wichtigsten Grafikbefehle 
des CPC ist der PLOT-Befehl. Der 
PLOT-Befehl setzt einzelne Grafik- 
punkte auf dem Bildschirm. Das 
Befehlsformat lautet 
PLOT xordinate, yordinate, farbregister 


Für Farbregister ist 1 der Standard- 
wert. Wünschen Sie keine Anderung 
des Farbregisters, brauchen Sie die- 
sen Wert nicht anzugeben. Der Com- 
puter nimmt in diesem Fall immer die 
Farbe des zuletzt gewählten Farbregi- 
sters an. 


Punkt für Punkt 
mit PLOT 


Mit dem PLOT-Befehl und den trigo- 
nometrischen Funktionen COS und 
SIN läßt sich auf einfache Weise ein 
Kreis zeichnen: 

10 DEG:MODE 2 

20 ORIGIN 320,200 

30 FOR a=1 TO 360 

40 PLOT 100xC0S(a),100xSIN(a) 
50 NEXT a 

In diesem kleinen Listing kommt 
bereits der ORIGIN-Befehl vor. ORI- 
GIN verschiebt den Nullpunkt des 
Koordinatensystems an eine beliebige 
Position des Bildschirms, in unserem 
Fall auf die Bildschirmmitte. 

Die Variable <a> enthält den 
aktuellen Winkel für die Sinus- und 
Kosinusfunktion. Um einen komplet- 
ten Kreis zu zeichnen, wird eine volle 
Umdrehung von 360 Grad benötigt. 
Der Sinus von a ist dabei nichts ande- 
res als die Y-Ordinate eines Punktes, 
der Teil eines Kreises mit dem Radius 
1 ist, und der Kosinus von a entspricht 
der X-Ordinate eines Punktes dieses 
Kreises (Bild 2). 

Soll der Kreis einen größeren 
Radius erhalten, so müssen Sie den 
Sinus- und Kosinuswert mit dem 
gewünschten Radius multiplizieren. 
Sie dürfen jedoch diesen Wert nicht zu 
hoch wählen, weil Ihnen nach oben 


50 


ADD 


und unten nur jeweils 200 Bildpunkte 
zur Verfügung stehen. 

Multiplizieren Sie beispielsweise 
den Sinus- und Kosinuswert mit unter- 
schiedlichen Radien, so erhalten Sie 
eine Ellipse. Andern Sie das Listing in 
Zeile 40 wie folgt: 

40 PLOT 50xcos(a),150xsin(a) 


Sie können mit den beiden Multipli- 
katoren getrost experimentieren oder 
beispielsweise Zufallsellipsen über 
den Bildschirm verteilen. Versetzen 
Sie den ORIGIN-Befehl über RND- 
Werte und lassen Sie jeweils eine 
Ellipse mit Zufalls-Multiplikatoren 
zeichnen. 


Bewegung 
kommt ins Spiel 


Der Befehl MOVE ist mit dem PLOT- 
Befehl eng verwandt und funktioniert 
fast genauso. Mit dem MOVE-Befehl 
läßt sich der Graphikcursor auf die 
angegebene Koordinate setzen, 
jedoch wird kein sichtbarer Punkt an 
dieser Position erzeugt. Das Befehls- 
format des MOVE-Befehls lautet 
MOVE xordinate, yordinate, farbregister 


Der Befehl DRAW zieht eine Linie 
von der aktuellen Position des Grafik- 
cursors bis zur angegebenen Koordi- 
nate. Das Befehlsformat lautet: 

DRAW xordinate, yordinate, farbregister 


Betrachten Sie noch einmal das 
Listing, das einen Kreis zeichnet. 
Andern Sie die Zeile 40 und setzen Sie 
mit dem MOVE-Befehl den Grafikcur- 
sor in der FOR-NEXT-Schleife immer 
wieder auf Null zurück, dann entsteht 
ein sternförmiges Gebilde. Fügen Sie 
dazu Zeile 35 in das Programm neu 


y-Achse 


x (250/150) 


100 200 I 300 


x-Wert=250 


Bild 1. Nach diesem Prinzip lassen 
sich Punkte mit zwei Angaben in 
einem rechtwinkligen Koordinaten- 
system adressieren 


ein und ändern Sie Zeile 40 folgender- 
maßen ab: 

35 MOVE 0,0 

40 DRAW 100xC0S(a),100xSIN(a) 

Um die Anzahl der Strahlen zu 
bestimmen, bauen Sie in die FOR- 
Zeile noch einen STEP-Befehl 
(Schrittweite) ein. Dabei gilt: 
Schrittweite = 360 / Strahlenanzahl 

Wünschen Sie beispielsweise 20 
Strahlen, so ändern Sie Zeile 30 zu 
30 FOR a=1 to 360 STEP 18 


Nachdem Sie jetzt die drei wichtig- 
sten Grafikbefehle des CPC kennen, 
ist es für Sie ein leichtes, ein beliebi- 
ges Rechteck zu zeichnen. Probieren 
Sie einmal, ein Quadrat mit der Seiten- 
länge von 100 auf die Mitte des Bild- 
schirms ausgeben zu lassen. Dazu 
gibt es mehrere Wege. Wer nnichtlange 
zögert und sofort losprogrammiert, 
dessen Listing wird folgendermaßen 
aussehen: 

10 MOVE 270,150 
20 DRAW 370,150 
30 DRAW 370,250 
40 DRAW 270,250 
50 DRAW 270,150 

Doch wer sich ein paar Gedanken 
macht, kann sich mit dem ORIGIN- 
Befehl Umrechnungsarbeit ersparen. 
10 ORIGIN 270,150 
20 DRAW 100,0 
30 DRAW 100,100 
40 DRAW 0,100 
50 DRAW 0,0 

Und der Perfektionist, der gerne im 
Mittelpunkt steht, schreibt: 

10 ORIGIN 320,200 
20 MOVE -50,-50 
30 DRAW 50,-50 
40 DRAW 50,50 

50 DRAW -50,50 

60 DRAW -50,-50 


Wenn Ihnen nicht ganz klar ist, wie 


Bild 2. So läßt sich 
mit den Funktio- 

nen COS und SIN 

ein Kreis zeichnen >» 


diese Beispiele funktionieren, versu- 
chen Sie am besten mit Papier und 
Bleistift die Bewegungen des Grafik- 
cursors nachzuvollziehen. 


Der Zweck von DEG 


Bis jetzt wurde die Ausgabe des 
Befehls DEG in der ersten Zeile des 
Kreis-Programms noch nicht erläutert. 
Der DEG-Befehl ist nötig, weil das Pro- 
gramm bei den Befehlen COS und SIN 
im Gradmaß arbeiten soll und DEG 
dieses Gradmaß einschaltet. (Der 
CPCistnach dem Einschalten auf das 
Bogenmaß eingestellt, das durch den 
Befehl RAD auch wieder eingeschal- 
tet werden kann). 

Daß der ORIGIN-Befehl den Koordi- 
naten-Nullpunkt festlegt, wurde 
bereits erwähnt, doch man kann mit 
diesem Befehl auch ein Grafikfenster 
bestimmen, dessen linke untere Ecke 
dann dem Koordinaten-Nullpunkt 
gleichgesetzt wird. Das normale 
Befehlsformat von ORIGIN lautet 
ORGIN xordinate, yordinate 

Kommt dann noch ein Grafikfenster 
hinzu, so hat der Befehl folgendes For- 
mat: 

ORIGIN xordinate, yordinate, links, 
rechts, oben, unten 

Ein Beispiel: 

MODE 1:0RIGIN 100,100,100,540, 300,100 

Um dieses Fenster auch sichtbar zu 
machen, müssen Sie beispielsweise 
»CLG 3« eingeben. Das Grafikfenster 
wird nun mit der Farbe aus Farbregi- 
ster 3 gefüllt. Der Befehl CLG arbeitet 
ähnlich wie der CLS-Befehl, nur löscht 
er nicht den gesamten Bildschirm, son- 
dern nur das Grafikfenster in der Farbe 
des angegebenen Farbregisters. 


x—Achse 


KANKULER 
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Selten benötigt man bei der Grafik- 
programmierung den Befehl TEST. Mit 
TEST können Sie überprüfen, wel- 
ches Farbregister auf der angegebe- 
nen Koordinate verwendet wurde. Das 
Befehlsformat lautet 
TEST (xordinate,yordinate) 


Folgendes kleine Beispiel verdeut- 
licht die Funktion des TEST-Befehls: 
PLOT 100,100,3 
PRINT TEST(100,100) 

Nachdem wir alle absoluten Grafik- 
befehle des CPC behandelt haben, 
wenden wir uns nun den relativen Gra- 
fikbefehlen zu. 

Der Befehl PLOTR setzt wie PLOT 
einen Punkt, nur daß der Computer 
die Koordinaten relativ zur aktuellen 
Position des Grafikcursors betrachtet. 
Befehlsformat: 

PLOTR xversatz, yversatz, farbregister 


Das folgende Beispiel setzt die 
Ecken einer Raute auf den Bildschirm: 
10 PLOT 100,100 
20 PLOTR 10,10 
30 PLOTR -10,10 
40 PLOTR -10,-10 

Auch der Befehl DRAWR arbeitet 
relativ. Er eignet sich hervorragend für 
dreidimensionale Darstellungen. Das 
Befehlsformat lautet 
DRAWR xversatz, yversatz, farbregister 


Folgendes Programm zeichnet 
einen dreidimensionalen Würfel: 
10 MODE 1 
11 'Bildschirm-Initialisierung 
20 c=1 
21 'c=Farbregister 
30 ORIGIN 320,200 
31 'Definition des Nullpunktes 
40 FOR x=40 TO 0 STEP -2 
41 'Schleife zum Aufbau des Wuerfels 
50 MOVE x,x 
51 "linke, untere Quadratecke 
60 IF x(40 THEN c=3:'erster Durchlauf? 
70 GOSUB 110 
80 NEXT 
90 c=1:G0SUB 110 
91 'letztes Quadrat zeichnen 
100 END 
110 'UP Quadrat zeichnen 
120 DRAWR 100,0,c 
130 DRAWR 0,100 
140 DRAWR -100,0 
150 DRAWR 0,-100 
160 PLOT x,x,1 
170 RETURN 


Die REM-Zeilen müssen Sie selbst- 
verständlich nicht abtippen; sie gelten 
lediglich der Programm-Dokumen- 
tation. 

Das Bild eines Würfels entsteht 
dadurch, daß die linke untere Ecke 
eines Quadrates auf den Nullpunkt 
zubewegt wird. In Zeile 60 prüft das 
Programm, ob der erste Durchgang 
der Schleife vorliegt, und somit noch 
ein helles Quadrat für den Rand 
gesetzt werden muß. Darauf folgt der 
Aufruf des Unterprogramms »Quadrat 


zeichnen« und das Quadrat wird mit 
der Farbe aus dem aktuellen Farbregi- 
ster gezeichnet. Am Ende der Routine 
wird in die linke untere Ecke ein heller 
Punkt gesetzt, um den dreidimensio- 
nalen Effekt zu verstärken. Wenn die 
Programmschleife abgearbeitet ist, 
wird zum Schluß noch ein helles Qua- 
drat davorgesetzt. 

Der relative Grafikbefehl MOVER 
versetzt den Grafikcursor von seiner 
aktuellen Position um <xversatz> 
Bildpunkte horizontal und um 
<yversatz> Bildpunkte vertikal. Das 
Befehlsformat lautet: 


MOVER xversatz, yversatz, farbregister 


Ein weiterer relativer Befehl ist die 
TESTR-Funktion, die das Farbregister 
anzeigt, das auf dem angegebenen 
Versatz zu der aktuellen Grafikcursor- 
position verwendet wurde. Befehlsfor- 
mat: 

PRINT TESTR(xversatz,yversatz) 

Neben den absoluten und relativen 
Grafikbefehlen gibt es noch einige 
weitere Befehle, die bei der Grafikpro- 
grammierungeine wichtige Rolle spie- 
len. Einer dieser Befehle ist TAG. Der 
TAG-Befehl erlaubt das Mischen von 
Text und Grafik. Sie werden jetzt viel- 
leicht einwenden, daß sich dies ohne- 
hin schon mit dem LOCATE- und 
PRINT-Befehl machen läßt. Doch im 
TAG-Modus funktioniert das Schrei- 
ben etwas anders: Die Zeichen wer- 
den nicht mehr auf die Position des 
Textcursors, sondern auf die Position 
des Grafikcursors ausgegeben, so 
daß sich Text nun auch zwischen den 
Textzeilen darstellen läßt. 

Der Befehl TAGOFF schaltet den 
TAG-Modus wieder aus. Die Formate 
für die beiden Befehle lauten: 

TAG #fenster 
TAGOFF # fenster 

(Wenn das Standardfenster 0 ange- 
sprochen ist, reicht es aus, nur »TAG« 
oder »TAGOFF« zu schreiben.) 

Ein Beispiel zum TAG-Befehl: 

10 TAG 

20 MOVE 100,310 

30 PRINT”Dieser Text steht zwischen 
den Zeilen.”; 

40 MOVER 16,-24 

50 PRINT”Wie sieht das aus ?”; 

60 TAGOFF 

Wie im normalen Grafikmodus 
erfolgt auch in diesem Fall keine Feh- 
lermeldung, wenn eine Textausgabe 
über den Bildrand hinweg erfolgt. 

Wichtig beim Arbeiten mit dem TAG- 
Befehl ist, daß sämliche Steuerzei- 
chen (das sind die Zeichen mit ASCII- 
Werten unter 32) mit einem PRINT- 
Befehl nicht mehr ausgeführt, son- 
dern auf dem Bildschirm angezeigt 
werden. So wird zum Beispiel nach 
jedem PRINT der Cursor nicht auf die 
erste Stelle der nächsten Zeile 


gesetzt, weil dazu die Steuerzeichen 
10 und 13 verwendet werden müßten. 
Auch Befehle wie CLS, PEN oder 
PAPER ignoriert der Computer. 

Die beiden Befehle XPOS und 
YPOS funktionieren wie Variablen, die 
ständig die aktuelle (und absolute) X- 
beziehungsweise Y-Ordinate der Posi- 
tion des Grafikcursors enthalten. Ein 
Beispiel: 

10 MOVE 225,350 
20 PRINT”X-Position 
Position: ”;YPOS 

Bislang war, wenn es um Farben 
ging, immer nur von Farbregistern, 
doch nie von den Farbwerten selbst 
die Rede. Der Befehl INK ist dazu 
gedacht, einem Farbregister einen 
bestimmten Farbwert zuzuweisen. Es 
können die Farbregister O bis 15 mit 
den Farbwerten O bis 26 belegt wer- 
den. Das Befehlsformat lautet: 

INK farbregister, farbwert 


Wird ein zweiter Farbwert angege- 
ben, so blinken diese beiden Farben 
abwechselnd (die Geschwindigkeit 
des Blinkens läßt sich mit dem Befehl 
SPEED INK einstellen). 

Im nachfolgenden Programm wird 
durch das Wechseln der Farbwerte in 
den Farbregistern die Bewegungeiner 
Kugel simuliert: 


ı";XPOS, ”"Y- 


10 MODE 1:DEG 

20 DEFINT a-z 

30 ORIGIN 320,200 

40 FOR i=1 TO 3:INK i,26:NEXT:INK 0,0 
50 m=100:n=100:c=1:d=3 

60 MOVE O,n 

70 FOR a=1 TO 360 step 5 

80 IF a(180 THEN PLOT mySIN(a),nxCOS 
(a),c ELSE PLOT mxSIN(a),nyCOS(a),d 
90 NEXT:ce=c+1:IF c)3 THEN c=1 

100 d=d-1:IF d{1 THEN d=3 

110 m=m-5 

120 IF m)=0 THEN 60 

130 f=10 

140 FOR i=1 TO 3 

150 INK i,f 

160 f=f+5:IF f)20 THEN f=5 

170 FOR w=1 TO 50:NEXT 

180 NEXT 

190 GOTO 140 


Die Kugel wird erzeugt, indem meh- 
rere Ellipsen übereinander gelegt und 
jeweils nach einer halben Ellipse die 
Farbwerte der Farbregister gewech- 
selt werden. Ohne Farbwechsel wäre 
auf beiden Seiten der Kugel eine Dre- 
hung von außen nach innen zu sehen. 

Nun sind wir am Ende unseres 
Streifzuges durch die Welt der Grafik- 
programmierung angelangt. In der 
Basic-Version 1.1 des CPC 664 und 
6128 gibt es zwar noch einige zusätzli- 
che Grafikbefehle, diese werden 
jedoch im zugehörigen Handbuch 
ausführlich erklärt, so daß sich eine 
Besprechung an dieser Stelle er- 
übrigt. (Christian Aschoff/ma) 
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GSX ist eine Grafikerweiterung 
für CP/M Plus, die im Lieferum- 
fang des CPC 6128 bereits ent- 
halten ist. Da jedoch jegliche 
Dokumentation zu dieser Soft- 
ware fehlt, ist die Art der 
Anwendung unter den 6128-Be- 
sitzern relativ unbekannt. Der 
folgende Beitrag erklärt Ihnen, 
was es mit GSX auf sich hat. 


urch den rasanten Anstieg von 
D Leistung und Geschwindigkeit 

auf dem Gebiet der Computer- 
entwicklung sowie durch den anhal- 
tenden Preisverfall bei elektronischen 
Bausteinen werden auch die Grafikfä- 
higkeiten der Computer immer besser 
und preiswerter. 

So ist Computergrafik inzwischen 
ein Thema, das viele Computer- und 
Nicht-Computerbesitzer mit großem 
Interesse verfolgen. Neue Einsatzge- 
biete in Industrie und Wissenschaft, in 
der Werbung und nicht zuletzt im 
Heimbereich faszinieren und begei- 
stern auch technisch weniger interes- 
sierte Menschen. 

Viele neue Programmiertechniken 
wie zum Beispiel der Einsatz von CAD 
(computerunterstützte Konstruktion) 
und CAM (computerunterstützte Pro- 
duktion) wurden durch hohe Grafik- 
auflösung und eine breite Farbenpa- 
lette erst möglich. 

Die aktuellen Betriebssysteme oder 
zumindest Teile davon, wie der Finder 
des Macintosh oder GEM auf dem 
Atari ST und Windows auf dem PC/AT 
arbeiten grafikorientiert, so daß auch 
der Bedienungskomfort für den Benut- 
zer deutlich gestiegen ist. 

Aufgrund dieser Entwicklung erge- 
ben sich natürlich Probleme mit älte- 
ren Betriebssystemen. Da diese 
hauptsächlich für die Ein- und Aus- 
gabe von Texten konzipiert wurden, 
fehlten lange Zeit die Grafikanwen- 
dungen. Dies liegt nicht zuletzt auch 
darin begründet, daß die Entwickler 
der Betriebssysteme Informationen 
über die Arbeitsweise ihrer Routinen 
lange Zeit zurückhielten. 

Dies galt lange Zeit auch für das 
8-Bit-Betriebssystem CP/M, das 
neben MS-DOS und Unix zu den am 
weitesten verbreiteten Betriebssyste- 
men zählt. 

Doch Digital Research, der Herstel- 


ler von CP/M, hatte ein Einsehen und 
entwickelte zu der verbesserten 
Betriebssystem-Version CP/M Plus 
die universelle Grafikerweiterung GSX 
(graphics system extension). 

Leider wurde GSX in seiner Lei- 
stungsfähigkeit bislang weit unter- 
schätzt und viel zu wenig beachtet, 
doch das kann sich ändern. 

Beim Kauf des Schneider CPC 6128 
wird nämlich neben den Betriebs- 
systemen CP/M 2.2 und CP/M Plus 
sowie der Programmiersprache Logo 
auch die Grafikerweiterung GSX mit- 
geliefert, die dem CP/M-Plus- 
Benutzer Zugang zur Programmie- 
rung von Grafik unter diesem 
Betriebssystem verschafft. 


GSX - 
ein Geheimnis? 


Aus unerfindlichen Gründen bleibt 
GSX jedoch in der begleitenden Doku- 
mentation des CPC 6128 unerwähnt, 
von einer näheren Beschreibung ganz 
zu schweigen. Esfindensich allenfalls 
ein paar Anmerkungen, die auf die 
Leistungsfähigkeit von GSX hin- 
weisen und die Anpassung von bereits 
geschriebenen, professionellen Pro- 
grammen an die Grafikroutinen erläu- 
tern. 

Dieses Verhalten der Firma Schnei- 
der ist insbesondere merkwürdig, da 
sich mit der GSX-Erweiterung recht 
schnell saubere Zeichnungen anferti- 
gen lassen, wie die simple Grafik in 
Bild 1 beweist. 

GSX ist allgemein betrachtet ein 
Programm, das bestimmte Daten- 
strukturen und Anwendungsgebiete 
zusammenfaßt, so daß ein vollkom- 
men Hardware-unabhängiges System 
entsteht, das inzwischen auf vielen 
verschiedenen Computern eingesetzt 
wird. Selbst unter MS-DOS und CP/M 
80 gibt es Implementierungen. 

Bild 2 zeigt, auf welchen Systemen 
GSX mittlerweile eingesetzt wird. 

Zu Beginn möchten wir Ihnen am 
Beispiel von Turbo-Pascal demon- 
strieren, wie die Anpassung der Gra- 
fikerweiterung GSX an das Betriebs- 
system funktioniert. 

Grundsätzlich bestehen zwei Mög- 
lichkeiten, Turbo-Pascal-Programme 
mit dem GSX-Zusatz zu versehen. 

Zum einen können Sie sämtliche 
der mit Hilfe der Compiler-Option 


Was Sie schon immer 
über GSX wissen wollten 


»COM« erzeugten Turbo-Pascal-Pro- 
gramme einzeln GSX-fähig machen. 
Diese Alternative hat aber den Nach- 
teil, daß Sie die auf diese Weise modi- 
fizierten Programme jedesmal neu 
anpassen müssen, wenn Sie Ände- 
rungen im Quellcode vornehmen. 

Zum anderen können Sie die 
Betriebssystemumgebung von Turbo- 
Pascal selbst verändern, so daß alle 
compilierten Programme sofort aus- 
probiert werden können. Im folgenden 
werden wir diesen Weg für Turbo- 
Pascal-Programme realisieren. 

Zu diesem Zweck müssen Sie 
zuerst einige Dateien auf die Turbo- 
Pascal-Programmdiskette kopieren, 
die später genauer erläutert werden. 

Auf den Systemdisketten des CPC 
6128 befinden sich drei Dateien, die 
Sie auf jeder Fall kopieren müssen. 
Diese sind »gsx.sys«, »assign.sys«und 
»gengraf.com«. 

Des weiteren benötigen Sie minde- 
stens einen Treiber, auf dessen 
Bedeutung wir später noch eingehen 
werden. Sollten Sie die genannten 
Dateien auf Ihrer Turbo-Pascal-Dis- 
kette installiert haben, so geben Sie 
bitte folgende Befehlszeile unter CP/M 
Plus ein: 
gengraf turbo 

Nach einiger Zeit erscheint auf dem 
Bildschirm eine Meldung, die Ihnen 
mitteilt, daß GSX installiert ist. 


Die Installation 
von GSX 


Jetzt können Sie Turbo-Pascal so 
starten, so wie Sie es bislang gewohnt 
waren. Doch werden Sie überrascht 
feststellen, daß Ihnen wesentlich weni- 
ger Speicherbereich für Ihre Pro- 
gramme zur Verfügung steht als zuvor. 
Der Speicherplatz ist deshalb einge- 
schränkt, weil sich nun im Arbeitsspei- 
cher des CPC neben Türbo-Pascal 
auch die GSX-Erweiterung befindet. 
Dadurch fehlen unter der Turbo- 
Pascal-Version 3.0 immerhin fast zwölf 
KByte an freiem Speicherplatz. 

Wenden wir uns nun den grundle- 
genden Eigenschaften von GSX zu. 
GSX erweitert die Eigenschaften von 
CP/M Plus generell um ein grafisches 
Ausgabegerät. In Wirklichkeit existiert 
dieses Ausgabegerät jedoch nicht. Es 
wird nur der Programmiersprache 
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beziehungsweise dem angepaßten 
Programm als weitere Ausgabeeinheit 
angeboten. Die eigentliche Anpas- 
sung an die tatsächlich angeschlos- 
sene Peripherie wird dann vom GSX- 
System und den sogenannten Trei- 
bern durchgeführt. 

So ist GSX für jedes Peripheriegerät 
geeignet. Es müssen nur die entspre- 
chenden Treiber zur Verfügung ste- 
hen. Diese müssen zusätzlich zu den 
Installationsprogrammen und dem 
GSX-System auf die Arbeitsdiskette 
kopiert werden. 

Auf den Systemdisketten des CPC 
6128 befinden sich folgende Treiber: 
ddmodeO.prl 
ddmodel.prl 
ddmode2.prl 
dd-dmpi.prl 
ddfx1lr7.prl 
ddshinwa.prl 
ddhp7470.prl 

Die Dateien »ddmode0«, »ddmode1« 
und »ddmode2« sind die Treiber für die 
drei Bildschirmmodi des CPC (MODE 
0, MODE 1 und MODE 2). 

Der Treiber »dd-dmp1« eignet sich 
für Ausgaben auf den Schneider- 
Drucker DMP 2000 und »ddfxIr7« ist für 
den Ausdruck auf Epson-Druckern 
beziehungsweise Epson-kompatiblen 
Druckern vorgesehen. 

Die Datei »ddshinwa« ist für spe- 
zielle Peripherie vorhanden, die den 
Shinwa-Mechanismus benutzt, und 
»ddhp7470« bedient den Hewlett- 
Packard-Plotter 7470 und kompatible 
Geräte. 

Die Namen der im Zusammenhang 
mit GSX verwendeten Treiber müssen 
sich in der ASCII-Datei »assign.sys« 
befinden. In dieser Datei sind auch die 
Gerätenummern gespeichert, durch 
deren Aufruf ein bestimmter Teil der 
Peripherie angesprochen wird. Dabei 
ist es wichtig, daß die Treiber der 
Größe nach, mit dem längsten begin- 
nend, aufgeführt sind. 

GSX lädt nämlich beim ersten Aufruf 
den ersten Treiber in den Programm- 
speicher und reserviert den Speicher- 
platz für diese Datei. Sollte später ein 
anderer Treiber benötigt werden, so 
wird dieser in diesen reservierten 
Arbeitsbereich geladen. Aus diesem 
Grund darf der später benötigte Platz 
nicht größer sein als der zuvor defi- 
nierte. Andernfalls könnte das Be- 
triebssystem abstürzen. 

Die Gerätenummern werden in der 
Regel nach folgendem Prinzip 
benutzt: 

01 bis 10: Bildschirm 
11 bis 20: Drucker 
21 bis 30: Plotter 

Als Demonstrationsbeispiel für die 
Anwendungen von GSX dient uns ein 
Turbo-Pascal-Programm, dessen ein- 


fache Aufgabe es ist, auf dem Bild- 
schirm unter CP/M Plus einen kurzen 
Text anzuzeigen und ein Rechteck zu 
zeichnen. 

GSX ist aber nicht auf Pascal festge- 
legt, sondern arbeitet grundsätzlich 
mit jeder Programmiersprache 
zusammen beziehungsweise mit 


jeder Datei mit der Extension »com«, 
die es erlaubt, Systemaufrufe zu pro- 
grammieren. 

GSX arbeitet wie die Basic-Grafik 
des CPC mit einem zweidimensiona- 
len Koordinatensystem, dessen Null- 
punkt sich links unten auf dem Bild- 


Bild 1. Fix gezeichnet: Ein Häuschen 
unter CP/M und GSX 


Bild 3. Sechs verschiedene Füllmuster 
und sechs verschiedene Schraffuren 
beherrscht GSX 


schirm befindet. Die beiden Koordina- 
tenwerte x und y können jeweils Werte 
von O0 bis 32767 annehmen. 

Einige Fähigkeiten von GSX werden 
allerdings nicht durch alle Treiber 
beziehungsweise von allen ange- 
schlossenen Peripheriegeräten unter- 
stützt. Soistes zum Beispiel bei einem 
Plotter grundsätzlich möglich, Schrif- 
ten in verschiedenen Winkeln auszu- 
geben; bei einem Drucker oder Moni- 
tor versagt dieses Verfahren jedoch. 

GSX stellt dem angesprochenen 
Programm eine Art Betriebssystem- 
umgebung namens GDOS (graphics 
device operating system) zur Verfü- 
gung, die wie CP/M bestimmte 
Systemroutinen anbietet. Ein GSX- 
Grafikbefehl wird dabei ähnlich aufge- 
rufen wie eine Betriebssystemroutine. 

Die Befehle von GSX können Kreise 
oder Kreisausschnitte zeichnen, ver- 
schiedene Farben auswählen, unter- 
schiedliche Linien ziehen, Text in 
mehreren Formaten schreiben, 
gefüllte Flächen malen und vieles 
mehr. 


GSX praktisch 
eingesetzt 


Besonders hervorzuheben sind die 
verschiedenen Darstellungsarten an 
gefüllten Flächen, die in Bild 3 aufge- 
listet sind. So kann man unter GSX 
zum Beispiel mit einem bestimmten 
Muster oder einer gewünschten 
Schraffur ausgefüllte Rechtecke, 
Kreise oder Polygone zeichnen las- 
sen. 

Gesteuert werden die GSX-Kom- 
mandos unter CP/M mit Hilfe des 
BDOS-Aufrufs 115, wobei das Register 
DE die Adresse eines Parameter- 
blocks angeben muß, der die einzel- 
nen Parameter der gewählten Funk- 
tion enthält. 

Dies hört sich jetzt sehr kompliziert 
an, doch das abgedruckte Turbo-Pas- 
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TURBO-LADER 


Die Programm-Bibliothek für Turbo-Pascal. 


Markt&etechnik 
Schneider CPC- 
Software 


Die Programm-Bibliothek für Turbo Pascal 
Über 100 Prozeduren und Funktionen in 
Turbo Pascal Source Code 
Bitmanipulation, Sortierverfahren, Spline- 
funktionen, Fouriertransformation, 
Regressionsanalyse und vieles mehr. 


5\4” Vortex-Format 


Turbo-Lader-Grundpaket 
Das Turbo-lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
Turbo-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen lösung seiner Programmierauf- 
gaben verwenden kann und die dem Ein- 
steiger das Erlernen der Pascal-Program- 
mierung erleichtern. 

e Bitmanipulation 

e Optimale Sortierverfahren 

© Anwendung von Spline-Funktionen 

© Regressionsanalyse 

Alle Routinen werden im kommentierten 
Quellcode für den Turbo-Pascal-Compiler 
ausgeliefert. 

Software-Anforderung: 
Turbo-Pascal-Compiler. 


Diese Markt& Technik-Software erhalten Sie in den 
Fachabteilungen der Warenhäuser, bei Ihrem 
Computerfachhändler, im Buchhandel oder direkt 
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Markt&dechnik 
Schneider CPC 
Software 


für Turbo Pascal 


Programm-Bibliothek. 

Ein komfortabler Bildschirm-Masken- 
generator und eine professionelle Datei- 
verwaltung in Turbo Pascal Source Code. 


3" Schneider-Format 


Turbo-Lader Business 

Turbo-lader Business umfaßt einen komfor- 
tablen Bildschirm-Maskengenerator und eine 
professionelle Dateiverwaltung. Der Masken- 
generator gibt dem Pascal-Programmierer ein 
Werkzeug zur einfachen Bearbeitung von 
Bildschirm-Masken in die Hand. 

Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im 
kommentierten Quellcode für den Turbo- 
Pascal-Compiler ausgeliefert. 
Software-Anforderung: 
Turbo-Pascal-Compiler, Turbo-lader- 
Grundpaket 
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Schneider CPC- 
Software 


Programm-Bibliothek für Turbo Pascal 
Technisch-wissenschaftliche Funktionen 
und professionelle statistische Methoden 

für die Bereiche Medizin, Betriebs- und 

Volkswirtschaft, Technik und Natur- 

wissenschaften in Turbo Pascal 
Source Code. 


514" Vortex-Format 


Turbo-Lader Sience 

Turbo-lader Science ist eine Sammlung 

technisch/wissenschaftlicher Funktionen und 

professioneller statistischer Verfahren für die 

Bereiche Medizin, Betriebs- und Volkswirt- 

schaft, Technik und Naturwissenschaften. 

© Arithmetische Operationen zur Verarbei- 
tung komplexer Variablen 

e Wichtige Funktionen: Potenz, Wurzel, 
trigonometrische und transzendente 
exponentielle Funktion 

© Der Statistikteil: ein praktisches und direkt 
verwendbares Werkzeug zur computer- 
unterstützten, effektiven Datenanalyse. 

Software-Anforderung: 

Turbo-Pascal-Compiler, Turbo-Lader- 

Grundpaket 
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Linien 
durchgehend 
gestrichelt 
gepunktet 
Strich-Punkt 

lange Striche 
Strich-Punkt-Punkt. 


Senkrecht 
Waagrecht - 

+ 45 Grad 

+ 135 Grad 
Gitter 

Gitter (diagonal) 


nach oben 

nach unten 

nach rechts 

nach links 

nach 0,0 
Bildschirm- 
anfang) 

bis Bildschirmende löschen | 9 

bis Zeilenende löschen 


verschieden, je nach Geräte- 
typ - jedoch Standard 


Überschreiben 
Transparent 
Ergänzen 
Löschen 


Keyboard / 
Maus/Joystick 


auf Bestätigung 

der Eingabe warten 
Eingabe lesen und sofort 
weiter 


Wertebereiche einzelner GSX-Funktionen 


cal-Listing beinhaltet eine Prozedur 
namens GDOS, die das erklärte Prin- 
zip verdeutlicht. Sie übergeben der 
Prozedur einfach eine Liste von Para- 
metern, die sowohl die Nummer der 
gewünschten Funktion, als auch 
Angaben über die Anzahl der Koordi- 
naten und schließlich die Koordinaten 
selbst enthält. 

Die Tabelle zeigt eine Aufstellung 
der Wertebereiche einzelner Funktio- 
nen, die Ihnen die Grafikprogrammie- 
rung sehr erleichtert. Die Funktions- 
nummern der GSX-Grafikbefehle kön- 
nen Sie dem Listing und der weiterfüh- 
renden Literatur entnehmen. 

Wir hoffen, daß dieser kleine 
Schnupperbeitrag zum Thema GSX 
Sie angeregt hat, sich etwas näher mit 
dieser Grafikerweiterung zu beschäfti- 
gen. Daraus erschließen sich Ihnen 
weitere interessante Anwendungsge- 


program gsxdemonstration; 

const 
monitor 
linienart 
linienfarbe 
grafikcursorform 
grafikcursorfarbe 
zeichensatz 
textfarbe 
fuellart 
fuellmuster 
fuellfarbe 

type 
feld_1 
feld_2 
feld_3 
zeichenkette = string [255]; 

ver 
kontrollfeld 
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array [1..10] 


koordinatenpaare, koordinatenausgabeparameter : 
‚„ ascii_ausgabeparameter 


ascii_werte 
block : array [1..5] of integer; 
text : zeichenkette; 


zaehler, linksx, linksy, rechtsx, rechtsy, x, y : 


procedure gdos (var kontrollfeld 
var ascii_werte 


biete und Sie werden sehen, zu wel- 
chen erstaunlichen Leistungen GSX 
fähig ist. Größere Kosten entstehen 
dabei nicht, weil GSX dem CPC 6128 
gratis beiliegt. 

Damit Sie auch Gelegenheit haben, 
sich mit GSX näher zu befassen, emp- 
fehlen wir Ihnen den Kauf des GSX- 
Handbuchs von Digital Research, das 
der Verlag Markt&Technik für 39 Mark 
anbietet. Dieses Buch führt den Leser 
detailliert in die Grafikprogrammie- 
rung unter GSX ein. Es ist jedoch in 
englischer Sprache geschrieben. 

Praktische Anwendungen für GSX 
und Routinen zum Einbinden in 
höhere Programmiersprachen finden 
Sie in verschiedenen Büchern über 
die Grafikprogrammierung des CPC 
sowie in den Fachbeiträgen und Kur- 
sen diverser Computerzeitschriften. 

(Markus Zietlow/ma) 


Ausgabegeraet x) 
Nicht unterbrochen x) 
Weiss x) 

Kreuz x) 

Weiss x) 
Systemzeichensatz x) 
Weiss x) 

Schraffur x) 

Gitter x) 

Weiss x) 


integer; 
array [1..200] of integer; 
array [1..255] of integer; 


Poldi; 
feld_2; 
2.2eld3;, 


integer; 


‚ascii_ausgabeparameter 


var koordinatenpaare, koordinatenausgabeparameter 


begin 
block[1]:=addr(kontrollfeld); 
block[2]:=addr(ascii_werte); 


block[3]:=addr(koordinatenpaare); 
block[4]:=addr(ascii_ausgabeparameter); 
block[5]:=addr(koordinatenausgabeparameter); 


bdos(115,addr(block)); 
end; 
procedure clg; 
begin 
kontrollfeld[1] : 
kontrollfeld[2] : 
kontrollfeld[6] : 


5 ; (x Funktionsaufruf fuer ”Grafik loeschen” x) 
0 ; (x Keine Koordinaten x); 
2 ; (x Funktionsabhaengiger Parameter x) 


(x Initialisieren des Grafikbildschirms x) 


gdos (kontrollfeld 
parameter, 


‚ ascii_werte 


‚„ ascii_ausgabe- 


koordinatenpaare , koordinatenausgabeparameter ) 


end; 
procedure locate (x,y:integer); 


Listing. Dieses Turbo-Pascal-Programm demonstriert die Verwendung von 


GSX-Grafikbefehlen unter CP/M Plus 


begin 
(x Initialisieren der Positionsangabe x) 
kontrollfeld[1] := 5 ; (x Funktionsnummer x) 
kontrollfeld[2] := O0 ; (x Keine Koordinaten x) 
kontrollfeld[6] := 11; (x Position setzen) 


(x Abspeichern der Koordinaten x) 


ascii werte[1] := y; 
ascii werte[2] := x; 


(x Cursor setzen x) 


gdos (kontrollfeld ‚ ascii_werte ‚ ascii_ausgabepara- 
meter , 
koordinatenpaare , koordinatenausgabeparameter) 
end; 


procedure print (text : zeichenkette); 
begin 


(x Umwandeln des Textes in das Parameterfeld x) 
for zaehler := 1 to length(text) do 

ascii_werte[zaehler] := ord(text[zaehler]); 
(x Festlegung der Funktionsparameter x) 
kontrollfeld[1] 5 ; (% Funktionsnummer fuer Textausgabe x) 
kontrollfeld[2] 0 ; (x Keine Koordinaten x) 
kontrollfeld[4] length(text) ; (x Laenge der Zeichenkette x) 
kontrollfeld[6] 12 ; (x Funktionsspezifischer Parameter x) 


(x Text an der aktuellen Cursorposition ausgeben x) 
gdos (kontrollfeld ‚ ascii_werte ‚ ascii_ausgabeparameter, 
koordinatenpaare , koordinatenausgabeparameter ) 


end; 
procedure kasten (linksx ‚linksy, rechtsx, rechtsy :integer); 

begin 
kontrollfeld[1] := 11 ; (x Funktionsnummer x) 
kontrollfeld[2] : ; (x Anzahl der Koordinaten x) 
kontrollfeld[6] : ; (x Funktionsabhaengiger Parameter x) 
(x Koordinaten der linken, unteren Ecke x) 
koordinatenpaare[1] := linksx ; 
koordinatenpaare[2] := linksy ; 
(x Koordinaten der rechten, oberen Ecke x) 
koordinatenpaare[3] := rechtsx; 
koordinatenpaare[4] := rechtsy; 
gdos (kontrollfeld ‚ ascii_werte ‚ ascii_ausgabeparameter, 

koordinatenpaare , koordinatenausgabeparameter ); 

end; 

begin 
(x Initialisierungswerte einstellen x) 
kontrollfeld[1] := 1 ; (x Funktionsnummer x) 
kontrollfeld[2] := O ; (x Keine Koordinaten x) 
kontrollfeld[4] := 10 ; (x Zehn Funktionsparameter x) 
(x Funktionsparameter x) 


ascii_werte[1] = monitor; 
ascii werte[2] := linienart; 
ascii_ werte[3] := linienfarbe; 
ascii werte[4] := grafikcursorforn; 
ascii_werte[5] := grafikcursorfarbe; 
ascii werte[6] := zeichensatz; 
ascii_werte[7] = textfarbe; 
ascii_werte[8] := fuellart; 
ascii_werte[9] := fuellmuster; 
ascii_werte[10] := fuellfarbe; 
(x Initialisierung des Ausgabegeraetes x) 
gdos (kontrollfeld ‚ ascii_werte ‚ ascii_ausgabeparameter, 
koordinatenpaare, koordinatenausgabeparameter); 
elg; 
locate (29,1); 
print ('Kleine GSX-Demonstration'); 
locate ( 
print 
kasten (10000,10000,25000,20000) ; 
repeat 
until keypressed; Listing. Verwendung von GSX-Grafikbefehlen 
end. (Schluß) 
RANPPYM: 
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Basic-Logeleien 


aß Computer eigentlich dumm 
D sind, ist unter Programmierern 

kein Geheimnis. So besteht 
auch der CPC wie jeder andere Com- 
puter im Grunde genommen nur aus 
einer Ansammlung von vielen Schal- 
tern. Zugegebenermaßen sind diese 
Schalter recht sinnvoll angeordnet, 
doch letztendlich sind sie nur zum Ein- 
und Ausschalten gemacht. 

Aus diesem Grund arbeitet der 
Computer nur mit einer Ja-Nein- 
beziehungsweise Wahr-Unwahr- 
Logik, während die menschliche Logik 
wesentlich differenzierter entscheidet 
(wahrscheinlich, vielleicht, eventuell, 
kaum, etc.). 

Doch die absoluten Entscheidun- 
gen von Maschinen reizten bereits im 
letzten Jahrhundert den englischen 
Mathematiker George Boole, sich 
über diese Art der Wahrheitsfindung 
Gedanken zu machen. Er tat es aus- 
giebig und schuf so das erste System 
einer Algebra unter Verwendung des 
Binär-Alphabets, bestehend aus den 
Zeichen »1« und »0« für »wahr« und 
»falsch«. 

Daraus entwickelte er wiederum 
einen eigenen Formalismus zur 
Behandlung von Aussagenverknüp- 
fungen. Mit dem Fortschreiten der 
Technik nutzten andere Mathematiker 
die von ihm geschaffenen Grundlagen 
und schufen eine mathematische Dis- 
ziplin, die nach ihrem Erfinder 
benannte Boolesche Algebra. 

Erst dadurch wurden Entwicklung 
und Konstruktion von elektronischen 
Rechenwerken, wie wir sie heute ken- 
nen, möglich, weshalb Boole auch als 
einer der Väter des Computers gilt. 

Heute arbeiten alle Computer nach 
den Gesetzen der Booleschen Alge- 
bra. Diese Gesetze zu verstehen, ist 
für den Programmierer sehr wichtig, 
denn so wie die Grammatik zum Ver- 
ständnis einer Sprache notwendig ist, 
ist auch das Verständnis der Denk- 
weise von Computern für den Um- 
gangmit diesen flinken Gesellen uner- 
läßlich. 

Ziel dieses Beitrags ist es, die 
Arbeitsweise Ihres Computers zu 
durchleuchten, und Ihnen so die Basis 
zu geben, Ihre Programme schneller, 
kürzer und effektiver zu schreiben. 

Dabei spielt es im Prinzip keine 
Rolle, welcher Programmiersprache 
Sie sich bedienen. Alle nachfolgen- 
den Beispiele sind jedoch in Basic 
geschrieben, damit Sie sie direkt 
nachvollziehen können. 

Der zweite Teil dieses Beitrags 


Der Basic-Befehlssatz des CPC 
bietet die vier Befehle AND, OR, 
NOT und XOR für logische Ver- 
knüpfungen und unterstützt 
logische Vergleiche in Berech- 
nungen und Zuweisungen. 
Lesen Sie in diesem Beitrag, 
wie Sie diese Elemente optimal 
einsetzen, um zukünftig 
schnellere und kürzere Basic- 
Programme zu schreiben. 


beschreibt ausführlich den Aufbau 
eines interessanten Spiels, das durch 
die Anwendung logischer Gesetze 
und Vergleiche trotz Basic-Code sehr 
schnell und zugleich für seine Funk- 
tion sehr kurz ist. 


— Logik spart Zeit _ 
ler ekhermiche 


Wie unterschiedlich die Geschwin- 
digkeiten von Basic-Programmen bei 
gleicher Funktion sein können, 
demonstriert eindrucksvoll das fol- 
gende Beispiel. 

Aufgabe ist es, der Variablen A 
20000mal abwechselnd den Wert -1 
und O zuzuweisen. Zur Zeitkontrolle 
dient die TIME-Funktion des CPC. 

Bei konventioneller Programmie- 
rung entsteht folgendes Programm: 
10 t=TIME 
20 a=0 
30 FOR b=1 TO 20000 
40 a=a-1: IF a=s-2 THEN a=0 
50 NEXT b 
60 t=TIME-t:PRINT t; "Einheiten 

benoetigt.” 

Dieses Programm benötigt für 
einen Durchlauf etwa 30000 Einhei- 
ten, das sind rund 100 Sekunden. 

Wenn Sie nun Zeile 30 durch 
30 a=-ABS(a+1) 
ersetzen, sind es nur noch 20000 Zeit- 
einheiten, das heißt unter 70 Sekun- 
den. 

Versuchen Sie es noch mit 
30 a=-a-1 
und 
30 a=NOT a 
und Sie erhalten Werte um 18500 und 
16000. Die Rechenzeit hat sich dem- 
nach fast halbiert, indem lediglich eine 
Zeile durch einen leistungsfähigeren 
Befehl ersetzt wurde. 

Selbstverständlich richtet sich die 
Anwendung dieser Befehle auch noch 


nach anderen Kriterien, doch intensi- 
ves Nachdenken lohnt sich fast immer. 

Ist Ihnen das computergerechte 
logische Denken ersteinmal in Fleisch 
und Blut übergegangen, dann gehen 
Sie damit um wie der Jongleur mit sei- 
nen Bällen. 

Eine weitere Methode, Programme 
zu beschleunigen, ist inzwischen hin- 
reichend bekannt: die Definition von 
Variablen, die nur ganzzahlige Werte 
annehmen, als Integer-Variablen 
(zum Beispiel »DEFINT a,b«). 

In diesem Fall muß der Computer 
nur ein Doppelregister mit insgesamt 
16 Bit berücksichtigen, und nicht mit 
mehreren Speicherstellen, Kommata 
und Exponenten rechnen. 

In den folgenden Beispielen werden 
wir auch nur Variablen mit ganzzahli- 
gen Werten benutzen. 

Am Anfang unserer Betrachtungen 
haben wir die Zahlen »1« und »0« als 
Symbole für »wahr« und »unwahr« 
genannt. 

Doch warum erscheint dann beim 
Befehl »PRINT NOT 0« (der NOT- 
Befehl bildet das logische Gegenteil 
einer Zahl) der Wert -1, und nicht 1? 
Und warum sind als Integer-Werte 
lediglich die Zahlen von -32768 bis 
32767 zugelassen? 

Die Antwort liegt in der Computer- 
darstellung von Zahlen begründet. Mit 
16 Bit lassen sich insgesamt nur 
216 -65536 verschiedene Werte dar- 
stellen. Um jedoch auch die negativen 
Zahlen zu berücksichtigen, wird ein 
kleiner Trick benutzt und die O in die 
Mitte des Zahlenbereichs gesetzt. 


Warum -1 statt 1? 


Dazu wird das ganz links stehende, 
oberste Bit als Vorzeichen der Zahl 
betrachtet. Eine »0« signalisiert ein 
positives und eine »1« ein negatives 
Vorzeichen. 

Auf diese Art und Weise kommt 
beim Invertieren die -1 zustande (den 
Vorgang, einen Wert in sein logisches 
Gegenteil zu verkehren, nennt man 
Invertieren). Der Computer dreht die 
16 Bit einer Zahl einfach um, er inver- 
tiert sie. Bei 16 Nullen ergeben sich 
demnach 16 Einsen, hexadezimal 
ausgedrückt FFFF. 

Wenn Sie »PRINT & FFFF« ein- 
geben, sehen Sie selbst, wie der Com- 
puter den Wert in eine negative Zahl 
umformt. Diese Umformung ent- 
spricht dem Bilden des Einer- 
Komplements einer Zahl. 
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Jeder Vergleich von zwei ganzzahli- 
gen Werten, wie zum Beispiel in IF- 
THEN-Abfragen, ergibt beim CPC ent- 
weder 16 Nullen oder 16 Einsen. 

Überlegen Sie einmal zur Probe, 
welchen Wert Ihr Computer beim 
Befehl »PRINT NOT 500« ausdruckt. 
Wenn Sie in der Dezimal-Binär- und 
Binär-Dezimal-Umrechnung schon 
bewandert sind, fällt Ihnen die Lösung 
nicht schwer. Ansonsten probieren Sie 
es einfach aus. 

Um genauer zu erkennen, wie das 
Invertieren funktioniert, lassen Sie 
das folgende Programm zur Umrech- 
nung von dezimalen in 16stellige 
Binärzahlen laufen. 

10 DEFINT a-z 

20 b=500 

30 PRINT b;”= binaer &X”; 
BIN$(b,16) 

40 b=NOT b 

50 PRINT b;”= binaer &X”; 
BIN$(b,16) 

Der Vergleich zeigt deutlich, wie der 
Computerbeim NOT-Befehl die einzel- 
nen Bits invertiert. 

Allerdings gibt es, wie im folgenden 
Beispiel, auch Überraschungen. 

10 b=-501 

20 IF b THEN PRINT b; ist 
richtig.” 

30 IF NOT b THEN PRINT b;” 
ist falsch.” 

50 PRINT 

60 PRINT”Was stimmt denn nun?” 

Setzen Sie eine beliebige andere 
Zahl außer O und 1 ein, und Sie erhal- 
ten das gleiche Ergebnis, weil der 
Computer feststellt, daß nicht alle Bits 
entweder auf 0 oder 1 gesetzt sind. So 
registriert er, daß einzelne Bits über- 
einstimmen, andere wiederum nicht. 

Wenn Sie die Variable b durch O 
oder -1 ersetzen, funktionieren die Ver- 
gleiche korrekt. 

Um eine eindeutige Aussage zu 
erhalten, darf man nur ganzzahlige 
Werte miteinander vergleichen. Der 
Vergleich »a=b<0« weist der Varia- 
blen a beispielsweise den Wert -1 zu, 
wenn b gleich -500 ist, und den Wert O, 
wenn b gleich 500 ist. 


Was sind Aussagen? 


Man unterscheidet in der Boole- 
schen Algebra generell zwischen 
komplexen Aussagen und bitweisen 
Vergleichen. 

Zu diesem Thema existiert viel wei- 
terführende Literatur, und jeder Infor- 
matikstudent muß sich zwangsläufig 
mit diesem trockenen Thema ausein- 
andersetzen. Umfangreiche Wahrheits- 
tabellen sind neben dem Verknüpfen 
von Aussagen sein tägliches Brot. 


Da Sie jedoch vermutlich kein Infor- 
matikstudent sind, wollen wir uns auf 
die wichtigsten Grundlagen beschrän- 
ken. Sie sollten sich als Definition mer- 
ken, daß Aussagen entweder wahre 
oder unwahre logische Sätze sind. 
Falls Sie jedoch mit Ihrem Wissen 
Freunde und Kollegen beeindrucken 
möchten, bemerken Sie leichthin, daß 
man unter einer Aussage die gedankli- 
che Widerspiegelung eines Sachver- 
haltes der objektiven Realität versteht, 
und man wird vor Ihnen den Hut zie- 
hen! 

Gesprochene und geschriebene 
Sätze sowie mathematische und tech- 
nische Formeln sind Formen von Aus- 
sagen. »X+3=7« ist beispielsweise 
solch eine Form. 

Verknüpfungen von Aussagen tre- 
ten in drei Grundformen auf, aus 
denen sich alle weiteren Verknüpfun- 
gen ableiten. Die erste Grundform ist 
die Konjunktion oder UND-Ver- 
knüpfung, die nur dann wahr ist, wenn 
alle Teilaussagen wahr sind und bei 
wenigstens einer unwahren Teilaus- 
sage ebenfalls unwahr ist. 

Die ODER-Verknüpfung, auch Dis- 
junktion genannt, ist wahr bei wenig- 
stens einer wahren Teilaussage und 
nur unwahr, wenn alle Teilaussagen 
unwahr sind. 

Die letzte Grundform ist die Vernei- 
nung oder Negation einer Aussage, 
die unwahr ist, wenn die Aussage 
wahr ist, und wahr, wenn die Aussage 
unwahr ist. 

Wie in der »normalen« Arithmetik, 
existiert auch in der Aussage-Logik 
eine festgelegte Rangfolge der durch- 
zuführenden Verknüpfungen. Schon 
in der Grundschule wird gelehrt, daß 
Punkt- vor Strichrechnung geht. Ahnli- 
ches gilt auch bei der Booleschen 
Algebra. " 


In komplexen Aussagen löst man 
zuerst die Klammern von innen nach 
außen auf und anschließend vorhan- 
dene Negationen. Dabei werden ver- 
neinte Aussagen negiert, um den 
ursprünglichen Zustand wiederherzu- 
stellen. Anschließend steht in der Rei- 
henfolge die Berechnung der UND- 
Verknüpfungen und am Schluß die der 
ODER-Verknüpfung an. 

Vielen Programmen sieht man die 
Unsicherheit des Autors an, wenn zum 
Beispiel Ausdrücke wie »X=(Y*2)+A- 
(X*A)« enthalten sind. In diesem Bei- 
spiel sind nämlich beide Klammern 
überflüssig. Grundsätzlich geht der 
Computer bei der Berechnung immer 
vonlinks nach rechts vor, Rechnungen 
in Klammern werden zuerst durchge- 
führt, und die Punktrechnung hat Prio- 
rität vor der Strichrechnung. 

Versuchen wir einmal als konkretes 
Beispiel die folgende Aussage compu- 


tergerecht aufzubereiten »Ich gehe ins 
Kino, wenn ein interessanter Film läuft 
und noch Karten zu bekommen sind. 
Andernfalls lege ich mich ins Bett.« 
Setzt man A für »ins Kino« und B für 
»ins Bett«, X für »Karten vorhanden« 
und Y für »Film interessant«, so ergibt 
sich die Aussage 
A= X=-1 AND Y=-1: B = NOT A 
oder noch kürzer 
A= X AND Y:B= NOT A 
Gleichgültig, welche Werte X und Y 
annehmen, A und B werden immer ein 
entgegengesetztes Ergebnis bringen. 
Als Basic-Programm sieht der 
ganze Ausdruck folgendermaßen aus: 
10 CLS 
20 INPUT ”Laeuft ein 
interessanter Film (J/N) ”;Y$ 
30 INPUT. ”Sind noch Karten 
vorhanden (J/N) ”;X$ 
40 Y$=UPPER$(LEFT$(Y$,1)): 
X$=UPPER$(LEFT$(X$,1)) 


50 PRINT 

60 A=X$="J”" AND Y$="J" 

70 B=NOT A 

80 IF A THEN PRINT ”Ich gehe ins 
Kino” 


90 IF B THEN PRINT ”Ich lege mich 
ins Bett” 
100 WHILE INKEY$="":WEND:RUN 


Setzen und Löschen 
Bit für Bit 


Eine computergerechte Aussage 
besteht letztendlich aus einzelnen 
Wörtern (zu je 16 Bit), diese aus zwei 
Byte und jedes Byte wiederum aus 
8 Bit, von denen jedes den Zustand O0 
und 1 annehmen kann. Zusätzlich läßt 
sich jedes Byte in zwei Teile zu je 4 Bit 
aufteilen, die als Nibble bezeichnet 
werden. 

Es spielt eine große Rolle, welche 
Wertigkeit ein Bit innerhalb des Bytes 
einnimmt. Steht es ganz rechts, so hat 
es den Wert 2°=1 (sofern es gesetzt 
ist), steht es dagegen ganz links, so 
beträgt der Wert immerhin 27 =128. 

Die Wertigkeit eines Bits ist damit 
jeweils eine Potenz von 2, so wie in 
dem uns vertrauten Dezimalsystem 
die Wertigkeit einer Stelle innerhalb 
einer Zahl eine Potenz von 10 ist. 

Rückt man im Dezimalsystem die 1 
um eine Stelle nach links und füllt die 
leere rechte Stelle mit einer O auf, so 
hat man die 1 mit 10 multipliziert und 
das Ergebnis 10 erhalten. 

Im Binärsystem ist es nicht anders. 
Rückt man eine rechts stehende 1 um 
eine Stelle nach links, so hat man die 
Zahl mit 2 multipliziert und produziert 
damit eine 2, im Binärsystem darge- 
stellt als 10. Eine weitere Verschie- 
bung um eine Stelle bedeutet eine 
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* Der Versand mit den teuflischen Preisen! % 


Cass. Disk. Cass. Disk. Cass. Disk. 
Academy (Tau Cetill) DM 25.90 37.90 Jail Break DM 19.90 29.90 R 
AOEence DM 25.90 37.90 KonamisCoin up Hits DM 25.90 37.90 Barbarian DM 25.90 37.90 
o s DM 25.90 37.90 Leaderboard M 25.90 37.90 

Alens_ DM 25.90 37.90  LegendofKage DM 1990 2990 Bubbler DM 25.90 37.90 
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Ballblazer DM 25.90 37.90 Masterchess DM 990 —— Hydrofool DM 25.90 37.90 

Big Trouble in little China DM 25.90 37.90 Muncher (PacMan) DM —.— 25.90 & 
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et ı DM 24.90 35.90 eg on Fractalus BR =, 27.90 Tr t DM 25.90 37.90 
reak Thru DM 25.90 37.90 ailing 25.90 37.90 Ivin 5 E 
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opout 25.90 0 —— entinel DM 25.90 37.90 

ln Lair Bi en. 33.90 male ar DM 25.90 37.90 ag Max DM 25.90 37.90 
ragonsLair Il 5.90 37.90 hockway Rider DM 19.90 29.90 n 

Ban n En en 37.90 — en DM 29.90 39.90 Mario Brothers DM 25.90 37.90 
nduro Racer 5. 37.90 pyvsSpy Il DM 25.90 37.90 

Be en er an Starglider DM 33.90 44.90 Metrocross DM 25.90 37.90 
auntlet M 24.9 .90 Starrider Il DM 25.90 37.90 R 

Ghosts’n Goblins DM 25.90 37.90 Strike Force Cobra DM2590 37.90 Nemesis DM 25.90 37.90 
rand Prix R —— Supercycle DM 25.90 37.90 . 

Hacker DM 25.90 37.90 Superstory (nur 464) DM 10 —.— Palitron DM 25.90 37.90 
lead over Heels 5.90 37.90 Tempest DM 25.90 37. 

Hit-Pack DM 25.90 37.90 TopGun oM2490 —— Pulsator DM 25.90 37.90 

Howard the Duck DM 25.90 37.90 Trailblazer DM 25.90 37.90 . 

Ikarı Warrior DM2590 —— Xevius DM 25.90 37.90 Thingbouncesback DM 25.90 37.90 

Indoor Sports DM 25.90 37.90 YiearKung Full DM 25.90 37.90 

Infiltrator DM 24.90 33.90 Worldgames DM 25.90 37.90 
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abermalige Multiplikation und als 
Ergebnis den Wert 4, dargestellt als 
100. 

Doch was fängt man nun mit diesen 
Erkenntnissen an? In Basic gibt es hier 
nützliche Anwendungsgebiete, in 
denen sich mit Hilfe von Bitmanipula- 
tionen optimale Ergebnisse erzielen 
lassen. Das bekannteste Beispiel ist 
die Joystickabfrage mit dem JOY- 
Befehl. 


Logik im Labyrinth 


Doch es gibt weitere Einsatzbei- 
spiele, von denen wir im folgenden 
eines exemplarisch behandeln wol- 
len. Betrachten wir die Konstruktion 
eines Labyrinths. Dieses Gebilde 
besteht ursprünglich aus vielen qua- 
dratischen, geschlossenen Zellen. In 
Adventure-Programmen symbolisie- 
ren meistens die vier Himmelsrichtun- 
gen die Wände, doch das Prinzip 
bleibt gleich. 

Es bietet sich nun an, ein Nibble für 
einen Raum zu nehmen, so daß sogar 
noch vier Bit eines jeden Bytes für wei- 
tere Funktionen verbleiben. 

Doch bleiben wir beim Nibble. 
Jedes Bit stellteine Wand oder Tür dar, 
die entweder geschlossen oder geöff- 
net ist. Das bedeutet nichts anderes 
als ein gesetztes oder gelöschtes Bit. 
Die Wertigkeit stellt dabei die Him- 
melsrichtung dar. In unserem Beispiel 
soll 1=Norden (Bit 0), 2=Osten (Bit 1), 
4=Süden (Bit 2) und 8=Westen (Bit 3) 
sein. Sind an allen vier Seiten Wände 
und ist damit kein Ausgang vorhan- 
den, so ergibt sich der Wert 
1+2+4+8=16. 

Stellen Sie sich vor, Sie finden nach 
Ausschalten des giftigen Zwergs den 
dringend gesuchten gläsernen 
Schlüssel und können damit die südli- 
che Tür öffnen. Es bleibt nur noch das 
Problem, das entsprechende Bit (Bit 2) 
zu löschen, um einen freien Ausgang 
zu erhalten. Dies läßt sich zwar errei- 
chen, indem man die Wertigkeit von 
Bit 2 von 16 subtrahiert (Ergebnis: 12), 
doch weil wir bei einem Programmlauf 
nicht immer ohne weiteres beurteilen 
können, ob die Tür nicht bereits offen 
ist, kann die simple Subtraktion unter 
Umständen zu Komplikationen füh- 
ren. 

Es empfiehlt sich der logische Ver- 
gleich, um das Bit (falls gesetzt) zu 
löschen. Befindet sich der Bytewert 
des Nibble in der Variablen a, dann 
erzeugt 
a= a AND (255-4) 
das gewünschte Ergebnis. 

Dies läßt sich an einem praktischen 
Beispiel leicht überprüfen. 

Nehmen wir an, a erhält den Wert 


215. Mit »PRINT BIN$(a)« berechnet 
der Computer das binäre Äquivalent 
11010111 und mit»PRINTBIN$(255-4)« 
den zweiten binären Wert 11111011. 

Ausgehend von der Tatsache, daß 
bei der UND-Verknüpfung nur dann 
eine 1 erzeugt wird, wenn auch die bei- 
den ursprünglichen Bit auf 1 gesetzt 
sind, kann man schon jetzt erkennen, 
daß sich beim Vergleichen die dritte 1 
von rechts in eine Null verwandeln 
wird, alle anderen Bit im unteren Nib- 
ble dagegen ihren Wert beibehalten. 
Die Bestätigung dieser Überlegung 
erhalten Sie mit »PRINT BIN$(a AND 
(255-4))«. Das Resultat ist - wie erwar- 
tet - 11010011 und das gewünschte Bit 
2 ist gelöscht. 

Wenn Sie jetzt die Tür nach Süden 
wieder schließen möchten, muß auch 
das Bit 2 wieder gesetzt werden. Dies 
geschieht ebenso einfach mit der 
ODER-Verknüpfung. Der Befehl 
»PRINT BIN$(a OR &X100)« setzt Bit 2 
und ergibt wieder 11010111 bezie- 
hungsweise 215. 

Wäre im letzteren Fall Bit 2 bereits 
gesetzt gewesen, so hätte sich nichts 
geändert, während die simple Addi- 
tion von 4 zu dem unteren Nibble 
dagegen ein falsches Ergebnis 
erzeugt hätte. 


15 Monster in 4 Bit 


Bleiben wir bei dem Adventure- 
Beispiel und erinnern wir uns, daß 
Integerzahlen insgesamt 16 Bit umfas- 
sen. Uns bleiben demnach noch 12 
auf der linken Seite, mit denen wir, 
bezogen auf einen Raum, etwas 
anfangen können. Zweigen wir 7 Bit 
ab, so lassen sich damit immerhin 
2”=128 Räume numerieren, und 4 
weitere Bit ergeben 15 verschiedene 
Monster und einmal kein Monster, 
oder 15 verschiedene Gegenstände 
und einmal kein Gegenstand, oder 
Monster und Gegenstände gemischt. 

Das letzte, ganz links stehende Bit 
kann man dann noch als Lichtschalter 
(Raum bekannt/unbekannt) oder ähn- 
liches benutzen. Zum Überprüfen die- 
ses Bits genügt eine einfache Abfrage, 
ob der Integerwert positiv oder nega- 
tiv, also kleiner als O oder größer gleich 
0 ist. 

Je 7 Bit aus den 16 Bit einer Integer- 
zahl reichen also, um 128 Räume voll- 
ständig zu beschreiben! Da Adven- 
ture-Programme bekanntlich äußerst 
speicherplatzfressend sind, ist das 
vorgestellte Verfahren eine exzellente 
Methode, um Informationen über das 
Gebiet, in dem ein Adventure spielt, 
speicherplatzsparend abzulegen. 

Der Vollständigkeit halber sei auch 
noch die logische XOR-Verknüpfung 


(XOR=Exklusiv-Oder) erwähnt, die 
ganze Bitfolgen umkehren kann. 

Das Ergebnis einer XOR-Ver- 
knüpfung ist wahr, wenn die eine Teil- 
aussage wahr und die andere Teilaus- 
sage unwahr ist. Das Ergebnis ist 
unwahr, wenn beide Teilaussagen 
unwahr oder beide Teilaussagen wahr 
sind. 

In unserem Abenteuerbeispiel 
würde XOR wie ein Wechselschalter 
wirken. Wenn Sie den Befehl 
PRINT BIN$(A XOR 4) 
mehrmals ausprobieren, erkennen 
Sie am besten die Wirkung der XOR- 
Verknüpfung. 

Daß der CPC ebenfalls von der 
Bitumschaltung Gebrauch macht, ist 
leicht an der Groß- und Kleinschrei- 
bung zu erkennen. Der ASCII-Code ist 
so aufgebaut, daß der Unterschied 
zwischen großen und kleinen Buch- 
staben genau 32 beträgt, was wie- 
derum dem Bit 5 mit der Wertigkeit von 
2°=32 entspricht. Der Befehl 
PRINT CHR$(ASC(”A”) XOR 32) 
macht dies deutlich. Umgekehrt funk- 
tioniert es natürlich ebenfalls. 

Doch der ASCII-Code läßt sich auch 
für andere Zwecke einsetzen. Müssen 
in einem Programm beispielsweise 
viele Zahlen gespeichert werden, ist 
es angebracht, diese zu komprimie- 
ren. Neben der Platzeinsparung wer- 
den sie gleichzeitig codiert und sind 
dadurch nicht mehr für jedermann les- 
bar. 

Betrachtet man den ASCIl-Zeichen- 
satz, erkennt man, daß die Zeichen 
von 35 bis 255 benutzt werden dürfen, 
ohne als Steuerzeichen Konflikte zu 
verursachen. Beschränken wir uns 
auf den Bereich von 128 bis 255, so ist 
es noch einfacher. Die Zahl 3985245 
soll beispielsweise verschlüsselt wer- 
den. Ein kleines Programm nimmt uns 
diese Arbeit ab. 

100 a=3985245 

110 a$=STR$(a) 

120 a$=MID$(a$,1+LEN(a$)MOD 2) 

130 c$="":FOR b=1 TO LEN(a$) 
STEP 2 

140 c$=c$+CHR$(VAL(MID$(a$,b,2)) 
XOR 128) 

150 NEXT b 

160 PRINT c$ 

Das Ergebnis unterscheidet sich 
vollständig vom Ausgangswert und 
läßt keinerlei Rückschlüsse darauf zu. 
Natürlich ist statt 128 auch jeder 
andere Wert bis 255 erlaubt, denn der 
zu codierende Wert kann nie kleiner 
als O und größer als 99 sein. Genauso 
simpel läßt sich die erzeugte Zeichen- 
folge wieder in die ursprüngliche Zahl 
zurückverwandeln. 

200 a$="" 
210 FOR b=1 TO LEN(c$) 
220 a=ASC(MID$(c$,b,1)) XOR 128 
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ADD 
DD) r> 


230 a$=a$+MID$(STR$(a),2) 
240 NEXT b 

250 a=VAL(a$) 

260 PRINT a 

Das Basic des CPC macht die 
Umrechnung von dezimal in binär und 
von binär in dezimal leicht, weil es 
dazu die Befehle BIN$ und PRINT &X 
zur Verfügung stellt. Doch wenn man 
sich beispielsweise gerade in einem 
Programm befindet und etwas aus- 
testen möchte, muß man dieses Pro- 
gramm erst verlassen, um einen Wert 
umrechnen zu können. 

Deshalb im folgenden das Verfah- 
ren, wie man eine Dezimalzahl in 
einen binären Wert undeine Binärzahl 
in den dezimalen Wert umrechnet. 

Inunserem Beispiel soll die Zahl 179 
umgewandelt werden. Sie schreiben: 


179/2 = 89, Rest 1 
89/2 = 44, Rest 1 
44/2 = 22, Rest O 
22/2 = 11, Rest O0 
11/2: = 5, Rest 1 

5/2 = 2, Rest 1 
2/2 = 1, Rest O 
1/2 = 0, Resti 


Die Werte, die den Rest der Division 
angeben, schreiben Sie nun von 


unten nach oben hintereinander - und 
fertig ist der binäre Wert von 179: 
10110011. 

Noch einfacher funktioniert die 
Umrechnung von binär in dezimal. 
Gehen Sie dazu von rechts nach links 
vor. 


1x2°- ı 
ix2!= 2 
0x2?= 0 
0x22= 0 
1x= 1 
1:%2°= 32 
0x2= 0 
1x 27 = 128 
Summe 179 


Haben Sie erst einmal das grund- 
sätzliche Prinzip verstanden, dann 
können Sie in jedes andere Zahlensy- 
stem umrechnen. 

Im jedem Maschinensprache- 
Programmierer geläufigen Hexadezi- 
malsystem sieht die Umrechnung fol- 
gendermaßen aus: 


179/16 = 11 Rest 3 = 3 
11/16 = O Rest 11 =B 
Der hexadezimale Wert von 179 


beträgt demnach B3. 
Die Rückrechnung in das Dezimal- 
system: 


3x16°= 3 
11 x 16! = 176 
Summe: 179 


Wenn Sie mit Nibbles arbeiten, kön- 
nen Sie einen hexadezimalen Wert 
direkt in eine Binärzahl umsetzen. Die 
Ziffer einer hexadezimalen Zahl 
besteht aus 4 Bit, da sie Werte von O 
bis F, das heißt 16=2* verschiedene 
Zustände annehmen kann. Es besteht 
folgende Beziehung zwischen den 
hexadezimalen Ziffern und den Binär- 
werten: 


Hex Bin Hex Bin 

0 0000 8 1000 
1 0001 9 1001 
2 0010 A 1010 
3 0011 B 1011 
4 0100 C 1100 
7 0101 D 1101 
6 0110 E 1110 
7 0111 F 1111 


Der binäre Wert von B beträgt dem- 
nach 1011, und der binäre Wert von 3 
ist 0011. Deshalb entspricht die Hexa- 
dezimalzahl B3 dem binären Wert 
10110011. Die Umrechnung von binär 
in hexadezimal ist genauso einfach. 

(Dietmar Schulze/ma) 


Boolesche Algebra 
ım Weltraum 


haben wir Ihnen ziemlich viel The- 

orie zugemutet. Als Belohnung für 
Ihre Aufmerksamkeit wollen wir uns 
nun ganz auf die Praxis konzentrieren 
und anhand eines rasanten Action- 
Spiels zeigen, wie man mit logischen 
Vergleichen und Verknüpfungen 
effektiv programmiert, so daß sogar in 
Basic hohe Verarbeitungsgeschwin- 
digkeiten zustande kommen. 

Bei dem Spiel »Spacetrap« gilt es, 
mit einem defekten Raumschiff aus 
einem durch Energiefelder und Robot- 
schiffe gesicherten Raumsektor zu 
entkommen. Geschossen wird nicht, 
vielmehr müssen Sie die feindlichen 
Schiffe in ihre eigenen Fallen locken 
und dadurch vernichten. Im Laufe des 
Spiels schickt der Feind immer grö- 
Bere Geschwader auf das Schlacht- 
feld. 

Das Programm bietet eine ausführli- 
che Beschreibung. Es ist so gestaltet, 
daß die vielfältigen Fähigkeiten des 
Locomotive-Basic optimal genutzt 


I: ersten Teil dieses Beitrags 


Nachdem wir im vorangegan- 
genen Beitrag die Grundlagen 
zur effektiven Programmierung 
mit logischen Vergleichen und 
Verknüpfungen behandelten, 
folgt nun die Entwicklung eines 
pfiffigen Action-Spiels, in dem 
die besprochenen Verfahren 
praktische Anwendung finden. 


werden. Manche der verwendeten 
Techniken dienen jedoch nur zur 
Demonstration und lassen sich auch 
anders formulieren. 

Speichern Sie bitte die Listingteile, 
die im folgenden vorgestellt werden, 
entweder einzeln und verbinden Sie 
sie mit dem MERGE-Befehl, oder tip- 
pen Sie das Listing in einem Stück ein. 

Die ersten Zeilen des Programms 
legen einige Anfangswerte fest und 
die letzten Zeilen definieren die Zei- 
chen, die im Spiel verwendet werden 
(Listing 1). 


Dann wird der Bildschirm mit Über- 
schrift aufgebaut. Für uns ist die 
Behandlung der Farbenvariable 
<col> interessant, die innerhalb der 
Schleife je nach Wert der Zählervaria- 
blen <i> auf O oder 1 gesetzt wird 
und dadurch das Streifenmuster des 
Schrifthintergrundes erzeugt. Der 
Wert von <col> ergibt sich aus dem 
Aussagenvergleich von gerader und 
ungerader Zahl, der direkt zum 
Berechnen von 0 oder 1 benutzt wird. 
Der gleiche Effekt läßt sich auch mit 
»col=i MOD 2« erreichen. 

Der Schriftzug selbst wird zum 
Erzielen einer Schattenwirkung zwei- 
mal im Transparentmodus gedruckt 
und löscht dadurch auch nicht den 
Hintergrund. Der übrige Bildaufbau 
geschieht mit Strings und durch 
Benutzung der Schleifenvariablen als 
Positionszeiger für den LOCATE- 
Befehl (Listing 2). 

Der folgende Programmteil legt die 
Anfangswerte für den Programmstart 
fest und baut das interne Spielfeld im 
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(= 


Commodore 


@=Schneider 


Leistungsfähige Programmiersprachen für 
Commodore 128 und Schneider-Computer 


Markt&Technik 
128er-Software 


MICROSOFT. 
BASIC 


BASIC-Compiler 5.4 (BASCOM) # BASIC-Interpreter 4.51 (OBASIC) und 
5.21 (MBASIC) # MACRO Assembler (M8O) # LINK Linking Loader (180) 
# CREF Cross-Reference Facility (CREF8O) # LIB Library Manager 


5'4”-Diskette für 
Commodore 128 (128 D) PC 


Microsoft BASIC 


Das umfassende Microsoft-BASIC- und 
Assembler-Entwicklungspaket enthält: 
@ BASIC-Compiler 5.4 (BASCOM) 

@ BASIC-Interpreter 4.51 (OBASIC) und 
5.21 (MBASIC) 

@ MACRO Assembler (M80) 

@ LINK Linking Loader (L80) 

@ CREF Cross-Reference Facility 
(CUEF 80) 

® IB Library Manager 

für den effizienten Einsatz kaufmännischer 
und technisch-wissenschaftlicher 
Anwendungen. 


Hardware-Anforderungen für 

Commodore 128/128D: 

Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

CPC 464, 664, 6128 oder Joyce, ein Diskettenlauf- 
werk, Betriebssystem CP/M 2.2 oder CP/M Plus. __— 
Der Interpreter erfordert mindestens s —— 

32 K Speicher, der Compiler u ö 
und der Makroassembler _— 
mindestens Be 


El 


} 
{=} 
[5 
2} 
R 


1 DIGITAL 


Paz 
MT+ 


FROM + DIGITAL RESEARCH THE CREATORS OF CDM 


3"-Diskette für CPC 464*, 664*, 6128, 
Joyce PCW 8256 
Handbuch in englischer Sprache 


Pascal/MT+ 


Pascal/MT+ ist ein volles ISO-Standard- 
Pascal, das um eine leistungsfähige 
Programmierumgebung für Industrie-, 
Geschäfts- und Ausbildungseinsatz sowie 
Möglichkeiten zur Systemprogrammierung 
erweitert wurde. 


Hardware-Anforderungen für 

Commodore 128/128D: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

CPC 464 und CPC 664 (mit Speichererweiterung), 
dem CPC 6128 und dem PCW 8256 (Joyce) unter 
CP/M und CP/M Plus. Kompilierte Programme sind 
bei entsprechender Größe, auch auf dem CPC 464 
und CPC 664 ohne Speichererweiterung lauffähig. 


Markt&fTechnik 


j _ Zeitschriften - Bücher 
Software Schulung 


Markt&Technik 
Schneider CPC- 


(0) DIGITAL 


CBASIC 
Compiler 


FROM + DIGITAL RESEARCH THE CREATORS OF CDM 


3"-Diskette für CPC 464, 664, 6128, 
‚e PCW 8256 


Handbuch in englischer Sprache 


CBASIC-Compiler 


Der Hochleistungs-BASIC-Compiler für 
Softwareprofis zur Erstellung kommerzieller 
Anwendungen. 

Der CBASIC-Compiler ist ein Compiler, der 
Maschinencode erzeugt und die Program- 
mierung und den Test separater Module 
erlaubt, die später ein komplettes Pro- 
gramm ergeben sollen. Die integrierten 
Grafikmöglichkeiten des CBASIC-Compi- 
lers erlauben die Programmierung viel- 
seitiger Grafikprogramme für eine Vielzahl 
von Anwendungen (nur auf Computern 
mit GSX-Software). 


Hardware-Anforderungen für 

Commodore 128 PC: 

ein Diskettenlaufwerk, Betriebssystem CP/M 3. 
Hardware-Anforderungen für 
Schneider-Computer: 

Der CBASIC-Compiler läuft auf Schneider CPC 464 
mit Diskettenlaufwerk DDI-1, dem CPC 664, dem 
CPC 6128 und dem PCW 8256 (Joyce). Für Grafik- 
programme wird die GSX-Software benötigt, die nur 
mit dem CPC 6128 und PCW 8256 (Joyce) aus- 
geliefert wird. 


Diese Markt&Technik-Software erhalten 
Sie in den Fachabteilungen der Waren- 
häuser, bei Ihrem Computerfachhändler, 
im Buchhandel oder direkt beim Verlag 
gegen Vorauskasse. 

Fragen Sie auch nach dem neuen 
Gesamtverzeichnis Frühjahr/Sommer '87, 
oder fordern Sie es direkt beim Verlag an. 


Markt &Technik Verlag AG, Buchverlag, Hans-Pinsel-Straße 2, 8013 Haar bei München, Telefon (089) 4613-0 


Bestellungen im Ausland bitte an: SCHWEIZ: Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656 - ÖSTERREICH: Rudolf Lechner & Sohn, 
Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526 - Ueberreuter Media Verlagsges. mbH (Großhandel), Alser Straße 24, A-I091 Wien, Telefon (0222) 481538-0. 


eigens dafür reservierten Speicherbe- 
reich auf. Das Speichern in Feldvaria- 
blen wäre natürlich auch möglich ge- 
wesen, aber die PEEK- und POKE- 
Befehle sind in der Regel schneller. 

Sämtliche Felder werden zuerst mit 
dem ASCIl-Wert 32 (für das Leerzei- 
chen) belegt. Während dieses Vorgan- 
ges wird zur Verkürzung der Wartezeit 
der Bereich des Spielfelds auf dem 
Bildschirm mit Sternchen gefüllt. 

Die Variablen <ef$>, <fs$> und 
<es$> mit den Werten <ef>, <fs> 
und <es> sind die ASCII-Codes für 
Energiefeld, Robotschiffe und das 
eigene Raumschiff. Die Variable 
<er$> dient zum Löschen einer 
Zeile. 

Ab und zu bemerken Sie bei Tasta- 
turabfragen den Ausdruck »rd=RND«. 
Diese Zuweisung zählt lediglich die 
Zufallszahlen weiter, um die feste 
Pseudozufallsreihe des Computers zu 
unterbrechen und dadurch neue 
Anfangswerte festzulegen. 

Wird die Ausgabe der Spielanlei- 
tung gewünscht, verzweigt das Pro- 
gramm zu einem entsprechenden 
Unterprogramm. Dabei rollt ein Vor- 
hang aus farbigen Streifen herab, der 
wiederum durch die Schrift der Anlei- 
tung verdrängt wird. Farbwerte, Text- 
zeilen, Abstände und Pausen sind in 
den DATA-Zeilen mit enthalten. Eine 
Schleife liest diese Werte ein und zen- 
triert den Text auf dem Bildschirm. 

Zum Abschluß erfolgt die Frage 
nach der Schwierigkeitsstufe, die die 
Anfangsgeschwindigkeit des Spiels 
bestimmt, und das eigene Schiff wird 
auf das Spielfeld gesetzt (Listing 3). 

Jetzt müssen nur noch die feindli- 
chen Energiefelder und Robotschiffe 
verteilt, sowie die Werte für Schwierig- 
keitsstufe, Spielpunkte etc. auf dem 
Bildschirm eingetragen werden 
(Listing 4). 

Dann geht es endgültig los! Der 
Betriebssystemaufruf CALL &BB18 
bringt die Angreifer in ihre Wartestel- 
lung. Sobald Sie nun eine Taste 
drücken, beginnt das Spiel und Sie 


VRR 


Bonus: Level: 


SPa<SE-TRAPr 
Score: 


sind auf der Flucht. Unerbittlich 
rücken die Roboterschiffe an. Deren 
Richtung wird dabei durch die Koordi- 
naten des eigenen Raumschiffes 
bestimmt. 

Die Zeilen 1000 bis 1220 bilden die 
Hauptschleife des Programms. Die 
Tastaturabfrage ist kurz, aber effektiv 
konstruiert. Es werden der Joystick, 
die Cursortasten sowie die Tasten 
<Q>,<A>, <O> und <P> abge- 
fragt und die Werte für jede Bewe- 
gungsrichtung addiert. 

Der INKEY-Befehl ist dabei sehr 
nützlich, weil er sich leicht auf 
»wahr«oder »falsch« abfragen läßt. Ist 
keine Taste gedrückt, dann ergibt sich 
bei der Addition die Summe -3. 
Gleichgültig, welche Taste nun mit 
oder ohne <SHIFT> betätigt wird, 
der Wert bewegt sich immer im 
Bereich größer als -3 und die Addi- 
tionsvariablen x für die Horizontal- 
sowie y für die Vertikalposition ändern 
sich entsprechend. Ist keine Taste 
gedrückt, bleiben die Ergebnisse der 
logischen Aussagen 0, und eine 
Bewegung findet nicht statt. 

Die Joystickabfrage nach dem 
Muster »IF JOY(0)=1 THEN« scheint 
nur auf den ersten Blick richtig, 
erweist sich aber schnell als trüge- 
risch. Jeder Joystick läßt sich nämlich 
auch schräg betätigen, so daß zwei 
Kontakte gleichzeitig geschlossen 
sind und sich die Werte folglich addie- 
ren. In diesen Fällen gibt die JOY- 
Funktion die Werte 5 oder 9 aus, und 
die Abfrage ergibt »falsch«. 

Im erwähnten Beispiel müssen die 
überflüssigen Bit ausgeblendet wer- 
den, damit die Abfrage funktioniert. 
»IF JOY(0) AND 1« scheint vernünftig, 
doch arbeitet diese Befehlsfolge auch 
wirklich korrekt? 

Wieder nicht ganz, denn, steht vor 
dieser Abfrage beispielsweise »IF 
JOY(0) AND 4« und Sie haben zufällig 
nach vorwärts und links gedrückt, 
dann ist gleich die erste Bedingung 
erfüllt. 

Als bester Weg erweist sich die 


u <So präsentiert sich 
»Spacetrap« auf 
dem Bildschirm 


WHuenschen Sie eine Anleitung (J/N)> ? 


HI-SCORE: 


a oe 
Spacetrap 

CPC 464/664/6128 

Kassette, Diskette 


Abspeicherung der Ergebnisse in 
Additionsvariablen. 


X=((JOY(0) AND 4)=4) OR -((JOY(O) AND 8)=8): 
Y=((JoY(0) AND 1)=1) OR -((JOY(0) AND 2)=2) 


Durch diese Befehlsfolge erhalten 
beide Richtungs-Variablen die korrek- 
ten Werte 1, -1 oder 0, mit denen dann 
weitergerechnet werden kann. 

Doch zurück zu unserem Pro- 
gramm. Die Variablen <eh> und 
<ev> enthalten die alten Positionen 
Ihres Raumschiffs. Zeile 1140 mit dem 
Befehl ON GOTO setzt das Programm 
bei wahrem Vergleich im Kollisions- 
Programmteil, ansonsten beim NEXT- 
Befehl in Zeile 1200 fort. 

Wie Sie feststellen werden, erlaubt 
es diese Art der Programmierung, die 
Steuerschleife kurz zu halten und sie 
bewirkt eine präzise und schnelle 
Reaktion auf die Joystick- oder Tasta- 
tureingabe - eine Grundvorausset- 
zung bei eimem Reaktionsspiel 
(Listing 5). 

Der Verzicht auf Unterbrechungen 
wirkt sich positiv aus. Nur bei einer 
Bewegung wird überprüft, ob Kollisio- 
nen stattgefunden haben und deshalb 
weitere Aktionen erforderlich sind. 
Dadurch wird immer nur das Nötigste 
ausgeführt. Erst wenn eine Kollision 
wirklich stattfindet, werden weitere 
Unterprogramme aufgerufen. 

Die vielen GOSUB-Befehle sind 
notwendig, um aus vielen Routinen 
nur die gerade aktuellen auszuwählen 
und möglichst schnell zur Hauptrou- 
tine zurückkehren zu können. Außer- 
dem wird dadurch das Programm fle- 
xibler. Der Preis, den man dafür zu 
zahlen hat, ist unter Umständen ein 
schwierigeres Verständnis der Pro- 
grammfunktionen (Listing 6). 

Zum Schluß die Bedeutung der 
wichtigsten Variablen im Programm: 
sp = senkrechte Position 


wp = waagrechte Position 

fp! = Feldadresse im Speicher 

h! = HIMEM 

q = Energiefelder, die beim näch- 
sten Durchgang ersetzt wer- 
den müssen 

= Anzahl der verbleibenden 

Robotschiffe 

c = Positionsnummer eines Robot- 
schiffs 


(Dietmar Schulze/ma) 
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122010 


RER 
"*#* Space Trap 1.B x#+* 
ER EERRR 


CLEAR:DEFINT a-z:MODE 1:IF HIMEM>425 
a8 THEN SYMBOL AFTER 129:MEMORY HIME 
M-1B000:GOSUB 189840 '’==> eigene Zeiche 
n definieren und Speicherbereich sic 


‘*** Data fuer eigene Zeichen ##** 


190028 


10050 
19040 
12050 
19048 
19070 


12080 
10098 


RESTORE 10048 

READ z: IF z=256 THEN RETURN 

FOR i=@ TO 7:READ zti):NEXT 

SYMBOL z,z(@) ,z(1),2(2),z(3),z2(4), 
z (5) ,z (6) ,z(7):G0OTO 18058 

DATA &C0,%3C ,&66 ,UFF,&99 ,U3C,%66,% 
DB,&C3 

DATA &C1,%18,%7E ‚&66,%DB,&DB,%66 ,% 


Listing 1. Der Definitionsteil von »Spacetrap« 


158 
168 


178 
188 


SsauB 
s@a1@ 
5020 


veg="se#r8kk2355 PACE- TRA PI2> 
KRRERE" 

SPEED INK 4,3: INK 8,8:BORDER @:INK 1 
»Z4: INK 2,20: INK 3,8 

ef $=CHR$ (198) :GOSUB 5848 


zuzz=za=mz2zmsuosmezzsemzmeemun 


Aufbau der Ueberschrift * 


s5a3@ 


5940 


sa5a 
Sa6B 


5078 


MODE 1:WINDOW 1,48,5,24:WINDOW#1 ,1, 
40,1,3:WINDOW#2,1,4@,4,4:WINDOW#3,1 
‚48,25,25 

PEN#1 ,@: PAPER#1,2 

FOR i=1 TO 2B:col=-(INT(i/2)<>i/2)+ 
1-(i=20):PLOT 8,399-i*2,col:DRAW 63 
9,399-1*2:NEXT 

LOCATE#1 ,4,2: PRINT#1 „CHR$ (22) CHR$ (1 
) ue$; CHR$ (22) CHR$ (B) 5: PRINT CHR$ (23 
)CHR$ (3) ; :x=32+12: y=399-14: TAG: PLOT 
%,Y,3:PRINT ue$: : TAGOFF:PRINT CHR$ 


Listing 2. Das Begrüßungsbild von »Spacetrap« 


Sso8 
518 
528 
538 
548 


558 


5168 


5170 


5188 
5198 


5280 


5218 
5228 


52380 


RER ER 
"**%* Programmstart ##* 
HERRN HH HH 


DEFINT a-z:h'!=HIMEM+1:f1=3:r=4:r1=5: 
bi1=B:q=30:e2=8 

GOSUB 5168'==> Anfangswerte 

ef $=CHR$ (198) :ef=198: er$=CHR$ (18) :e 
s$=CHR$ (192) ves=192: #s$=CHR$ (196) : # 
s=196 
fel=358*18:fp'!=h!+fel:hi !=PEEK (fp!)* 
2S56+PEEK (fp!+1) 

GOSUR 7308° Array loeschen 
LOCATE 2,6:PEN 2:PRINT"Wuenschen Si 
e eine Anleitung (J/N) ?";z 
i$=""SWHILE i$<>"J"AND i$<H"N":i$=u 
FPPER$ (INKEY$) zr=RND=WEND: PRINT i$ 
IF i$="J"THEN GOSUB 6848 

LOCATE 2,9:FEN 2:PRINT"Schwierigkei 
tsgrad (8- A 

WHILE i$<"B"OR i$>"9":1$=INKEY$ırd> 
RND: WEND: p=VAL (i$) +1 

CLS:605UR 72380°==> Eigenes Schiff s 
etzen 

RETURN 


==; 


FOR i=® TO 18*8-2:col=INT (RND*#4) :x= 
18: y=319-i1#2:xe=INT (RND# (16*38) ) :PL 
OT x,y,col:DRAWR ze,B:xe=XFOS:PLOT 
639-x,y,3-col:DRAW xe,y:NEXT 
RESTORE 6118 

READ b$,col:IF b$="xx"OR bt="yy" 
EN 5290 

FEN col:LOCATE 1,18:FRINT CHR$(1@)T 
AB(INT(39-LEN (b#$) ) /Z)b#r 

GOTO 6848 

PEN 3:LOCATE 9,18:FRINT"Weiter mit 
LEERTASTE...";3:FEN 1:WHILE INKEY#<> 
"NsWEND: IF b$="»x"THEN 6060 


TH 


[44E8] 
[BO3CE] 
LESECI 
UDFB6] 


[C520] 
[512AJ 
E[FCBC] 


[B12E] 
[1176] 
CBDAB]I 
[9EBO] 
[DBö2] 


TEDCA]I 
[6A74] 


[FSSA] 


[9976] 
[93F6] 
[B&C9) 
[4A78] 
[DBEC] 
[F@74] 
CBC1E) 


ECSC6] 
£[18C2] 


[9C92] 


[D89C) 
[49818] 
[LSBAB]I 
L[@7BE)] 


L39AE]I 
{[DA14] 
LOC7E] 


[BA92] 
[C1IB8E] 


[D540] 


[8376] 
[F3S5@] 


TA4ECI 
[Bö1C) 


LICBE)I 
[C598] 
LE728] 
[571C) 
tE992] 
[DF28) 
[C720] 


[C4D81 
LFEEE] 


[SSEB] 
I[A4EA]I 
LAQ26] 


[&23C] 


181200 
1011@ 
18128 
181380 


12140 
18150 


101658 
18178 
18188 
1281908 
102008 


18210 
19228 


7E,&18 

DATA &02,%6E ‚KAS,&FF,&BC,&3D,&FF ,% 
AS,%&76 

DATA &C3,%24,%5A,&DB, UFF UF ‚&DB,% 
5A,%&24 

Data ER u is a a 
C3,%66 

DATA %&C5,%7C,%11,%99,&BF ,&FD,&99,% 
88, &3E 

DATA 198,80,24,48,126,12,56,48,8 
DATA &F3,&6E ,KAS,&FF,&BC,&SD,&FF 5% 
AS ,%&76 

DATA &F4,%&BD,%42,%99 ,4A5,&A5,%99 ,% 
42,%&BD 

DATA &F5,%42,%BD,%66,%5A,%5A,&66,% 
BD,&42 

DATA %F6,%0,%3C ,%66 ,L5A,U5A,&66,83 
C,%a 
DATA 
2,%0 
DATA 


UF7,%0,%42,%18,%24,%24 ,%18,%4 
LFB,%B,LD,%B, 


&F9,0,0,0,0,0,0,0,8 
256,8,0,20,8,0,0,0,8 


«18,%18,%0,%0,%0 


DATA 
DATA 


(23) CHR# (@); 
FOR i=® TO 1:PLOT 4-1#2,393+1 #2,1*3 
:DRAWR 6353,8:DRAWR 8,-32:DRAWR -5353 
‚„B:DRAWR B,32:NEXT 
PEN 3:FOR i=® TO 1:L0CATE 1,1+19%#i: 
PRINT STRING$ (48,ef$) 3; :NEXT 
FOR i=2 TO 28:FOR j=@ TO 1:LOCATE i 
+j*39,1:PRINT ef$;:NEXT j,i:WINDOW 
2,39,6,23 
PEN#2,1:LOCATE#2,1,1:PRINT#2," Bonu 
s:"SPC(9)"Level:"SPC(4) "Score: ";:PE 
N#53,1:FRINT#3,"<2>HI-SCORE: "SFC(16) 
"SHIPS: "3 :RETURN 
LOCATE#2,23,1:PRINT#2 ,USING"##";1lev 
:LOCATE#2, 34,1: PRINT#2, USING" ##4#Q" 
;bi 
LOCATE#2,9,1:PEN#2,2:PRINT#2,USING" 
##44#0" ,b2\1B: RETURN 
PEN#3,2:LOCATE#3,13,1:PRINT#3 ,USING 
"44440" MAX (bi ‚hi!);sLOCATEHS, 35,11 
PRINT#3, STRING$ (MAX (@, ri) ‚es)er$s; 
RETURN 


CLS: RETURN 
DATA "",1,"”t(c) 1986 by Dietmar Schu 
lze",2,,,"Katharinenhof 5",2,"S@20: 
Z>KOELN 1",2,,,"Tel:221/3 2121" ,2,, 
1,,1. ® 
DATA"=== GEFANGEN IM RAUM PR PP 
DATA Umgeben von einem energiegelad 
enen,i1,"Zaun sind Sie mit defektem 
HYFERSPACE-",1,"Triebwerk in einem 
unbekannten" ,1,"Raumsektor gelandet 
DIE EREERRERELLDER 
DATA "",2,Zusaetzliche Energiefelde 
r sind eine,?,"weitere Gefahr, doch 
die groesste",2,Bedrohung kommt vo 
n den ploetzlich,?,auftauchenden Ro 
botschiffen. ,„2,,2 
DATA Mit ihrem empfindlichen Ortung 
ssystem,2,registrieren sie jede Bew 
egung im,2,Sektor und greifen in di 
eser Richtung ,2,sofort an. ,2,,2 
DATA " Ihre einzige Rettung besteht 
darin,",2,die Angreifer in die Ene 
rgiefelder ‚2,zu locken. Dort werden 
sie mit diesen,?,zusammen vernicht 
et.,2,,2,Ein Aufprall auf ein eigen 
es Schiff, 2,zerstoert sie ebenfalls 
= 12,2 ur 32 
DATA”") STEUERUNG 
re aysti c k",1,,1,Curso 
rtasten,i,,i,oder,i1,,1,"mit den Tas 
ten “Q> \<Ar,20>,<P>", iy,1 
DATA"Sind alle Begner erledigt, ers 
cheint",i1,die naechste Flotte - zah 
lreicher und,i,schneller'!,i,,i,ihre 
Befreiung haengt nur von Ihrer ,i, 
Geschicklichkeit ab... VIEL GLUECK 


Ylninnisyyst 


‘* locate wp,sp (waagerechte % senk 
rechte Fosition) # 


Listing 3. In diesem Teil erfolgen die Voreinstellungen für den Spielbeginn 


[5858] 
[C7BE] 
[öFAA]I 
LEBFAI 


[Bö6bE) 
L7ZAE] 


[CAD] 
CBC54] 
[FB48] 
[422C] 
[FSA4] 


[SAE6] 
[FOA&] 
[E398B] 


[B&CQ] 


CBFEE]I 
CAAFA]I 


L47A2] 


tACF2] 


[3E28@] 
[9OFB]I 


[EB842] 
[8096] 


[SEC6] 


[7D02] 
[8DE4] 


LEC16] 


[718A] 


[D17C] 


[7D18] 


[1728] 


CA7B2] 
[AIZE] 


EF3E4] 
[6652] 


wp=a MOD 38+1:sp=(a\38) +1:RETURN 
a=(wp-1)+(sp-1) #38: RETURN 
ZZSZSEZEZSZSEZSEJZz——zsuezzz az zz zzzm se 


* Setzen des wigenee Schiffs * 


PEN Z:ri=ri-1:IF ri<® THEN 3848 ELS 
E GOSUB 5148 

a=INT(RND*fel):IF PEEK(a+h'!')<>32 TH 
EN 7248 ELSE POKE ath!,es:GOSUB 794 
B:LOCATE wp,sp:PRINT es#; veh=wp:ev= 
sp:GOSUB 5148: RETURN 


'* Array loeschen # 


"zsz=2==2=2=22==2=2=2=52==== 


PEN 1:FOR a=B TO fel-1:POKE h!+a,32 
:LOCATE INT(RND*38+1) ,INT(RND*+18) +1 
:IF RND>B.85 THEN PRINT CHR$(144);E 
LEBE PRINT" "3 

NEXT: RETURN 


CALL &BBi18 


(ESBzEz22zZzuzzzumauuus 


* Tastaturabfrage * 
== 


FOR pa=B TO p:b2=MAX (b2-5,8) 
CALL %&BBa9 
x=eh: y=ev 


x=x+(CINKEY (8) +INKEY (34) +INKEY (74) ) 
25325 1 CINKEY (1) +INKEY (27) +INKEY (75) 


y=y+((INKEY (B) +INKEY (657) +INKEY (72) ) 
>-3) -( CINKEY (2) +INKEY (69) +INKEY (73) 


£[SDE8] 
[C6522] 
CBA4B) 
[&C18] 
[Bö7C]I 
T2ABE] 
[I66E)] 
[9024] 


[C57A] 


[68AA] 
[9C2A] 
ECBDC®] 
[1836] 
[2FC4] 
[2832] 


£[3D7E] 
[8088] 
[BF26] 


[BE6B] 
19212) 
[2822] 
CAB7E] 
[5426] 
[B61A] 
[EE26] 
[2B6E] 
[Dö6C] 
C[BA22] 


[2312] 
[8E14] 


568 
578 
588 


5978 

7068 
78708 
7988 


7898 
7188 
7ı18 
7128 
7158 
7148 
7158 
7168 


7178 
7180 


GOSUB 7978: q9=B: f=fi+2:f1=B'==> Energ 
iefelder setzen 
b2=# #588: p=MAX (B,p-1) :lev=12-p:GOSUB 
5128:GOSUB 5148 
IF #524. THEN #=27:e2=e2+1:IF e2>3 TH 
EN 3840 
GOSUB 7158' Robotschiffe setzen 
"##%* Setzen der Energiefelder *+*+ 
FOR b=1 TO.gq 
PEN 3:a=INT (RND#fel):IF FEEK(a+h!)< 
>32 THEN 7888 ELSE FOKE a+th! ,ef:605 
UB 7@4B:LOCATE wp,sp:PRINT ef$; 
NEXT:PEN 1:RETURN 


» 
zsE2S=22=2==2==s==2=2=2=s2s=mzmeumz==== 


* Setzen der Robotschiffe * 


c=B:PEN 1:FOR b=1 TO f 

a=INT (RND*fel): IF PEEK(a+th!)<>32 TH 
EN 716® ELSE FOKE a+th!,fs:GOSUB 784 
B:LOCATE wp,sp:PRINT fs$#$; :FOKE fp!+ 
c,wp:FOKE fp!+c+t1,sp:c=c+2 

NEXT: RETURN 


Listing 4. Hier werden die Robotschiffe verteilt 


1138 
1148 
1158 
1168 
1188 


1198 


1200 
1218 


1220 


)>-3) 


ON 2+(x=eh AND y=ev)GOTO 1288,1158 
IF Ctx<1)+ (x >38) +(y<1)+(y>1B)) THEN 2 
058 

Wp=x:sp=y:GOSUB 7058 


PENTSFLOBARE mp vEptPRINFFER«, : POKE 


wp=eh: sp=ev:LOCATE wp,sp:PRINT" "53: 
GOSUB 7B58:POKE ath! ,‚32:eh=x:ev=y 
NEXT pa 

—— 2118: IF fg THEN fg=9:60T0 188 


IF f>@ THEN 19858 ELSE CALL &BBQ9:bi 
=b1+b2/18:G0T0 548’==> keine Robots 
chiffe mehr 


Listing 5. Die Routine zur Tastaturabfrage ist der Hauptteil von »Spacetrap« 


pa=sp+ti:wp=eh: sp=ev:GOSUB 7858: GOSUB 
‚2220:60T0 1808 


* — Robotschifte * 


ZSZEZSESSSZEJE2S22SSE=SSzZszzean == 


c=INT (RND## ) #2:wp=PEEK (fp'!+c) :sp=PE 
EK(fp!+c+1):G0SUB 79859:G0SUB 5138 
x=Wp: y=sp:wp=wp+ (ehix)-(eh>x) :sp=sp 
+(ev<y)-(ev>y) :GOSUB 7058 

IF ev=sp AND eh=wp THEN GOSUB 2228: 
fg=1'==> Eigenes Schiff getroffen 
pk=PEEK (h!+a): IF pk=ef THEN 2288 EL 
SE IF pk=fs THEN 2378 

POKE h!+a,fs:PEN 1:LOCATE wp,sp:PRI 
NT fs$; :POKE fp'+c,wp:POKE fp'!+c+1, 
sp 

wp=x:sp=y:605UB 7858:POKE h'!+a,32:L 
OCATE x,y:PRINT" "3:RETURN 


„* Eigenen Schiff umtrarten * 


BORBSS, 622760808°2%807 &080p" 7256: 2° 


b:GOSUB 784B: INK 8,8:BORDER B:b2=8: 
RETURN 


'"* Energiefeld getroffen * 


POKE h!+a,S2:q=q+1:GOSUB 4848: INK 3 
,26,6:L0OCATE x,y:PRINT" "3:60SUB 23 
88 


wp=x:5p=y:GOSUB 79058 

POKE a+th! ,32:bi=bi+1:fi=fi1+1:POKE f 
p!+c,PEEK(fp!'+(#-1)*2):POKE fp!+c+i 
‚„PEEK(fp!+(#-1)#2+1):#f=f-1:605UB 51 
20 


CBA12] 
CBC3A] 
TEs4AC) 
[D8S3E] 
[961A] 


[4076] 
[9B1E] 
C1DOA] 
[6B8AE]I 
EFDOE) 
[BC14) 


CBSC6] 
[9C2C]I 
C4DEB] 
[Di1AAI 


C2F@Q] 


CA7BS] 
[9722] 
[717C] 
LEA74] 
CDB6E] 
[BD18] 


[230A] 
(9B1C] 
15388] 
[&öDBC] 
[BSOC) 
19724) 


[BFB2] 
[3684] 


[SFAAI 


3998 
3188 


3118 
3128 
4208 
4218 
4920 
4030 
4040 


4950 
4068 
4078 


INK 3,8:RETURN 


ur SEnirt getroffen #** 


GOSUB 2298 

GOSUB 4848:FOR i=® TO S:PEN INT(RND 
*3+1):LOCATE wp,sp:PRINT CHR$ (244+i 
)=FOR j=1 TO S@:NEXT j,i:POKE h'+a, 


BORDER @: INK 8,@:hi !'=MAX (hi '!,bi1):FO 

KE fp!,hi'!\256:POKE fp!+1,hi!MOD 25 
6:G605SUB 5148 

FOR a=1 TO 18:G0SUB 4848:FOR b=1 TO 
88:NEXT b,a 

CLS 

PEN 3:LOCATE 6,6 

IF ri<® THEN PRINT"PECH GEHABT '!":P 

EN 2:PRINT," Sie haben es nicht ges 

chafft,"," die Uebermacht war zu gr 

oss "ELSE FPRINT"GERETTET !":PEN 2: 

PRINT," Sie koennen in Ruhe Ihr Tri 

ebwerk"," reparieren und diesen unf 

reundlichen<4>Raumsektor verlassen 
u" — 


PEN 1:LOCATE 6,14:PRINT"Noch ein Sp 
iel (J/N) ? "3; 

j$=""sWHILE j$<>"J"AND j$<>"N": j$=U 
PPER$ (INKEY$) :WEND 

CLS: IF j$="J"THEN RUN 548 ELSE END 


CALL &BCA7:ENV 1,3,5,3,108,18,2,-3, 
15,9,-1,25 

SOUND 7, ‚25®, 0,0,1,8,& 

RETURN 


D 


Listing 6. Die einzelnen Unterprogramme zur Behandlung von Kollisionen etc. 


:OMMP\ 


ale 
UTER 


12372] 
[14F8] 


[2A32] 
[A282] 
[BAEA]I 
[5832] 


[8422] 
[F96E) 
[C11E] 
[&ö2FE] 
UZEEE] 
t2F@2] 
[9D26] 
L15BA]J 


[SBDE] 
[1A9B) 
[292E]) 


C141C] 
[9818] 


{5BOC] 


[245C] 
TA&FA] 


L1E78] 
[44CE] 


(83B6] 
[8526] 


CAFF&6] 


[F48A] 


tE9I32] 
[C21C] 
LEEBE] 
LISFE] 
[29092] 
[E624] 
[96B2] 


C[DA96] 
[992A] 
[7D46] 
LEF7B] 
[9S54A] 
C[BA1A]I 


[B2CB] 


[7F18] 
[2196] 
[DC94] 


[3362] 


L69EE) 


[S4F6] 
[278C] 
[931A] 
L1SCE] 
CDF&A] 
[S5BD2] 
[9D1C) 


CBFSC]I 
[6BBE] 
[9594] 
[9924] 
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n den letzten Jahren hat die Ent- 
wicklung auf dem Gebiet der 
Computer-Hardware große Fort- 
schritte gemacht. Die technischen 
Fähigkeiten moderner Computersy- 
steme eröffnen dem Benutzer ein wei- 
tes Feld an Anwendungsgebieten. 
Doch die Entwicklung auf der techni- 
schen Seite ist nichts wert, wenn sie 
nicht durch die entsprechende Soft- 
ware ausgenutzt wird. 

Programmiersprachen haben im 
Computergewerbe einen hohen Stel- 
lenwert, weil sie die Werkzeuge zum 
Entwickeln von Software darstellen. 
Nur mit leistungsfähigen Program- 
miersprachen ist es möglich, inner- 
halb einer vernünftigen Zeitspanne 
anspruchsvolle Software zu ent- 
wickeln. 

Da sich in letzter Zeit mehr und 
mehr Programmiersprachen auf dem 
Software-Markt tummeln, wollen wir 
im folgenden Beitrag dem interessier- 
ten CPC-Besitzer die Sprachen Basic, 
Pascal, Comal und Logo vorstellen, 
die dem Einsteiger und Umsteiger den 
Zugang zur Welt der Computer er- 
leichtern. 

Grundsätzlich ist zu sagen, daß es 


Programmier- 

sprachen für 

Einsteiger und 
Umsteiger 


Die Vielfalt der Programmier- 
sprachen wird immer größer 
und der Einsteiger oder Umstei- 
ger, der seinen Erfahrungshori- 
zont erweitern und statt 
Locomotive-Basic einmal etwas 
anderes ausprobieren möchte, 
steht hilflos vis-a-vis. 


zwei Arten von Sprachen gibt: Inter- 
preter und Compiler. Der Interpreter ist 
ein Systemprogramm, das ein in einer 
höheren Programmiersprache ge- 
schriebenes Programm beim Bearbei- 
ten Befehl für Befehl übersetzt und 
direkt ausführt. Weil jedoch beim Aus- 
führen eines Befehls neben der Über- 
setzung und den gesamten Fehlerab- 
fang-Routinen auch noch die vom 
jeweiligen Befehl benötigten System- 
routinen aufgerufen werden müssen, 
ist die erreichbare Verarbeitungsge- 
schwindigkeit in der Regel gering. 
Ein Compiler übersetzt hingegen 
den vorliegenden Quelltext nach er- 
folgreicher Fehlerbeseitigung kom- 
plett in einen maschinennahen Code, 
der natürlich wesentlich schneller 
abgearbeitet werden kann. 


Um Ihnen die in diesem Beitrag 
vorgestellten Programmiersprachen 
anschaulicher darstellen zu können, 
geben wir zu jeder Sprache ein Bei- 
spielprogramm. Alle Programme füh- 
ren eine Schleife mit bedingter Ver- 
zweigung sowie einer arithmetischen 
und einer logischen Rechnung aus. 
Die besondere Struktur der jeweiligen 
Programmiersprache wird in den 
unterschiedlichen Listings deutlich. 
Zudem geben die Beispielprogramme 
als Benchmarktests Aufschluß über 
die erzielte Geschwindigkeit (Bild). 

Es ist jedoch zu beachten, daß ein 
Vergleich der Ablaufgeschwindigkei- 
ten die Leistungsfähigkeit der Pro- 
grammiersprachen nur unzureichend 
wiedergibt. Doch werden die Vor- und 
Nachteile der jeweiligen Sprachen im 
folgenden ausführlich hervorgeho- 
ben. 

Die bekannteste und am weitesten 
verbreitete Programmiersprache ist 
Basic (Abkürzung für »beginners all 
purpose symbolic instruction code«). 
Fast jeder Heimcomputer hat einen 
Basic-Interpreter fest eingebaut, der 
nach dem Einschalten des Gerätes 
automatisch aktiviert wird. 
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So verfügt auch der Schneider CPC 
über einen integrierten Basic- 
Interpeter - das Locomotive-Basic. 

Leider gibt es von Basic, das bereits 
Anfang der sechziger Jahre am Col- 
lege von Dartmouth entwickelt wurde, 
viele Dialekte, so daß die meisten Pro- 
gramme aufgrund der speziellen 
Befehlserweiterungen nicht auf 
andere Computer übertragbar sind. 

Als Einsteigersprache für einen 
Computerbesitzer ist Basic jedoch 
ideal. Klar verständliche Schlüssel- 
worte und Befehlsfolgen sowie die 
schnell erlernbare Befehlssyntax 
erleichtern Anfängern die Beschäfti- 
gung mit dieser Programmiersprache. 

In letzter Zeit wird Basic zwar von 
vielen Programmierern etwas belä- 
chelt, doch völlig zu Unrecht. Denn 
aufgrund ständiger Weiterentwicklun- 
gen (zum Beispiel die Verbesserung 
des strukturellen Aufbaus) erfreut sich 
die Sprache weiterhin zunehmender 
Beliebtheit. Man denke nur daran, wel- 
ches Aufsehen Turbo-Basic kürzlich 
im PC-Bereich erregte. 

Daß sich moderne Basic-Versionen 
auch für professionelle Programmie- 
rung eignen, beweisen viele kommer- 
zielle Programme, die ursprünglich in 
Basic geschrieben und dann mit 
einem Compiler übersetzt wurden. 

Zwei interessante Versionen für die 
Computer der CPC-Reihe sind der 
CBasic-Compiler von Digital Re- 
search und natürlich das Locomotive- 
Basic. 


Basic — nicht 
nur für Anfänger 


Das Locomotive-Basic ist im Ver- 
gleich zu anderen Basic-Dialekten 
(Interpretern) sehr schnell, weil es 
einen Zwischencode (durch einen 
Compreter) erzeugt und einen relativ 
großen Sprachumfang besitzt, der 
viele Besonderheiten (zum Beispiel 
die Unterstützung von Interrupt- 
gesteuerten Unterprogrammen) auf- 
weist. 

Die Schwachpunkte liegen vor 
allem in einer Inkompatibilität, die zwi- 
schen den verschiedenen CPC-Ver- 
sionen besteht, dem Fehlen wichtiger 
Grafikroutinen (beispielsweise eine 
Kreis- oder Rechteckfunktion) und der 
zu geringen Unterstützung für die Ent- 
wicklung strukturierter Programme. 

Der Editor von Locomotive-Basic 
arbeitet zeilenorientiert. Jeder Pro- 
grammzeile muß eine Zeilennummer 
vorangestellt sein, deren Betrag die 
relative Position der Zeile innerhalb 
eines Basic-Programms repräsen- 
tiert. 


Im Gegensatz zum Locomotive- 
Basic stellt CBasic eine Programmier- 
sprache dar, die auf dem CPC unter 
der Kontrolle des Betriebssystems 
CP/M 2.2 beziehungsweise CP/M Plus 
läuft. CBasic ist also nur für den 
Anwender von Interesse, der minde- 
stens ein Diskettenlaufwerk (besser 
zwei) besitzt. 

CBasic ist ideal vor allem für die 
Benutzer, denen die Geschwindigkeit 
des Basic-Interpreters nicht ausreicht. 
Der Compiler von Digital Research 
eignet sich - zu einem Preis von 174 
Mark - auch zum Schreiben kommer- 
zieller Software in fast allen Ge- 
schäftsbereichen. Dabei spielt es eine 
wichtige Rolle, daß der Compiler 
Maschinencode erzeugt und die Pro- 
grammierung und Ausführung einzel- 
ner Programmteile erlaubt, die dann 
später zusammen das komplette Pro- 
gramm ergeben. 

Der umfangreiche Befehlssatz er- 
möglicht eine komfortable Bedienung 
und Programmierung. Ein weiterer 
Vorteil von CBasic ist leider nur für 
CP/M-Plus-Besitzer von Interesse: 
Der CBasic-Compiler enthält nämlich 
integrierte Grafikbefehle und Funktio- 
nen für eine sehr komfortable Grafik- 
programmierung. 

Diese Grafikerweiterung kann aber 
nur dann aktiviert werden, wenn ein 
GSX-Treiber zur Verfügung steht. Da 
die Kommandos völlig unabhängig 
von der verwendeten Peripherie sind, 
erlaubt der CBasic-Compiler die Aus- 
gabe von Grafiken auf jedem beliebi- 
gen angeschlossenen Ausgabegerät 
(Plotter Drucker oder Bildschirm) 
ohne Änderung oder erneute Compi- 
lierung des Programms. 

Ein weiteres Plus ist die hohe 
Rechengenauigkeit. Die verwendete 
vierzehnstellige Dezimal-Arithmetik 
garantiert Ergebnisse, die nicht durch 


Die 
Geschwindigkeit 
der Programmier- 
sprachen im 
Vergleich. 
Turbo-Pascal 

ist klarer Test- 
sieger, doch auch 
das Locomotive- 
Basic schlägt 
sich beachtlich. 


Rundungsfehler beeinflußt sind, wie 
sie bei der oft eingesetzten Binärarith- 
metik auftreten können. Da der Com- 
piler auch Integer-Arithmetik unter- 
stützt (das heißt Rechnen mit ganz- 
zahligen Werten), kann der Geschwin- 
digkeitsgewinn bei compilierten 
Programmen noch wesentlich höher 
ausfallen. 

Wenn der Compiler jedoch mit 
Fließkommazahlen arbeiten muß, ist 
er auffallend langsam, weil die hohe 
Rechengenauigkeit ihren Tribut for- 
dert. Selbst der Locomotive-Basic- 
Interpreter ist hier schneller (siehe 
Benchmarktest). Seine Geschwindig- 
keitsvorteile kann CBasic demnach 
nur im Integer-Bereich ausspielen. 


CBasic 
für Mathematiker 


Da der Compiler über die Möglich- 
keit verfügt, mehrzeilige Funktionen 
zu unterstützen, beinhaltet er Fähig- 
keiten, die sonst nur von anderen Pro- 
grammiersprachen wie zum Beispiel 
Pascal bekannt sind. Innerhalb dieser 
Funktionen beziehungsweise Unter- 
programme können lokale Variablen 
definiert werden, die nur in der ange- 
sprochenen Routine Verwendung fin- 
den. 

Vom CBasic-Compiler existieren 
neben der Z80-Version auch Ausfüh- 
rungen für andere 8-Bit- und 16-Bit- 
Computer. Aus diesem Grund ist eine 
Portabilität auf ein anderes Betriebs- 
system (zum Beispiel MS-DOS oder 
DOS Plus) kein großes Problem, denn 
die Kompatibilität zwischen den ein- 
zelnen Versionen ist gewährleistet, so 
daß auf ein großes Potential an 
Quellcode-Programmen zurückge- 
griffen werden kann. 


JRT- 
CBasic Pascal 


Das umfangreiche Handbuch zu 
CBasic ist in englischer Sprache 
geschrieben. Für Anfänger, die keine 
Erfahrung im Umgang mit englischen 
Texten besitzen, ist die Dokumenta- 
tion nicht geeignet. Da sie jedoch sehr 
übersichtlich aufgebaut und in ver- 
ständlichem Englisch verfaßt ist, soll- 
ten keine Probleme bei Anwendern 
auftreten, die grundlegende Englisch- 
kenntnisse besitzen. 


Linker und Library 


Manche Compiler übersetzen den 
Quellcode eines Programms in eine 
Art Zwischencode (sogenannter P- 
Code), der zwar schneller als ein inter- 
pretiertes Programm ist, aber den- 
noch nicht das Optimum an 
Geschwindigkeit darstellt. Der 
CBasic-Compiler hingegen benutzt 
einen Programmbinder (Linker) und 
eine Bibliothek (Library) im Zusam- 
menhang mit dem eigentlichen Com- 
piler, um reinen Maschinencode zu 
erzeugen, den der Computer direkt 
ausführen kann. 

Der Compiler übersetzt in Zusam- 
menarbeit mit dem Linker und der 
Library den Quellcode in ein Pro- 
gramm, das den zur Verfügung ste- 
henden Speicherplatz effizient aus- 
nutzt. Durch dieses Prinzip erhalten 
Sie die Möglichkeit, die einzelnen 
Bestandteile eines Programms unab- 
hängig voneinander zu entwickeln, 
um sie dann nacheinander zu einem 
Komplex zusammenzufügen. Dieser 
modulare Aufbau erleichtert die Pro- 
grammentwicklung ungemein. 

Die Struktur von CBasic bedingt 
aber auch einige Nachteile. Der Quell- 
code eines Programms muß immer 
mit einem Editor verfaßt werden, der 
unabhängig vom Compiler arbeitet. 
Es istlobenswert, daß auch der auf der 
CP/M-Plus-Diskette mitgelieferte Text- 
editor zum Schreiben des Quellcode 
benutzt werden kann, trotzdem hat 
dieser Aufbau eine Menge Probleme 
zur Folge. Es ist nämlich sehr wichtig, 
geschriebene Programme bezie- 
hungsweise Programmteile sofort zu 
testen. Dieses ist mit dem vorgestell- 
ten System jedoch nicht möglich. 

Nachdem Sie nämlich einen 
Programm-Text geschrieben haben, 
müssen Sie jedesmal erst den Compi- 
ler aufrufen, der den Text zuerst auf 
Syntaxfehler überprüft. Sollte sich im 
Quelltext ein Fehler befinden, müssen 
Sie erst wieder den Editor laden und 
den Fehler beseitigen. 

Eine weitere Schwäche ist die Zeit, 
die benötigt wird, um den Maschinen- 
code eines Programms zu erzeugen. 


Der CBasic-Compiler besteht - wie 
bereits erwähnt - aus drei Teilen: 
erstens der Compiler, der CBasic- 
Programme in relozierbare Maschi- 
nencode-Module übersetzt, zweitens 
die Library, die alle Arithmetik- sowie 
Ein- und Ausgaberoutinen enthält, 
und drittens der Linker, der den compi- 
lierten Code mit den Library-Routinen 
zu einem lauffähigen Programm kom- 
biniert, das sich vom Computer direkt 
ausführen läßt. 

Aus diesem Grund müssen alle Pro- 
gramme zusätzlich zum Schreiben 
des Quellcodes noch die Compilie- 
rungs-, Library- und Linkphase durch- 
laufen. Das dauert natürlich ziemlich 
lange, weshalb schon einige Erfah- 
rung im Umgang mit Basic-Program- 
men und ihren Fehlern nötig ist, um 
nicht zu verzweifeln. 

Die beiden besprochenen Basic- 
Versionen sprechen recht unter- 
schiedliche Zielgruppen an. Während 
sich das Locomotive-Basic auch für 
»blutige« Anfänger eignet, die noch 
keinerlei Erfahrung mit Computern 
vorweisen können, wendet sich CBa- 
sic vor allem an Anwender, die die 
Grundzüge der Basic-Programmie- 
rung beherrschen und mit der erreich- 
ten Geschwindigkeit des ohnehin 
schon recht schnellen eingebauten 
Basic-Interpreters nicht mehr zufrie- 
den sind. 


Interpreter oder 


Compiler? 


Sicherlich gehört Locomotive-Basic 
zu den besten Basic-Dialekten, die der 
Heimcomputermarkt zu bieten hat. 
Die Unterstützung von Fenstern und 
das ausgetüftelte Interrupt-Konzept 
sprechen für sich. Da die erreichbare 
Geschwindigkeit auch zufriedenstel- 
lend ist, eignet sich Locomotive-Basic 
sogar begrenzt für Anwendungen im 
professionellen Bereich. 

Wer hingegen auf hohe Rechenge- 
nauigkeit, beispielsweise in den wis- 
senschaftlichen Bereichen angewie- 
sen ist oder auf eine hohe Geschwin- 
digkeit im Integer-Bereich Wert legt, 
der ist sicherlich mit dem CBasic- 
Compiler besser beraten. Allerdings 
muß der Benutzer zugunsten dieser 
Vorteile auf Komfort bei der Pro- 
grammentwicklung verzichten. 

Leider gibt es zur Zeit keinen Com- 
piler auf dem Markt, mit dem Basic- 
Anwender Ihre Locomotive-Basic- 


Programme compilieren könnten. 
Die existierenden Compiler arbei- 
ten nur mit Integer-Variablen, was 
ihnen die Qualifikation für viele inter- 
essante Anwendungen abspricht. Sie 


sind auch nicht voll kompatibel zum 
Locombotive-Interpreter, so daß viele 
Befehle nicht umgesetzt werden kön- 
nen. 

Eine weitere Programmiersprache, 
die nichtnurim Heimcomputerbereich 
weite Verbreitung erlangte, ist Pascal. 

Pascal ist eine universell einsetz- 
bare, höhere Programmiersprache, 
die vom Schweizer Professor Niklaus 
Wirth an der Technischen Hochschule 
in Zürich entwickelt wurde und ihren 
Namen zu Ehren des Physikers Blaise 
Pascal erhielt. 


Pascal — strukturiert 
programmiert 


Die im Jahre 1971 veröffentlichte 
exakte Definition der Programmier- 
sprache Pascal erlaubte dem Benut- 
zer erstmals eine systematische 
Annäherung an die Computer-Pro- 
grammierung. Der festgelegte 
Sprachschatz von Pascal behandelt 
insbesondere die Unterstützung der 
strukturierten Programmierung. 

Seit dieser Zeit wurde Pascal auf 
fast jedem Computer implementiert, 
um mit dieser Sprache nahezu jede 
Programmieraufgabe zu lösen. 

Pascal entwickelte sich im Laufe der 
Jahre zu einer modernen Hochspra- 
che, die sich bei Programmierern aller 
Sparten großer Beliebtheit erfreut. 
Dabei reicht das Anwendungsgebiet 
vom Einstieg in die Heimcomputer- 
welt bis hin zum Einsatz bei der profes- 
sionellen Programmierung. 

Turbo-Pascal aus dem Hause Bor- 
land stellt den am weitesten verbreite- 
ten, leistungsfähigsten und mit 225 
Mark auch preiswertesten professio- 
nellen Pascal-Compiler dar. Dieses 
Programmiersystem eignet sich einer- 
seits hervorragend für den Einstieg in 
die strukturierte Programmierung und 
andererseits ist es ein herausragen- 
des Produkt für den Programment- 
wickler, der eine effizient einsetzbare 
Programmierumgebung sucht. 

Die extrem kurze Compilationszeit 
und die hohe Ausführungsgeschwin- 
digkeit machen Turbo-Pascal zu 
einem äußerst leistungsfähigen Pro- 
grammierwerkzeug. Allein der inte- 
grierte Wordstar-kompatible Editor 
wurde zu einem Meilenstein unter den 
Editoren für Programmiersprachen, 
an dem sich alle anderen Editoren 
messen lassen müssen. 

Da der Turbo-Pascal-Editor bild- 
schirmorientiert arbeitet, ist das 
Schreiben von Programmen mit ihm 
fast ein Kinderspiel. 

Den Durchbruch erzielte Turbo- 
Pascal jedoch nicht nur wegen seiner 
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Geschwindigkeitsvorteile, sondern 
auch mit der kompakten Struktur des 
Programmiersystems. Alle Kompo- 
nenten für die erfolgreiche Erzeugung 
des Maschinencodes befinden sich in 
einem Programm. Das heißt, daß Edi- 
tor, Compiler, Linker und Library 
zusammen eine kompakte Datei bil- 
den. 

Eine völlig andere Systemstruktur 
besitzt das Public Domain-Produkt 
JRT-Pascal, das bereits für 30 Mark 
erhältlich ist. 

Doch zuerst einige historische 
Details zu JRT-Pascal. Der Pro- 
grammautor Jim Tyson bot diesen 
Pascal-Compiler im Jahre 1982 durch 
Anzeigen in amerikanischen Compu- 
terzeitschriften zum damals sagen- 
haften Preis von 29,95 US-Dollar an. 
Wassich dann ereignete, klingt wie ein 
Märchen. Tysons Firma JRT-Systems 
erhielt in kürzester Zeit über einhun- 
derttausend Bestellungen. Als Ein- 
mannbetrieb war JRT-Systems natür- 
lich völlig überfordert, alle Bestellun- 
gen zu bearbeiten. Tyson bekam des- 
halb Arger mit der amerikanischen 
Bundeshandelskommission, weil er 
die im voraus bezahlte Ware nicht lie- 
fern konnte. 

So mußte Tyson seine Firma schlie- 
Ben, und er gab den Compiler zur Wei- 
terverbreitung als Public Domain- 
Programm frei. Dadurch hat sein 
Pascal-Compiler ' bis heute viele 
Freunde in der ganzen Welt gefunden. 
(Eine verbesserte Version des JRT- 
Pascal-Compilers wird seit einigen 
Jahren von Ellis-Computing unter 
dem Namen Nevada-Pascal angebo- 
ten.) 


Fast umsonst: 
JIRT-Pascal 


JRT-Pascal läuft auf dem CPC, 
ebenso wie Turbo-Pascal unter CP/M. 
Das heißt, daß für das Arbeiten mit 
JRT-Pascal mindestens ein Disketten- 
laufwerk notwendig ist. 

Allerdings benötigt JRT-Pascal eine 
Speicherkapazität von mindestens 
128 KByte. Im Gegensatz zu Turbo- 
Pascal arbeitet JRT-Pascal nach 
einem System, wie es von vielen Pro- 
grammiersprachen (zum Beispiel 
auch vom zuvor besprochenen CBa- 
sic) bekannt ist. 

So wird der Quellcode eines Pro- 
gramms erst mit einem Texteditor 
geschrieben und darauf compiliert. 
Bis hier gleicht das Verfahren dem bei 
Turbo-Pascal. Logische Programm- 
fehler, die erst bei Ablauf des Pro- 
gramms auftreten, können jedoch nur 
nach erneutem Aufruf des Editors 


beseitigt werden, während Tüurbo- 
Pascal automatisch den Editor aufruft 
und den Textcursor an der fehlerhaften 
Stelle positioniert. 

JRT-Pascal lehnt sich eng an den 
Standard des Informatikprofessors 
Niklaus Wirth an. Darüber hinaus ent- 
hält es jedoch eine umfangreiche 
Befehlserweiterung, die eine komfor- 
table Programmierung erlaubt. 

So liegen die Stärken von JRT- 
Pascal eindeutig in der Stringverwal- 
tung, die theoretisch Zeichenketten 
bis zu einer Länge von 64 KByte 
zuläßt. Mit Hilfe zahlreicher Befehle 
kann die Form einer Zeichenkette in 
vielerlei Hinsicht geändert werden. 

Ein weiterer Vorteil von JRT-Pascal 
liegt im sogenannten Extern-System. 
Das Extern-System erlaubt die Ent- 
wicklung von Programmen, deren 
Länge weit über die Speicherkapazität 
des Computers hinausgeht. Im 
Gegensatz zu anderen Programmier- 
sprachen, die nach diesem Prinzip 
arbeiten, verwaltet JRT-Pascal die 
benötigten Module beziehungsweise 
Funktionen in einer besonderen Art. 

Benötigt das Hauptprogramm ein 
externes Programm, so wird die 
betreffende Datei bei Bedarf in den 
Speicher geladen und ausgeführt. Der 
von den Prozeduren belegte Spei- 
cherplatz wird erst dann wieder freige- 
geben, wenn er vom Hauptprogramm 
anderweitig benötigt wird. Interessant 
dabei ist, daß JRT-Pascal in diesem 
Fall nicht ein beliebiges Modul im 
Arbeitsspeicher löscht, sondern das 
am längsten nicht mehr benutzte! 

Zusammenfassend kann man 
sagen, daß die beiden vorgestellten 
Pascal-Compiler zwei interessante 
Alternativen aus der Pascal-Welt dar- 
stellen. Dabei eignet sich die preis- 
werte Public Domain-Version eher zu 
ersten Einstiegsversuchen. Sollten 
Sie dann stärkeres Interesse an dieser 
Programmiersprache finden, so führt 
am Erwerb von Turbo-Pascal kein Weg 
vorbei. 

Comal spielt auf dem Gebiet der 
Programmiersprachen noch eine 
untergeordnete Rolle. Neben Basic 
haben allenfalls Pascal (als Musterbei- 
spiel für strukturiertes Programmie- 
ren) und C (als maschinennahe Hoch- 
sprache) einen hohen Bekanntheits- 
grad erlangt. 

Doch die geringe Verbreitung von 
Comal erstaunt, wenn man erfährt, 
daß diese Sprache die herausragen- 
den Merkmale der anderen wichtigen 
Hochsprachen fast vollständig in sich 
vereint. 

Comal - genauer Comal-80 - wurde 
im Jahr 1973 von den Dänen Christen- 
sen und Löfsted entwickelt, um eine 
Programmiersprache zu schaffen, die 


sich für den Einsatz in Schulen und 
Universitäten eignet. Das Fundament 
von Comal wird aus Sprachelementen 
von Basic und Pascal gebildet. Doch 
Comal wurde laufend aktualisiert, so 
daß sich in der vorliegenden Version 
auch Elemente von Logo und C finden 
lassen. 

Mit Comal sollten viele umständli- 
che Verfahren herkömmlicher Pro- 
grammiersprachen vermieden, 
gleichzeitig aber eine akzeptable 
Ablaufgeschwindigkeit erreicht wer- 
den. So ist die Programmierumge- 
bung zum Beispiel ein Interpreter, der 
den zeitaufwendigen Übersetzungs- 
vorgang der Compilersprachen 
umgeht. 

Zudem ist Comal so konzipiert, daß 
es nicht nötig ist, eine exakte Defini- 
tion der Programmstruktur durchzu- 
führen. Der Anwender muß beispiels- 
weise die benötigten Variablen nicht, 
wie in Pascal üblich, zu Programmbe- 
ginn gesondert deklarieren, um sie im 
Hauptprogramm benutzen zu dürfen. 


Comal — die 
unbekannte Sprache 


Die Hauptforderungen und Ziele, 
denen Comal-80 gerecht werden will, 
lassen sich wie folgt zusammenfas- 
sen: 

Der Programmierer kann Befehle, 
Prozeduren und Funktionen ähnlich 
wie in Forth (siehe Beitrag über Spra- 
chen für Profi-Programmierer) neu 
definieren und diese im Direktmodus 
aufrufen. 

Der Anwender kann alle Fehlerzu- 
stände, die durch Umsetzung eines 
Algorithmus auf den Computer erfol- 
gen, behandeln und gezielt beseiti- 
gen. 

Der strukturierte Aufbau eines 
Comal-Programms wird erreicht, 
indem die Sprache viele spezifische 
Funktionen des speziellen Computers 
unterstützt und durch ein sinnvolles 
Package-Konzept (ähnlich den 
Include-Dateien) Unübersichtlichkeit 
vermeidet. 

Hinzu kommen ein benutzerfreund- 
licher Bildschirmeditor, klare Fehler- 
meldungen in Deutsch und die Über- 
tragbarkeit einzelner Programme auf 
andere Computertypen. Comal ist 
nicht, wie oft vermutet wird, eine sim- 
ple Basic-Erweiterung, sondern stellt 
dem Programmierer eine komfortable 
Programmierumgebung zur Verfü- 
gung. Die außerordentlich schnellen 
Diskettenoperationen, die Programm- 
strukturen und die umfassenden Arith- 
metikroutinen sind weitere Vorteile 
dieser Programmiersprache. 
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Im Gegensatz zur Comal-Version 
1.83, die bislang für 69 Mark auf Dis- 
kette vertrieben wurde, ist nun für alle 
CPC-Modelle auch die Version 2.0 für 
stolze 248 Mark als ROM-Modul 
erhältlich. 

Doch die Version 2.0 ist ihr Geld 
wert, denn sie enthält im Gegensatz 
zu der älteren Fassung einen wesent- 
lich erweiterten Befehlssatz, der keine 
Wünsche mehr offenläßt. Sie unter- 
stützt das 3-Zoll-Laufwerk von Schnei- 
der ebenso wie die Diskettenstation 
von Vortex unter VDOS 2.0. 

Sollten in Ihrem Computer mehr als 
64 KByte Speicherplatz zur Verfügung 
stehen, so wird dieser zusätzliche 
Bereich als RAM-Disk benutzt. Das 
funktioniert unter Comal sowohl mit 
den oberen 64 KByte des CPC 6128, 
als auch mit der Vortex-Speicher- 
erweiterung, den dk’Tronics-Produk- 
ten (inklusive Silicon Disc) und der 
Data Media-Aufrüstung! 


Da macht das Pro- 
grammieren Spaß 


Für Comalprogramme und Daten- 
felder sind im Gegensatz zur Version 
1.83 35 KByte Speicherplatz verfüg- 
bar. Das ROM-Modul enthält jedes 
Package auf EPROM; man muß sie 
also nicht erst von Diskette laden. Um 
dem Programmierer bei der Pro- 
grammanalyse und Fehlerbeseiti- 
gung eine Hilfe zu geben, erscheint 
jede Fehlermeldung in Deutsch mit 
Kommentar. 

Erfreulich ist auch die Fähigkeit der 
Comal-Version 2.0, relative Dateien 
einzurichten, die sehr leicht und gut 
kontrollierbar zu lesen und zu verän- 
dern sind. 

Außerdem lassen sich mit dieser 
Version sequentielle Dateien im 
Append-Modus betreiben. Das heißt, 
bereits angelegte, beschriebene und 
wieder geschlossene Dateien dürfen 
zum Weiterbeschreiben (Anhängen) 
geöffnet werden. 

Doch einen wichtigen Nachteil von 
Comal wollen wir nicht verschweigen. 
Das CPC-Comal bearbeitet Funktio- 
nen wie Sinus, Kosinus oder Logarith- 
mus äußerst langsam. 

Für den CPC 6128 mit dem Betriebs- 
system CP/M Plus gibt es eine weitere 
Comal-80-Version. Sie wird zusam- 
men mit einem Runtime-Modul ausge- 
liefert. Dadurch kann man in Comal 
geschriebene Programme auch ohne 
den eigentlichen Interpreter unter der 
Programmierumgebung CP/M ablau- 
fen lassen. 

Das Comal-ROM-Modul begleitet 
ein ausführliches deutsches Hand- 


buch mit vielen Beispielprogrammen. 

Zusammenfassend stellt die Comal- 
Version 2.0 sowohl für den Einsteiger 
als auch für den Profi eine interes- 
sante Programmiersprache dar, die 
die Entwicklungszeit von Software 
erheblich verkürzt (wenn auch zu 
einem stolzen Preis). 

Die letzte Programmiersprache, die 
wir in diesem Beitrag vorstellen, ist in 
der Programmiererszene sehr umstrit- 
ten. Es handelt sich um Logo. Ohne 
Frage ist Logo die Programmierspra- 
che, die bereits Kindern im Vorschulal- 
ter spielerisch den Einstieg in die 
Computerwelt erleichtert. 

Doch lassen sich mit Logo durchaus 
auch anspruchsvolle Programme 
schreiben. Auf dem Gebiet der Grafik- 
programmierung ist diese Sprache 
ohnehin fast unschlagbar. Das Prinzip 
der Tüurtle-Grafik findet neuerdings 
auch in anderen Software-Produkten 
großen Anklang. 

Entwickelt wurde Logo in langjähri- 
ger Arbeit von Seymore Papert. Es 
entspricht in seinen Grundstrukturen 
den Definitionen von Lisp. Es ist 
gleichzeitig aber übersichtlich aufge- 
baut und leicht verständlich, da sich 
der Programmautor lange mit kindli- 
chen Verhaltensweisen und Denk- 
strukturen beschäftigt hat. Von Päd- 
agogen empfohlen, gilt Logo als eine 
der besten Einsteigersprachen über- 
haupt. 


keine Spielerei 


Der Aufbau von Logo weicht von 
dem einer »herkömmlichen« Program- 
miersprache ab. Die einzelnen 
Befehle von Logo werden einfach ein- 
getippt, wie auch ein normaler Text 
geschrieben wird. Existiert ein Befehl 
oder ein Routinenaufruf nicht, so kann 
er anhand der übrigen Befehle selbst 
definiert werden. 

Der »Preis« ist natürlich eine der 
stärksten Seiten von Logo, denn die 
Version Dr. Logo liegt jedem Schnei- 
der-Diskettenlaufwerk als »kostenlose 
Zugabe« bei. 

Wer jedoch professionell program- 
mieren möchte, sollte die Finger von 
Logo lassen. Die hohe Anwender- 
freundlichkeit und der große Program- 
mierungskomfort werden nämlich 
durch einige schwerwiegende Nach- 
teile erkauft. So benötigen die leicht 
verständlichen Logo-Routinen soviel 
Speicherplatz, so daß umfangreiche 
Programme von vornherein nicht in 
Frage kommen. 

Das gravierendste Problem liegt 
jedoch zweifelsohne in der geringen 


Ablaufgeschwindigkeit von Logo 
(siehe Benchmarktest), die bei 
rechenintensiven Problemlösungen 
besonders ins Gewicht fällt. Aus die- 
sem Grund ist Logo für mathemati- 
sche Aufgaben denkbar ungeeignet. 

In den letzten Jahren sind immer lei- 
stungsfähigere Versionen der Pro- 
grammiersprache Basic entwickelt 
worden, doch die Grenzen sind abzu- 
sehen. So ist Basic sicherlich die am 
wenigsten spezialisierte Sprache der 
vorgestellten Programmiersprachen, 
so daß es in fast allen Bereichen zum 
Einsatz kommt. Doch für Programme, 
die eine hohe Geschwindigkeit errei- 
chen müssen, ist Basic - zumindest in 
der Interpreterform - ungeeignet. 


Welche Sprache 
ist die richtige 


Weil jedoch eine große Anzahl der 
Programme in Computerzeitschriften 
in dieser Sprache abgedruckt sind, 
kann man auch auf ein großes Poten- 
tial interessanter und leicht umsetzba- 
rer Software zurückgreifen, und das 
fast zum Nulltarif. 

Der Programmiersprache Pascal 
gehört zumindest die nahe Zukunft. 
Vor allem das leistungsfähige Konzept 
von Turbo-Pascal und der Preis des 
Public Domain-Programms JRT-Pas- 
cal tragen zu der großen Popularität 
bei. 

Turbo-Pascal setzte mit der heraus- 
ragenden Geschwindigkeit der Com- 
pilierung und des Programmcodes, 
sowie mit der Kürze des Programm- 
codes bereits einen Meilenstein in der 
Entwicklung der Programmierspra- 
chen. 

Die exakte Definition der Pro- 
grammeigenschaften durch Professor 
Nikolaus Wirth und der modulare Auf- 
bau von Pascal bewirken die unkom- 
plizierte Übertragbarkeit von einzel- 
nen Programme auf andere Compu- 
tertypen. 

Die spezielle Anpassung der Grafik- 
befehle an die spezifischen Eigen- 
arten der CPC-Grafik und der akzep- 
table Preis erleichtern dem interes- 
sierten Anwender den Einstieg in das 
interessante Gebiet der Pascal-Pro- 
grammierung. 

Wenn Sie erst einmal in Pascal hin- 
einschnuppern möchten, dann emp- 
fiehlt sich die Public-Domain-Version. 
Sie enthält zu einem wirklich heraus- 
ragenden Preis eine komplette Anlei- 
tung und ein sehr leistungsfähiges 
Programm. 

Comal ist sicherlich eine der bisher 
am wenigsten beachteten Sprachen, 
die aber wesentlich mehr Interesse 
verdient. Die Nähe zu Basic, die den 
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Umstieg problemlos werden läßt und 
die Implementation der wichtigsten 
Eigenschaften anderer höherer Pro- 
grammiersprachen machen Comal zu 
einer leistungsfähigen Programmier- 
umgebung. 

Da es eine Disketten- und eine 
Modulversion gibt, ist auch der Preis 
kein großes Problem. Die Modulver- 
sion hat natürlich den Vorteil, daß ein 
erheblich größerer Befehlssatz und 
wesentlich mehr Speicherplatz zur 
Verfügung stehen. 

Der durchdachte Aufbau und ein 
komfortabler Editor machen Comal zu 
einer interessanten Programmier- 
sprache, deren Entwicklung in bezug 
auf Ausführungsgeschwindigkeit und 
Bekanntheitsgrad für die Zukunft hof- 
fen läßt. 


Bücher, Bücher, 
.. 
Bücher 


Abschließend möchten wir Sie noch 
auf einen nicht zu vernachlässigen- 
den Umstand aufmerksam machen, 
der ebenfalls einen Einfluß auf Ihre 
Kaufentscheidung haben sollte. 

Alle vorgestellten Programmier- 
sprachen mit Ausnahme des Loco- 
motive-Basic enthalten im Lieferum- 
fang keine Anleitung zum Erlernen der 
Programmiersprache. Das heißt, daß 
Sie zu den Anschaffungskosten der 
Programmiersprache noch mit Kosten 
für begleitende Literatur rechnen müs- 
sen, die Ihnen den Umstieg von Basic 
auf eine andere Programmiersprache 
erleichtert. 

Hier gibt es für einige Compiler eine 
größere Auswahl an Büchern als für 
andere, und der Verbreitungsgrad an 
Fachliteratur kann auch regional sehr 
unterschiedlich sein. 

Es ist nicht verkehrt, wenn Sie sich 
vor dem Kauf mit Literatur zu einer 
Programmiersprache beschäftigen, 
um dann eine Kaufentscheidung zu 
treffen. So können Sie sich manche 
Enttäuschung ersparen. 

Sie erhalten durch Bücher einen 
größeren Überblick und unter Umstän- 
den auch neue Anregungen, die wir 
Ihnen innerhalb dieses begrenzten 
Rahmens nicht geben konnten. 

Wer weiß - vielleicht schreiben Sie 
später selbst einmal die Programmier- 
sprache der Zukunft! 

(Markus Zietlow/ma) 


Bezugsquellen: 

CBasic: Markt & Technik Verlag, Hans-Pinsel-Str. 2, 8013 Haar 
Turbo-Pascal: Heimsoeth Software, Fraunhoferstr. 13, 8000 
München 5 

JRT-Pascsal: Martin Kotulla, Grabbestr. 9, 8500 Nürnberg 90 
Comal: Bauer & Kaup GBR, Teichstr. 9, 4401 Saerbeck 


10 PRINT”Start” Listing 1. Der Benchmarktest 
20 i=0 im Locomotive-Basic 

30 WHILE i() 5000 

40 i=i+l 

50 IF i/2=INT(i/2) THEN i=ix2/2+2-2 

60 a=(5 AND 4 OR 3) 

70 WEND 

80 PRINT”Ende” 


PRINT ”Start”;chr$(7)Listing 2. Der CBasic-Compiler 
i=0 erlaubt eine bessere optische 
WHILE i() 5000 Strukturierung und benötigt keine 
i=141 Zeilennumerierung 
IF i/2=INT(i/2) THEN i=ix2/2+2-2 
a=(5 AND 4 OR 3) 
WEND 
PRINT chr$(7) ; ”Ende” 
END 


program benchmark; Listing 3. Die Turbo-Pascal-Fassung 
des Benchmarktests 


var 
a,i:real; 


begin 
writeln('Start'); 
i:=0; 
repeat 
i:=i+l; 
if i/2=int(i/2) then i:=ix2/2+2-2; 
a:=(5 and 4 or 3); 
until i=5000; 
writeln('Ende'); 
end. 


program benchnark; Listing 4. Für den JRT-Pascal-Compiler 
waren einige kleine Änderungen nötig 
var (logische Operatoren werden nicht 
a,i:real; akzeptiert) 


begin 
writeln('Start'); 
i:=0; 
repeat 
i:=i+1; 
if round(i/2)=trunc(i/2) then i:=ix2/2+2-2; 
a:=5+4-3; 
until i=5000.0; 
writeln('Ende'); 
end. 


0010 PRINT ”Start” Listing 5. Der Benchmarktest 
0020 i:=0 als Comal-Programm ... 

0030 REPEAT 

0040 i:=i+l 

0050 IF i/2=INT(i/2) THEN i=ix2/2+2-2 

0060 a:=(5 AND 4 OR 3) 

0070 UNTIL i=5000 

0080 PRINT ”Ende” 


to benchmark Listing 6. ... und als Primitive in Logo 

type "Start (auch hier sind keine logischen 

make ”i 0 Operatoren zugelassen) 

repeat 5000 [make ”i :i+1iäif (:i/2=int :i/2) 
[make ”i:ix2/2+2-2] 
make "a5 +4 - 3] 

type ”Ende 

end 


wie die Profis 


auf dem Gebiet der elektroni- 

schen Datenverarbeitung pas- 
siert. Fortgeschrittene Miniaturisie- 
rung und ein enormer Preisverfall 
machten Computer einem großen 
Interessentenkreis zugänglich. Doch 
das steigende Angebot an Hardware 
hat auch einen hohen Bedarf an Soft- 
ware zur Folge. Die Ausweitung der 
Anwendungsmöglichkeiten auf kauf- 
männische und wissenschaftliche 
Gebiete bedeutet auch eine erhöhte 
Nachfrage nach Programmierspra- 
chen, die den gestellten Anforderun- 
gen genügen. 

Prinzipiell lassen sich heutzutage 
zwei Trends beobachten, die die Ent- 
wicklung von Programmiersystemen 
nachhaltig beeinflussen. Als erstes 
besteht ein Bedarf an schnellen Spra- 
chen zur Auswertung und Verwaltung 
von großen Datenmengen, zum Bei- 
spiel in der Forschung. Andererseits 
haben sich vor allem in letzter Zeit Pro- 
grammiersprachen etabliert, die ein 
relativ beschränktes Zielgebiet zulas- 
sen. Diese problemorientierten Spra- 
chen haben den Vorteil, daß sie sich 
jeweils für ein spezielles Aufgabenfeld 
am besten eignen. Die hautsächli- 
chen Anwendungsgebiete der Spra- 
chensindin Bild 1 grafisch dargestellt. 
Bild 2 zeigt die Distanz zwischen der 
Programmiersprache und der Maschi- 
nenebene auf. 


5 n den letzten zehn Jahren ist viel 


Programmiersprachen gibt es 
wie Sand am Meer. Doch wel- 
che ist die richtige für eine 
bestimmte Anwendung? Wir 
haben mehrere interessante, 
aber noch wenig verbreitete 
Sprachen für den CPC auf ihre 
Leistungsfähigkeit und das Ein- 
satzgebiet überprüft. 


Fast alle Programmierumgebungen 
haben eins gemeinsam: Sie sind 
Compiler-orientiert. Das bedeutet, 
daß das Quellprogramm erst mit 
einem Texteditor geschrieben wird, 
um es danach in einen maschinenna- 
hen Code umzuwandeln. Grundsätz- 
lich gibt es dabei zwei Alternativen. 
Einerseits besteht die Möglichkeit, ein 
Komplettsystem anzubieten, das 
schnell zwischen Editor und Compiler 
wechseln kann. Dies hat den Vorteil, 
daß das Schreiben und Überprüfen 
von Programmen äußerst komfortabel 
ist. 

Das entgegengesetzte Prinzip geht 
davon aus, Editor, Compiler, Linker 
und Library zu trennen. Das hat den 
Vorteil, daß man nicht auf ein System 
beschränkt ist, sondern mit den Hilfs- 
mitteln unterschiedlicher Compiler, 
Linker und Libraries arbeiten kann. 
Das offene System erlaubt auch die 
Verwendung mehrerer Programm- 
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Bild 1. Die ursprünglichen Anwendungsgebiete der bekanntesten Programmier- 


sprachen 


teile, die in unterschiedlichen Spra- 
chen geschrieben wurden. 

Mit Hilfe dieses Artikels wollen wir 
Ihnen das Basiswissen über Program- 
miersprachen für fortgeschrittene 
Benutzer vermitteln und Ihnen die ver- 
schiedenen Versionen vorstellen, die 
auf den Schneider CPCs eingesetzt 
werden. Es ist wichtig anzumerken, 
daß die vorgestellte Auswahl weder 
vollständig ist noch sein kann. Dafür 
gibt es einfach zu viele exotische und 
problemspezifische Sprachen, die für 
den normalen Anwender uninteres- 
sant sind. Andererseits gibt es sehr 
viele verschiedene Versionen der ein- 
zelnen Sprachen, deren Aufzählung 
und Beschreibung eine ganze Büche- 
rei füllen würde. So haben wir uns ent- 
schieden, Ihnen nur die wichtigsten 
und am weitesten verbreiteten Dia- 
lekte vorzustellen. 


Der Nachfo 
von Pasca 


Die wahrscheinlich bekannteste 
höhere Programmiersprache ist Pas- 
cal. Sie ist das erste populäre Pro- 
grammiersystem, das sich mit struktu- 
rierter Programmierung und gezielt 
definierten Datenstrukturen beschäf- 
tigt. Doch soll im folgenden keine 
Beschreibung von Pascal folgen, da 
deren Aufbau schon im ersten Beitrag 
über Programmiersprachen darge- 
stellt wurde (siehe Programmierspra- 
chen für Einsteiger). Pascal spielt aber 
bei der Programmierung auf PCs eine 
sehr wichtige Rolle, weshalb es hier 
nochmals erwähnt werden muß. 

Mit Modula stellt sich eine Pascal 
sehr ähnliche Programmiersprache 
vor. Modula ist die konsequente Wei- 
terentwicklung von Pascal, das in eini- 
gen Bereichen Schwächen aufweist. 
So unterstützt Pascal, das ursprüng- 
lich nur zu Lehrzwecken konzipiert 
wurde, keine Routinen, die das 
Betriebssystem direkt ansprechen 
oder auf bestimmte Speicherbereiche 
zugreifen. Des weiteren sind die Ein- 
und Ausgaberoutinen ziemlich unzu- 
reichend. 

Im Jahre 1975 hat Niklaus Wirth 
wegen dieser Schwächen des Pascal- 
Systems eine neue Sprache ent- 
wickelt, die die auftretenden 
Schwachpunkte von Pascal vermei- 
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det. Die Firma Borland, von der der 
Standard Turbo-Pascal stammt, hat 
nun vor einiger Zeit einen Modula-2 
Compiler veröffentlicht, der unter 
CP/M lauffähig ist. Er heißt - wie sollte 
es auch anders sein - Turbo-Modula 
und erfüllt natürlich den Wirthschen 
Standard. Die Programmierumge- 
bung lehnt sich eng an das von Turbo- 
Pascal bekannte Erscheinungsbild. 
Der Editor ist wie gewohnt Wordstar- 
kompatibel, enthält aber im Gegen- 
satz zu der Turbo-Pascal-Version 
einige Besonderheiten. 

Da es mit dem Modula-Editor mög- 
lich ist, Texte zu schreiben, die über 
den zur Verfügung stehenden Spei- 
cherplatz hinausgehen, benutzt er 
natürlich oft das Diskettenlaufwerk. 
Dadurch erscheint der Editor zwar 
sehr langsam, doch läßt sich die feh- 
lende Geschwindigkeit wegen der gro- 
Ben Vorteile dieser Programmkonzep- 
tion akzeptieren. Turbo-Modula ist ein 
Dialekt, der sich hauptsächlich für fort- 
geschrittene Programmierer eignet. 
Wer Pascal perfekt beherrscht, wir mit 
Turbo-Modula seine Freude haben. 
Mit 225 Mark ist Turbo-Modula jedoch 
nicht gerade billig. 

Die nächste Programmiersprache, 
die wir Ihnen vorstellen wollen, ist C. C 
wurde im Jahre 1972 von Ken Thomas 
und Dennis Ritchie entwickelt. Zu die- 
ser Zeit trat das Problem auf, das neu 
entwickelte Betriebssystem Unix auf 
andere Rechner umzusetzen. Um in 
bezug auf Unix eine möglichst große 
Portabilität zu erreichen, entwickelten 
die beiden Autoren die Programmier- 
sprache C. Sie ist sehr maschinennah 
und erlaubt sehr kompakte und 
schnelle Programme. 

Viele Befehle, die normalerweise 
nur in Assembler zur Verfügung ste- 
hen, sind auch in © integriert. Durch 
die weite Verbreitung ist auch eine 
hohe Portabilität auf alle wichtigen 
Computer gegeben. C enthält viele 
heute übliche Datenstrukturen und 
unterstützt strukturiertes Program- 
mieren. Die Möglichkeit von rekursi- 
ven Funktionsaufrufen und der modu- 
lare Aufbau machen C zu einer Pro- 
grammiersprache, die Weichen für die 
nahe Zukunft stellt. 

Ein äußerst unangenehmer Um- 
stand tritt im Zusammenhang mit C 
jedoch bei der Fehlererkennung und 
-beseitigung auf. Wegen der maschi- 
nennahen Konstruktion erkennt C 
keine Fehler, soweit sie nicht die Syn- 
tax einer Funktion betreffen. Ein weite- 
rer Nachteil von C ist, daß es zu wenige 
Plausibilitätsprüfungen durchführt. 
Das hat zwar einerseits sehr kurze 
Programme zur Folge, aber anderer- 
seits führt diese Vorgehensweise zu 
schwer aufzufindenden Fehlern. 
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Bild 2. Eine vereinfachte Darstellung des Verhältnisses zwischen Programmier- 


sprache und Maschinennähe 


Für den Schneider CPCogibt es zwei 
Versionen, die wir besonders heraus- 
heben möchten. Sie tragen beide den 
gleichen Namen (Small C), sprechen 
aber recht unterschiedliche Anwen- 
derkreise an. Die erste der beiden Ver- 
sionen nennt sich Small-C-Entwick- 
lungssystem und ist im Markt & 
Technik-Verlag erschienen. Sie ist 
wesentlich besser dazu geeignet, pro- 
fessionelle Programme zu entwickeln 
als die Public Domain-Version, benö- 
tigt aber für ihren Betrieb einen Spei- 
cherplatzumfang von mindestens 128 
KByte RAM. 


Ein Entwicklungs- 
system 


Das Entwicklungssystem befindet 
sich auf drei beidseitig bespielten 
3-Zoll-Disketten, die alle zum Betrieb 
des Compilers benötigten Unterrouti- 
nen enthalten. Ein sehr interessanter 
Punkt ist, daß alle Hauptprogramme 
als C-Quellcode geliefert werden und 
so später je nach Bedarf von erfahre- 
nen Programmierern modifiziert wer- 
den können. Das Handbuch ist die 
schwächere Seite des Systems. Es 
befinden sich zwar Beschreibungen 
der Small-C-Bibliothek sowie des mit- 
gelieferten Small-Mac-Assemblers 
und des Small-C-Tools darin, es fehlen 
aber Hinweise auf die Bedienung des 
umfangreichen Entwicklungspaketes. 
Diese C-Variante ist mit 99 Mark recht 
preiswert. 

Die zweite Variante von Small © ist 
als Public Domain-Software für 30 
Mark erhältlich. Dieser C-Compiler 
akzeptiert nur eine bestimmte Unter- 


menge der C-Standardbefehle. Dabei 
wurde die Befehlsmenge so ausge- 
wählt, daß die wichtigsten Prozeduren 
nur sehr gering beeinträchtigt sind. 

Das gelieferte System besteht aus 
einem Texteditor, Assembler, Linker 
und natürlich dem eigentlichen Com- 
piler. Wie beschrieben, ist die Fehler- 
kontrolle bei C sehr eingeschränkt. 
Um diese Fehlerquelle einzudämmen, 
enthält diese Version einen sogenann- 
ten Profiler, der die Fehleranalyse und 
-beseitigung wesentlich vereinfacht. 
Der Profiler speichert die Anzahl der 
einzelnen Funktionsaufrufe und gibt 
sie am Ende eines Programmes aus. 
Dadurch erhalten Sie die Möglichkeit, 
zu häufig aufgerufene Routinen in 
ihrer Arbeitsweise zu rationalisieren 
und andererseits bemerken Sie, wel- 
che von Ihnen definierten Funktionen 
nicht aktiviert wurden. 

Hierzu ist anzumerken, daß die 
Dokumentation zu dem Programmpa- 
ket keine Einführung in die Program- 
miersprache darstellt. Sie ist lediglich 
eine Ausführung der Besonderheiten 
des Systems und enthält Hinweise zur 
Steuerung der Programmentwick- 
lung. Erfreulicherweise ist sie kom- 
plett ins Deutsche übersetzt, was bei 
Public Domain-Programmen nicht 
immer der Fall ist. Sollten Sie nähere 
Informationen zu C wie auch zu den 
anderen Programmiersprachen benö- 
tigen, so sehen Sie sich am besten auf 
dem reichhaltigen Literaturmarkt um. 

Die nächste Programmiersprache 
ist eine der umstrittensten. Es handelt 
sich dabei um Forth, das zu Beginn 
der siebziger Jahre von Charles H. 
Moore in den USA entwickelt wurde. 
Ursprünglich wurde es zur Steuerung 
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eines Radioteleskops entwickelt. Auf 
dieser Basis entstand eine sehr 
maschinennahe, schnelle und trotz- 
dem noch relativ einfache Program- 
miersprache, die sich zu einem Stan- 
dard auf dem Gebiet von Wissen- 
schaft und Technik entwickelte. 

Es gibt keine Programmiersprache, 
die so heiß diskutiert wird wie Forth. 
Durch die äußerst maschinennahe 
Programmierung erscheinen die Pro- 
gramme sehr unstrukturiertt und 
unübersichtlich, doch die hohe 
Ablaufgeschwindigkeit kompensiert 
dieses Manko fast gänzlich. 

Im Gegensatz zu vielen anderen 
Programmsystemen enthält Forth 
eine sehr interessante und praktische 
Programmablaufsteuerung. Ein Pro- 
gramm kann sowohl compiliert als 
auch durch den Interpreter ausgeführt 
werden. Die hohe Geschwindigkeit 
von Forth liegt zum großen Teil auch in 
seiner Arithmetikbehandlung begrün- 
det. 

Die Arithmetikroutinen nutzen den 
Stapel genauso wie es die Rechenrou- 
tinen des Mikroprozessors machen. 
Der Wert, der als letzter auf dem Sta- 
pel abgelegt wurde, wird auch als 
erster wieder gelesen. Dieses Prinzip 
nennt man LIFO (Last in - First out). 

Aus diesen den Maschinenspra- 
chenprogrammierern schon bekann- 
ten Datenstrukturen ergibt sich die 
umgekehrt polnische Notation (UPN) 
als Zahlenverarbeitung. Der Aufbau 
dieser Rechenweise ist schnell an 
einem Beispiel erklärt. 


UPN und der Stapel 


Normalerweise denken wir in einer 
Reihe von aufeinanderfolgenden 
Gedanken. Wollen wir zum Beispiel 
zwei Zahlen addieren, so überneh- 
men wir den Rechenterm nacheinan- 
der vom Anfang bis zum Ende in unser 
Gehirn. Dabei gehen wir beim Lesen 
der Formel sequentiell vor, das heißt, 
unser Auge wandert von der ersten 
Zahl bis zum Gleichheitszeichen. Tip- 
pen wir diese Rechenaufgabe in einen 
Taschenrechner, so übergeben wir 
wieder sequentiell die Rechung in den 
Taschenrechner. Wollen wir wissen, 
wieviel»11 + 12«ist, geben wir erst die 
Zahl 11 ein, dann das Plus-Zeichen, 
daraufhin die 12 und schließlich das 
Gleichheitszeichen. In der Anzeige 
erscheint dann die Zahl 23. 

Im Gegensatz dazu legt Forth zuerst 
die Zahlen beziehungsweise Operan- 
den, die es verknüpfen soll, auf dem 
Stapel ab. Trifft Forth dann auf den Ver- 
küpfungsfaktor - in unserem Fall das 
Plus-Zeichen - so holt er die letzten 


beiden Werte vom Stapel, verknüpft 
sie durch Addition und legt das Ergeb- 
nis schließlich wieder auf dem Stapel 
ab. 

Forth wurde von einer Gruppe von 
Programmierern standardisiert und 
die »Forth Interest Group«, kurz FIG 
genannt, wacht über die Einhaltung. 
Trotzdem erfährt Forth immer noch 
Neuerungen und verbesserte Pro- 
grammstrukturen, die es noch aktuel- 
ler machen. 

Die letzte Modifikation geht auf das 
Jahr 1983 zurück, in dem der letzte 
FIG-Standard festgelegt wurde. Her- 
vorzuheben ist auch die erweiterbare 
Befehlsbibliothek von Forth. Das 
bedeutet, daß mit Hilfe der vordefinier- 
ten Prozeduren völlig neue Befehle 
beziehungsweise Funktionen defi- 
niert werden können. Hat man eine 
neue Funktion definiert, so nimmt 
Forth sie in sein sogenanntes Wörter- 
buch auf. Das Wörterbuch enthält alle 
Systemfunktionen und die selbstdefi- 
nierten Kommandos. 

Durch diese Möglichkeit sind Sie in 
der Lage, den Sprachwortschatz und 
die Sprache selbst Ihren speziellen 
Wünschen anzupassen. Man definiert 
für die einzelnen Operationen ent- 
sprechende Worte, die genauso wie 
andere Forth-Wörter aufgerufen wer- 
den können. 

Dabei spart man sich die Program- 
mierung eines Hauptprogramms, das 
die Eingabekommandos interpretiert 
und die entsprechenden Unterpro- 
gramme aufruft. Das Forth-System 
erledigt dieses ganz automatisch und 
bietet gleichzeitig die Möglichkeit, in 
der neuen Kommandosprache zu pro- 
grammieren. Das bedeutet, daß Sie 
sich unter Forth ein völlig neues 
Betriebssystem oder eine neue Pro- 
grammiersprache schreiben können, 
die dann unabhängig benutzt werden 
kann. 

Gespeichert wird ein Programm in 
sogenannten Screens, die aus je 
sechzehn Zeilen mit vierundsechzig 
Buchstaben bestehen. Diese Screens 
werden meistens gepackt gespeichert 
und dann bei Bedarf wieder geladen. 
Dabei erreicht Forth die große 
Geschwindigkeit durch die Compilie- 
rung des Quelltextes in Maschinen- 
sprache. 

Ein großer Nachteil von Forth liegt in 
der groben Unstrukturiertheit, die ein 
übersichtliches Programmieren nicht 
gerade fördert. Wenn sich der Pro- 
grammierer über längere Zeit ein 
Forth-Programm nicht mehr angese- 
hen hat oder die Bearbeitung nach 
einem gewissen Zeitraum wieder fort- 
setzen will, so hat er kaum eine 
Chance, den ursprünglichen Quelltext 
wieder zu verstehen. Dieses Problem 


ergibt sich aus der speziellen Syntax 
der Forth-Programme und der anson- 
sten vorteilhaften Möglichkeit der 
Befehlsdefinition. Dieser Umstand 
erschwert natürlich auch die Fehler- 
suche. 

Für die CPC-Reihe sind zwei Pro- 
gramme interessant, die seit einiger 
Zeit auf dem deutschen Markt ange- 
boten werden. Es handelt sich dabei 
um das CPC-Forth von Holtkötter und 
den Public Domain-Compiler Forth 83. 
CPC-Forth wird entweder in der Kas- 
settenversion oder in der Disketten- 
version unter CP/M angeboten. 


Forth gegen Forth 


Der Befehlsumfang dieses Dialek- 
tes enthält zusätzlich zu den Grundbe- 
fehlen noch einige Kommandos, die 
die Arbeit mit dem System wesentlich 
erleichtern. Für Einsteiger ist CPC- 
Forth eine Alternative zu den anderen 
auf dem Markt befindlichen Forth- 
Programmen. 

Allerdings kommt man um Sekun- 
där-Literatur nicht herum. Ein umfan- 
greiches Handbuch gehört zwar zum 
Lieferumfang, es wird aber seiner Auf- 
gabe als begleitende Dokumentation 
nicht immer gerecht. So sollte zumin- 
dest ein kleines Kapitel für Einsteiger 
enthalten sein, da viele Anwender 
bestimmt ihre ersten Erfahrungen 
sammeln müssen. Doch in dem ge- 
samten Begleitbuch ist nicht ein einzi- 
ges Forth-Programm abgedruckt. 
Auch sind die Befehle der CPC-Forth- 
Version zu knapp erklärt; jeweils ein 
kurzes Beispielprogramm hätte Wun- 
der gewirkt. Trotzdem ist Forth 139 
Mark (auf Kassette nur 92 Mark) wert. 

Im Gegensatz zum CPC-Forth läuft 
Forth-83 nur unter CP/M, das heißt, 
daß es keine Kassettenversion gibt. 
Doch die Leistungsdaten sind wirklich 
hervorragend. Forth-83 besitzt einen 
sehr umfangreichen Befehlssatz, der 
in keinerlei Hinsicht irgendwelche 
Schwächen hat. Hinzu kommen noch 
nützlich Hilfsprogramme wie ein 
Decompiler, ein Assembler und ein 
guter bildschirmorientierter Editor. 

Forth-83 ist besser als viele andere 
kommerzielle Forth-Versionen und 
erleichtert dem Anwender den Ein- 
stieg in diese Programmiersprache 
sehr. Die Multitasking-Fähigkeit und 
viele CPC-spezifische Kommandos 
machen Forth-83 zu einem ohne Ein- 
schränkung zu empfehlenden Pro- 
gramm, das vor allem zu einem Preis 
von 30 Mark in jede Programmsamm- 
lung gehört. 

Doch nun zu einer relativ exotischen 
Programmiersprache, die aber für 
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CPC-Besitzer ein breites und interes- 
santes Aufgabengebiet erschließt. Es 
handelt sich um BCPL. BCPL ist eine 
Art Vorversion von C. BCPL wird oft als 
Sprache bezeichnet, die sich für die 
Systemprogrammierung eignet. 

Diese Beschreibung wird dem Auf- 
bau und der Funktionsweise dieser 
Programmiersprache jedoch nicht 
gerecht, denn BCPL kann mehr. Der 
besondere Vorteil von BCPL liegt in 
der Flexibilität. Programme, die in die- 
ser Sprache geschrieben wurden, 
sind nicht durch Strukturierungsvor- 
schriften beeinflußt, nach denen eine 
Variable nur einen bestimmten Typ 
repräsentieren darf. 

Es gibt bei BCPL keine verschiede- 
nen Variablentypen. Variablen werden 
einfach als Platzhalter für Zahlen ver- 
standen und Operationen mit Zei- 
chenketten werden zum Beispiel 
durch Manipulationen mit den numeri- 
schen Variablen erreicht. Diese Fähig- 
keit unterscheidet BCPL von vielen 
anderen Programmiersprachen, die 
eine exakte Variablendefinition benöti- 
gen. Eine Zeichenkette wird einfach 
durch eine Variable bestimmt, die auf 
den Anfang der Folge im Speicher 
zeigt. Selbst Prozeduren sind nur ein- 
fache Variablen, deren Wert die Lage 
einer Prozedur angibt. 

Diese Flexibilität erlaubt es dem 
Programmierer, jeden gewünschten 
Bereich des Speichers (sogar jedes 
einzelne Bit) anzusprechen und somit 
mit Operationen zu arbeiten, die 
ansonsten nur Maschinensprache- 
programmen zugänglich sind. 

Natürlich hat jeder Komfort seinen 
Preis. Das ist auch in BCPL nicht 
anders. Im Gegensatz zu anderen 
Programmiersprachen, die unsinnige 
oder fehlerhafte Routinen abfangen 
und anzeigen, muß BCPL hier passen. 
Der Programmierer ist in BCPL sehr 
frei und darf auch in sein eigenes Ver- 
derben laufen. 

Ein BCPL-Compiler für die CPCs ist 
von dem britischen Softwarehaus 
Arnor als EPROM-Version mit Diskette 
für 129,90 Mark erhältlich. Auf der Dis- 
kette befinden sich beispielsweise 
zwei verschiedene Demonstrations- 
programme, die zwei völlig unter- 
schiediiche Anwendungsbereiche 
ansprechen. Beide überraschen 
durchihre Geschwindigkeit. Dagibtes 
einerseits einen Disassembler und 
andererseits - man höre und staune - 
ein akzeptables Space Invaders. 
BCPL für die Schneider CPC-Compu- 
ter enthält den vollen BCPL-Standard- 
befehlssatz und ist als interessantes 
exotisches Programm sehr zu emp- 
fehlen. 

Mit der nächsten Programmierspra- 
che nähern wir uns dem absoluten 


Optimum an Geschwindigkeit. Es geht 
um Assembler beziehungsweise 
Maschinensprache. An der Maschi- 
nensprache führt kein Weg vorbei, 
denn jeder Compiler übersetzt ein 
Programm letzten Endes in Maschi- 
nensprache. 

Die Assembler-Routinen geben 
dem Mikroprozessor und den zugehö- 
rigen Bausteinen direkt Kommandos, 
die innerhalb weniger Mikrosekunden 
ausgeführt werden. Die Maschinen- 
spracheroutinen werden sofort ausge- 
führt. 

Der eigentliche Quelltext muß vor- 
her durch einen Editor geschrieben 
und mit Hilfe eines Assemblers über- 
setzt werden. Der Assembler über- 
trägt dann jeden einzelnen Befehl in 
eine für den Mikroprozessor (auf den 
CPCs der Z80) verständliche Byte- 
Folge von höchtens vier Byte. 

Für die CPC-Computer von Schnei- 
der existieren zwei interessante 
Assembler-Programme, die einen 
unterschiedlichen Anwenderkreis an- 
sprechen. 

Das erste System ist das Assem- 
blerpaket aus der Public Domain- 
Software zu 30 Mark. Es enthält einen 
Assembler, einen intelligenten Disas- 
sembler sowie einen Maschinenspra- 
chemonitor, der leicht zu handhaben 
ist. Obwohl das gesamte Paket unter 
CP/M läuft, benutzt der Assembler 
den Register- und Befehlssatz des 
Z80-Mikroprozessors. Neben dem lei- 
stungsfähigen Assembler befinden 
sich auf der Diskette noch ein Linker, 
der die vorhandenen Programm- 
Module zusammenfügt, und ein Moni- 
tor, der sich auch zur Einzelschrittbe- 
arbeitung eines Maschinensprache- 
programms eignet. 


Schlaues Paket 


Der intelligente Disassembler 
besticht auch durch umfangreiche 
Manipulationsmöglichkeiten. Der mit- 
gelieferte Assembler eignet sich gut 
zu einem modularen Aufbau der ein- 
zelnen Programmteile. Er erzeugt aus 
jeweils fehlerfreien Quelltexten einen 
Code, der sich gut in andere Pro- 
grammteile einbinden läßt. 

Diese Modultechnik hat zur Folge, 
daß bei der Assemblierung eines 
Quelltextes nicht alle Routinen über- 
setztwerden müssen und dadurch viel 
Zeit und Fehlerbehandlung erspart 
bleibt. 

Der Disassembler hebt sich deut- 
lich von den allgemein bekannten 
Disassemblern ab, die Maschinen- 
code einfach in Mnemonics zurück- 
wandeln. Der Disassembler dieses 
Pakets erkennt sogar automatisch 


Wortketten von mehr als acht Zeichen 
Länge und markiert alle in einem Pro- 
gramm vorkommenden Sprungmar- 
ken. 

Der Monitor ist schließlich der letzte 
Bestandteil diese Pakets. Er enthält 
einen kompletten Z80-Assembler und 


gleichzeitig eine Breakpoint-Ver- 
waltung von bis zu sechzehn Break- 
points. 


Als ROM-Version für die CPCs unter 
Amsdos empfiehlt sich das Maxam- 
Modul, das zusätzlich zu den norma- 
len Funktionen einen äußerst komfor- 
tablen Editor enthält. Es ist einer der 
schnellsten Assembler, die es für den 
Schneider-CPC gibt. Die EPROM- 
Version kostet 129,90 Mark und die 
Diskettenversion 99,90 Mark. 

Nach den geschwindigkeitsorien- 
tierten Sprachen wenden wir uns nun 
den Dialekten zu, die für ein besonde- 
res Anwendungsgebiet geschaffen 
wurden. Die erste der wichtigen Pro- 
grammierumgebungen ist Cobol 
(Common business oriented lan- 
guage). Cobol ist im Bereich der kauf- 
männischen und Wirtschaftspro- 
gramme die Programmiersprache, die 
man am häufigsten antrifft. Bereits im 
Jahr 1960 erschien die erste Version. 

Da die damals verwendeten Pro- 
grammiersprachen wie Algol oder 
Fortran die in sie gesetzten Erwartun- 
gen nicht mehr erfüllen konnten, 
wurde Cobol entwickelt. Hervorzuhe- 
ben sind die Möglichkeiten zur Doku- 
mentation und die gute Lesbarkeit des 
Programmauelltextes. Ein Cobol-Pro- 
gramm liest sich wie englische Prosa, 
die beschreibt, was getan wird. Aber in 
der guten Dokumentation von Cobol 
liegt auch ein ziemlich großer Nach- 
teil. Da ein Programm aus vier Haupt- 
teilen besteht (Identification Division, 
Environment Division, Data Division 
und Procedure Division), muß der 
Einführungs- und Variablendeklara- 
tionsteil jeweils wiederholt werden. 

Die Nevada-Cobol-Version für den 
CPC entspricht fast völlig dem ANSI- 
Standard von 1974 und enthält für 99 
Mark auch sinnvolle Befehlserweite- 
rungen, die die Programmierung kom- 
fortabler gestalten. 

Der Vater aller Programmierspra- 
chen ist Fortran (formula translator). 
Fortran wurde hauptsächlich für 
Anwendungen im wissenschaftlichen 
und technischen Bereich konzipiert 
und findet dort auch heute noch Ein- 
satz. 

Seit dieser Dialekt erstmals im 
Jahre 1966 ANSI-standardisiert 
wurde, entpuppte er sich schnell als 
beliebte Programmierumgebung. 
Konzeptionell herrscht in Fortran das 
Prinzip des modulartigen Aufbaus vor, 
so daß der heutige Fortran-Program- 
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mierer auf eine große Anzahl von 
Standardroutinen und -utilities 
zurückgreifen kann. 

Die vorliegende, nur unter CP/M 
lauffähige Version namens Nevada- 
Fortran enthält zwar nur eine Unter- 
menge der im ANSI-Standard festge- 
legten Kommandos, jedoch eignet sie 
sich trotzdem für kleine bis mittlere 
Anwendungsbereiche. Kostenpunkt: 
99 Mark. 

Letztendlich zu den Sprachen der 
sogenannten »Künstlichen Intelli- 
genz«, kurz Kl. Für die Schneider- 
CPCs gibt es jeweils zwei interessante 
Versionen, die sich für den Einstieg in 
dieses Gebiet eignen. 

Ein professionelles System für den 
Schneider CPC ist micro-Prolog. Das 
gelieferte Programmpaket enthält 
neben der Programmdiskette ein 
umfangreiches Prolog-Handbuch, 
das alle Besonderheiten von micro- 
Prolog beschreibt. Lobenswerter- 
weise liegt dem Programm aber 
zusätzlich - übrigens als einzigem 
Programm in unserem Test - noch ein 
Handbuch bei, das alle Grundlagen 
von Prolog erklärt und damit den Ein- 
stieg in die Programmierung erleich- 
tert. 

Lisp ist ebenfalls wie Forth auf der 
umgekehrt polnischen Notation auf- 


gebaut. Da Lisp sehr flexibel ist, wird 
es auch heute noch benutzt, obwohl 
seine Grundzüge schon 1959 festge- 
legt wurden. Es ist vorwiegend zur 
Listenverarbeitung geschrieben wor- 
den und ähnelt damit in gewisser 
Weise der wesentlich aktuelleren 
Sprache C. 

Als Public Domain-Software sind 
sogar beide Sprachen zusammen auf 
einer Diskette gespeichert. Es ist aber 
anzumerken, daß diese Versionen der 
beiden Sprachen nur den Grundwort- 
schatz des jeweiligen Programmier- 
systems implizieren und aus diesem 
Grund fast ausschließlich für kleinere 
Programme geeignet sind. 

Da das Public Domain-Programm 
XLisp (30 Mark) aber den Grundwort- 
schatz mit Möglichkeiten zur objekto- 
rientiertten Programmierung ver- 
knüpft, benötigt diese Version minde- 
stens 128 KByte Speicherplatz. Der 
Prolog-Interpreter E-Prolog für eben- 
falls 30 Mark gibt sich hingegen wegen 
seiner Länge von nur 6 KByte auch mit 
weniger Speicherplatz zufrieden. 

Jedes der vorgestellten Programme 
hat sein bestimmtes Einsatzgebiet. 
Darüber sollten Sie sich zuerst im kla- 
ren sein, bevor Sie ein Programm kau- 
fen. Generell bieten die aufgeführten 
Public Domain-Programme eine her- 


vorragende Alternative zu den kom- 
pletten und umfangreichen professio- 
nellen Programmiersystemen. Diese 
Programmsprache-Versionen sind vor 
allem dann wichtig, wenn man sich 
noch nicht entschieden hat, welche 
Sprache sich für die eigenen Zwecke 
eignet. 

In vielerlei Hinsicht ist die Public 
Domain-Software sogar besser als die 
professionell angebotene. Manche 
Dialekte, wie zum Beispiel Forth-83, 
stellen sogar die optimale Program- 
mierumgebung für die spezielle Spra- 
che dar. 

Sollte die Public Domain-Version 
allerdings einen in Anbetracht 
des festgelegten Sprachenstandards 
wesentlich geringeren Befehlsumfang 
besitzen, so ist bei weiterführendem 
Interesse die professionellere Version 
zu empfehlen, die normalerweise auch 
ein umfangreicheres Utility-Paket 
enthält. (Markus Zietlow/gn/ma) 


Bezugsquellen: 

Assembler-Paket, Xlisp, E-Prolog, Small-C, Forth-83: Martin 
Kotulla, Grabbestr. 9, 8500 Nürnberg 90 

Turbo-Modula: Heimsoeth Software, Fraunhoferstr. 13, 8000 
München 5 

Small-C: Markt & Technik Verlag, Hans-Pinsel-Str. 2, 8013 Haar 
CPC-Forth: Holtkötter, Albert-Schweizer-Ring 9, 2000 Ham- 
burg 70 

BCPL, Maxam: Arnor Deutschland, Hans-Henry-Jahn-Weg 21, 
2000 Hamburg 76 

Nevada-Cobol, Nevada-Fortran: Comfood, Rohrbusch 79, 
4400 Münster-Roxel 

Micro-Prolog: Brainware, Gustav-Mayer-Allee 25, 1000 Berlin 65 


Einer kam durch 


ahezu jeder Besitzer eines 
A Schneider-Computers ist 

schon einmal in die Situation 
geraten, von einem Programm eine 
Kopie anfertigen zu müssen. Ist das 
Programm als Datei auf Diskette 
gespeichert, benutzt man in der Regel 
die mit dem Laufwerk gelieferte Utility 
»Filecopy«. Für ganze Disketten- 
inhalte bietet sich dagegen das eben- 
falls mitgelieferte »Disccopy« oder 
»Disckit« an. Beide Hilfsprogramme 
eignen sich für sämtliche unge- 
schützte Software. Was aber tun, 
wenn das Original kopiergeschützt 
ist? Da helfen die Programme aus 
dem Lieferumfang absolut nicht wei- 
ter. Doch warum sollte man überhaupt 
Sicherheitskopien anlegen, zumal 
doch schon der Text auf der Ver- 
packung des teuren Programms vor 
unerlaubtem Kopieren und dessen 
rechtlichen Konsequenzen ausdrück- 
lich warnt? 

Die Frage beantwortet sich wie von 
selbst, wenn die Diskette mit der 
betreffenden Software eines schönen 
Tages verdächtig im Laufwerk zu rat- 
tern beginnt, weil erste Lesefehler auf- 


Professionelle Kopierpro- 
gramme versprechen viel. Doch 
was vermögen sie wirklich zu 
leisten? Wir ließen für Sie die 
drei interessantesten Kandi- 
daten gegeneinander antreten. 
Eins ist fast perfekt. 


treten. Hat die Diskette erst einmal 
Schaden genommen, kommt man 
meist nicht umhin, das Programm 
erneut zu kaufen. Einige wenige 
Software-Hersteller bieten für solche 
Fälle zwar eine Art Umtausch-Service 
an. Umstände wie längere Wartezei- 
ten, während derer man das Pro- 
gramm ja nicht nutzen kann, und 
unverhältnismäßig hohe Kosten für 
die Kopie (inklusive Porto und Kosten- 
beteiligung kommt man leicht auf 30 
Mark oder mehr, während selbst teuer- 
ste Leerdisketten im Laden nebenan 
nicht mehr als 10 bis 12 Mark kosten) 
lassen diesen »Service«jedoch nur als 
schwachen Trost erscheinen. 

Andere Softwarefirmen profitieren 
von diesem zwangsläufigen Interesse 
der Computerbenutzer an Sicher- 


heitskopien, indem sie spezielle 
Kopierprogramme anbieten. So wird 
der Markt in letzter Zeit von unzähli- 
gen derartigen Utilities geradezu 
überschwemmt. So gibt es Kopierpro- 
gramme, die geschützte Kassetten- 
software auf Diskette kopieren (oder 
zumindest vorgeben, es zu vermö- 
gen). Dazu kommen die recht teuren 
Kopiermodule »Disc-Wizard«, »Multi- 
face Two« und »Mirage Imager«, bei 
denen man nur noch auf einen Knopf 
drücken muß, um das Programm im 
Arbeitsspeicher auf Diskette zu spei- 
chern (mehr dazu erfahren Sie aus 
unserem Test auf Seite 11). 

Den größten Marktanteil bestreiten 
Diskettenkopierprogramme. Als nor- 
maler Computerbesitzer steht man 
etwas hilflos vor diesem mannigfalti- 
gen Angebot, da alle diese Produkte 
überragende Fähigkeiten verspre- 
chen, es aber »schwarze Schafe« dar- 
unter gibt, die nur einen verschwin- 
dend geringen Teil geschützter Pro- 
gramme kopieren. 

Um zu verstehen, warum einige Dis- 
kettenkopierprogramme mehr leisten 
als andere, müssen wir uns zunächst 
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Supercopy informiert während des Kopierens stets über 


den Stand der Dinge 


die Frage stellen, wie eine Diskette 
überhaupt zu schützen ist. Umfassen- 
des Wissen darüber erwerben Sie 
durch die Lektüre des Beitrags 
»Schutz - wie lange noch?« auf Seite 
45. Wollen Sie nicht so weit in diese 
Materie einsteigen, bieten wir Ihnen 
hier einen kleinen Abriß der wichtig- 
sten Details zum besseren Verständ- 
nis des Tests. 

Normalerweise besteht jede forma- 
tierte CPC-Diskette aus 40 Spuren. 
Einige Softwarefirmen formatieren die 
Disketten durch einen Trick mit bis zu 
43 (3-Zoll-Laufwerke der ersten Gene- 
ration verarbeiten sogar bis zu 44 Spu- 
ren) Spuren und verstecken ihren 
Kopierschutz auf einer dieser zusätzli- 
chen Spuren. Spuren können Sie sich 
als eine Art magnetische »Fahrbahn« 
vorstellen, an denen sich der Lesekopf 
des Diskettenlaufwerks orientiert. 
Jede Spur wiederum ist in eine Anzahl 
Sektoren unterteilt. Diese Sektoren 
tragen die eigentlichen Informationen, 
die der Computer in seinen Arbeits- 
speicher lädt. Die Zahl der Sektoren 
einer Spur beträgt normalerweise 9, 
manchmal ist sie aber bei kopierge- 
schützten Disketten manipuliert und 
dementsprechend höher oder niedri- 
ger. Jeden Sektor erkennt und unter- 
scheidet der Lesekopf an der soge- 
nannten Sektor-ID (ID=Identifikation). 
Die Sektor-ID enthält Informationen 
über Sektorlänge, Lesekopfnummer, 
Spurnummer und Sektornummer. Sie 
dient dem Computer auch zur Erken- 
nung, ob der Sektor formatiert ist, also 
überhaupt Daten trägt. 

Wie lassen sich also Disketten 
gegen das Kopieren schützen? Zum 
Leidwesen der Kopierwilligen gibt es 
da eine - wenn auch endliche - Viel- 
zahl von Möglichkeiten: 

- Manipulation der Sektoranzahl pro 

Spur 
- Veränderung der Sektorgrößen 


Anzahl der Leseversuche: 


Tritt nach der angegebenen Zahl 


Versuchen noch 
so nimmt das 
kü stlich. 
and übernimmt ihn auf die K 
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s sich 
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Problem anpassen 


- Sektoren mit gelöschter Data- 
Adress-Mark 
- Sektoren mit illegaler Sektor-ID 


(zum Beispiel falsche Spur- bezie- 
hungsweise Kopfnummer oder un- 
realistische Sektorgröße) 

- künstliche Lesefehler (beispiels- 
weise Prüfsummenfehler) 

- unformatierte Spuren 

- gleiche Sektor-IDs 

- physikalische Verschiebung des 
ersten Sektors 


Vielschichtige 
Kopier-Hindernisse 


Diese Liste ist keineswegs vollstän- 
dig, da die Softwarefirmen ständig an 
neuen Schutzmechanismen tüfteln. 
Sie gibt uns jedoch zuverlässige Krite- 
rien in die Hand, um die Fähigkeiten 
unserer Probanden auszuloten und zu 
beurteilen. 

Das Ziel eines Kopierprogramms 
ist, möglichst viele Kopierschutzme- 
chanismen zu »überlisten«, indem es 
sie einfach mitkopiert. So leicht, wie 
sich das im ersten Moment anhören 
mag, gestaltet sich dieses Unterfan- 
gen indes keineswegs. So gelingt es 
diversen Kopierprogrammen beileibe 
nicht, eine zufriedenstellende Zahl 
von Schutzmechanismen außer Kraft 
zu setzen. Sie können sicher den 
Arger eines Anwenders nachfühlen, 
der ein nicht gerade billiges Disketten- 
kopierprogramm erwirbt und dann 
feststellen muß, daß sich damit nur der 
geringste Teil seiner Programmsamm- 
lung kopieren läßt. 

Daher wollen wir für Sie die Spreu 
vom Weizen trennen, indem wir Ihnen 
drei aktuelle und - glaubt man der 
Werbung - leistungsfähige Kopierpro- 
gramme vorstellen und sie in einem 
Vergleichstest antreten lassen. 
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Die Parameter von Mastercopy lassen sich jedem Kopier- 


Die Bezeichnung Clone (deutsch: 
Klon) bedeutet soviel wie »identische 
Kopie« und ist zur Zeit im gentechni- 
schen Bereich in aller Munde. Ein 
Kopierprogramm diesen Namens 
erschien erstmals Ende 1986 auf dem 
Software-Markt. Es stammt vom Ent- 
wickler Ralf Waldeck, der schon seit 
zwei Jahren auf dem CPC 664 pro- 
grammiert, nachdem er seines ZX81 
überdrüssig war. Der Entwickler 
erklärt die Funktionsweise seines Pro- 
gramms, freilich ohne seine Geheim- 
nisse preiszugeben, wie folgt: »Zuerst 
liest Clone eine Sektor-ID, um an der 
Sektornummer zu erkennen, ob die 
Diskette formatiert ist. Ist das nicht der 
Fall, bricht Clone den Kopiervorgang 
sofort ab (wer kopiert schon unforma- 
tierte Disketten?). Alle Sektoren wer- 
den so auf ihre Formatierung geprüft. 
Jeweils acht formatierte Spuren wer- 
den in den Arbeitsspeicher eingele- 
sen. Der Benutzer legt nun eine Dis- 
kette ein, auf die das Programm 
kopiert werden soll und die acht Spu- 
ren werden geschrieben. Dieser Vor- 
gang wiederholt sich einige Male, bis 
die ganze Diskette kopiert ist.« 

Ein Schnellader sorgt für die kurze 
Ladezeit von Clone, nach deren Ende 
man vor der Wahl steht, mit einem 
oder zwei Laufwerken (mit zwei Lauf- 
werken ist die Kopierrichtung immer: 
von A nach B) 40 oder 44 Spuren zu 
kopieren. Beim erfolgreichen Kopie- 
ren entstehen exakte 1:1-Kopien; die 
Kopie unterscheidet sich also in nichts 
vom Original. 

Auch Supercopy arbeitet mit ein 
oder zwei Laufwerken, bietet dafür 
jedoch im Gegensatz zu Clone vier 
wahlfreie Kopierrichtungen (von Lauf- 
werk Anach Laufwerk A, vonBnachB, 
von A nach B und von B nach A). Es 
arbeitet unter Amsdos und kümmert 
sich um 43 Spuren. Da die neueren 
3-Zoll-Laufwerke nur 43 Spuren verar- 
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beiten (manche gar nur 42), genügt 
diese Spanne in der Praxis völlig. 

Zwei Maschinenbau-Studenten, R. 
Günther und Th. Scholl, begannen im 
Mai des Jahres 1986 mit der Entwick- 
lung von Supercopy: »Wir wollten uns 
einmal mit der Programmierung in 
Maschinensprache bekanntmachen. 
Als erstes Projekt bot sich uns ein 
Kopierprogramm an, da es seinerzeit 
nichts Vergleichbares gab«. Nach 
intensiver Lektüre einschlägiger Lite- 
ratur und einem Vierteljahr ange- 
strengter Arbeit war dann Supercopy 
fertig. Tests mit insgesamt 500 Pro- 
grammen fielen zur vollsten Zufrie- 
denheit der Entwickler aus. 

Da man aber nie weiß, was sich die 
Software-Schützer demnächst für 
neue Tricks einfallen lassen, gibt es 
für Supercopy einen sogenannten 
Update-Service. Dieser beinhaltet den 
kostenlosen Umtausch des gekauften 
Supercopy innerhalb kürzester Zeit in 
eine neue, erweiterte Version mit der 
Fähigkeit, den neuen Kopierschutz zu 
verarbeiten. Dazu sendet der Käufer 
die Diskette mit dem »Problemfall« 
und sein Supercopy-Original an den 
Hersteller. 

Mastercopy wurde von dem 
17jährigen Schüler Peter Mandrella 
programmiert. Es entstand aus einer 
Art Notsituation heraus: »Ich wollte 
Sicherheitskopien von einigen meiner 
Spielprogramme anfertigen, mußte 
aber leider feststellen, daß alle verfüg- 
baren Kopierprogramme jämmerlich 
versagten. Also kam mir die Idee, 
selbst ein solches Programm zu 


In letzter Minute 


Wie eine telefonische Nach- 
Recherche bei den Herstellern der 
Programme Supercopy und Ma- 
stercopy ergab, sind mittlerweile 
die im Test erwähnten fehlenden 
Schutzmechanismen von beiden 
Utilities kopierbar. Supercopy soll 
nun auch Mastercopy problemlos 
kopieren und selbst einen verbes- 
serten Kopierschutz erhalten 
haben, den Mastercopy wiederum 
nicht verarbeitet. Am Testergebnis 
ändert dieser Umstand indes 
nichts, da man stets nur vom Status 
Quo ausgehen kann. Da aber 
bekanntlich der Update-Service 
existiert, ändert sich die Situation 
laufend. Nachdem nun also beide 
angeblich sämtliche derzeit 
gebräuchlichen Schutzmechanis- 
men kopieren, liefern sich ihre Pro- 
grammierer einen einsamen 
Wettkampf... 


physikalische Umpositionierung 
von Sektoren 


leiche IDs 


Re x 
sehr unsiche sicher 


* x 
werden auf Zieldiskette 
»entformatiert« 


3 x 
prüft die physikalische 
Lage der Sektoren und, 
ob der erste Sektor auch 
in Höhe des Indexlochs 
steht ; 


Diese Schutzmechanismen verarbeiten die drei Prüflinge 


schreiben und ich machte mich ans 
Werk.« 

Was dabei herauskam, kann sich 
wirklich sehen lassen. Für das Kopie- 
ren einer ganzen Diskettenseite 
braucht man im günstigsten Fall mit 
einem Laufwerk etwa 1'% Minuten, 
zwei Laufwerke erledigen die Aufgabe 
gar in nur knapp einer Minute. Beim 
Bearbeiten der Zieldiskette wird im 
selben Schritt formatiert und geschrie- 
ben. Viele andere Programme erledi- 
gen das in zwei getrennten Schritten. 

Mastercopy verfügt als einziges der 
getesteten Utilities über einen inter- 
nen Timer, der bei gleichen Sektor-IDs 
für den Zugriff auf den richtigen Sektor 
sorgt. Auch mit Mastercopy lassen 
sich komfortablerweise bei Verwen- 
dung zweier Laufwerke Quell- und 
Ziellaufwerk nach Belieben auswäh- 
len. Durch eine wahlweise Geschwin- 
digkeitsoptimierung ist die Kopierge- 
schwindigkeit zu beeinflussen. Das 
erweist sich in der Praxis als überaus 
nützlich, da viele Programme mit die- 
ser höheren Geschwindigkeit zu 
kopieren sind. Alternativ steht eine 
Sicherheitsoptimierung zur Wahl, mit 
der sich die maximale Kopiersicher- 
heit variieren läßt. Mastercopy testet 
dann nicht auf alle Schutzmechanis- 
men. Eine Erhöhung geht selbstver- 
ständlich zu Lasten der Geschwindig- 
keit. Auch andere Parameter wie zum 
Beispiel die Anzahl der Leseversuche 
sowie erste und letzte Spur sind varia- 
bel einzustellen. 

Der Hersteller versichert auf der 
Packung, daß »Mastercopy alle zur 
Zeit auf dem Markt befindlichen Pro- 
gramme (Stand März 1987) kopiert«. 
Und treten irgendwann einmal 
Schwierigkeiten beim Kopieren eines 
neuen Programms auf, existiert für 
Mastercopy ein ähnlicher Update- 
Service wie für Supercopy. Allerdings 


kostet jeder Umtausch in eine neue 
Version jeweils 10 Mark. 

Für den Vergleichstest sind die drei 
Kriterien Kopiersicherheit, Benutzer- 
freundlichkeit und Preis ausschlag- 
gebend. An diese Reihenfolge der 
Gewichtung wollen wir uns halten. 

Um die Kopiersicherheit festzustel- 
len, haben wir keine Mühen gescheut 
und versucht, 100 Programme, ältere 
und neuere Spiel- beziehungsweise 
Anwendersoftware, mit jedem der drei 
Probanden zu kopieren. Das Ergebnis 
rechtfertigte unsere Anstrengungen, 
denn es offenbarte Erstaunliches. 

Clone kopierte zunächst »wie eine 
Eins« und wir fragten uns, ob wir mit 
der Zahl der Testdurchgänge nicht 
doch etwas zu hochgegriffen hatten. 
Doch - kaum waren diese ketzeri- 
schen Gedanken zu Ende gedacht - 
zeigten sich die ersten »Aussetzer«. 
Nach dem hundertsten Haken auf der 
ersten Checkliste stand dann das 
Endergebnis fest: Clone- verarbeitete 
insgesamt 79 Prozent der Programme 
erfolgreich. Zur Ehrenrettung müssen 
wir Clone aber zugestehen, daß es zu 
den etwas gesetzteren Semestern 
zählt und seine »Fehlzündungen«sich 
auf relaiv neue Programme 
beschränken. Dieser Umstand wäre 
nicht so tragisch, böte die Firma Wald- 
eck einen Update-Service wie ihre 
Konkurrenten. 


Dreikampf 


Durch das etwas magere erste Teil- 
ergebnis etwas entmutigt, wandten 
wir uns dem zweiten Durchgang zu. 
Um es kurz zu machen: Supercopy 
schlug sich wacker und kopierte 92 
Prozent der Software. Es scheiterte an 
Programmen diverser Labels, was nur 
zum Teil daran lag, daß es einzelne 


Kopierschutzmechanismen nicht 
überlisten konnte. Vielmehr kopierte 
es manchmal erstaunlicherweise 
auch solche Programme nicht, für 
deren Kopierschutz es eigentlich 
gerüstet ist; es fabrizierte schlicht Feh- 
ler beim Schreiben der Daten. So 
greift Supercopy bei Sektoren mit glei- 
cher ID willkürlich auf einen der Sekto- 
ren zu. Dadurch geraten die Sektoren 
mitunter in eine falsche Reihenfolge. 
Auf diese Weise entspricht der Aufbau 
der Zieldiskette nicht exakt dem des 
Originals und es kommt zu empfindli- 
chen Fehlern. 

Ganz anders liegt der Fall bei 
Mastercopy, an dem sich unsere 
Tester die Zähne ausbissen. Der Hin- 
weis auf der Verpackung, »Master- 
copy kopiert alle zur Zeit auf dem 
Markt befindlichen Programme«, ani- 
mierte uns natürlich, das Programm 
besonders kritisch unter die Lupe zu 
nehmen und diese Aussage gegebe- 
nenfalls zu widerlegen. Nachdem 
bereits alle 100 Testprogramme erfolg- 
reich ihren Weg auf vormals leere Dis- 
ketten gefunden hatten, packte uns 
der Ehrgeiz: Es mußte doch irgend 
etwas zu finden sein, das Mastercopy 
in seine Schranken verweist. Also 
schafften wir weitere Programme 
heran. »110«, »120«, »130« und zuletzt 
»134« vermerkten die Tester als Zahl 
der Testdurchläufe - keine Chance! 
Am Testergebnis änderte sich nicht 
das geringste, denn mehr als 100 Pro- 
zent sind naturgemäß nicht möglich. 
Mastercopy triumphierte also souve- 
rän über all unsere Bestrebungen. Es 
kopiert wirklich alles, was man ins Dis- 
kettenlaufwerk schiebt - solange es 
zumindest annähernd einer Diskette 
ähnelt. Aber Spaß beiseite. Bei allem 
Überschwang der Gefühle muß man 
gestehen, daß es derzeit doch zumin- 
dest ein Programm gibt, das mit der 
jetzigen Mastercopy-Version nicht 
kopierbar ist. So jedenfalls lautet die 
erfreulich ehrliche Auskunft der Firma 
Computer-Corner - Nobody is perfect. 
Doch der Programmierer Peter Man- 
drella setzt derzeit alle Anstrengun- 
gen daran, auch den Kopierschutz für 
eine neue Mastercopy-Version zu ana- 
Iysieren. Diese neue Version ist dann 
von jedem registrierten Käufer beim 
Hersteller im Umtausch zu beziehen. 

Als krönenden Abschluß des Tests 
ließen wir die drei Konkurrenten noch- 
mals gegeneinander antreten; dies- 
mal jedoch im direkten Vergleich. Das 
bedeutet, wir haben mit jedem der 
Kopierprogramme versucht, die 
jeweils anderen zu kopieren. Das 
Ergebnis unterstreicht die bereits 
gesammelten Erkenntnisse: Master- 
copy kopiert sowohl Clone als auch 
Supercopy, Supercopy kopiert nur 


Clone, Clone aber versagt seine Dien- 
ste in beiden Fällen. 

Längst nicht so viel Bedeutung wie 
der Kopiersicherheit kommt demKrite- 
rium Benutzerfreundlichkeit bei unse- 
rer Bewertung zu. Clone schneidet 
auch hier am schlechtesten ab. So 
fragt Clone, wie oben bereits erwähnt, 
zum Beispiel am Anfang, ob es 40 
oder 44 Spuren kopieren soll. Woher 
soll aber der Benutzer wissen, ob die 
Originaldiskette nun gerade 40 oder 
44 Spuren trägt? Diese Arbeit sollte ja 
wohl eigentlich Aufgabe des Kopier- 
programms sein. Als zweiten und gra- 
vierendsten negativen Punkt werteten 
wir Clones Unvermögen, die Kopier- 
richtung bei der Verwendung von zwei 
Laufwerken frei zu wählen. Gerade 
wenn man ein Zweitlaufwerk mit ande- 
rem Diskettenformat (31a oder 57a 
Zoll) betreibt, ist eine solche Auswahl 
wichtig, um Konvertierungen zwi- 
schen diesen verschiedenen Forma- 
ten zu erlauben. 

Supercopy stellt von der Bediener- 
freundlichkeit quasi das Nonplusultra 
dar, denn die Eingaben des Benutzers 
beschränken sich auf das äußerste 
erreichbare Minimum. Man muß es 
wirklich nur noch starten und die 
Kopierrichtung wählen. 

Ahnlich verhält es sich mit Master- 
copy. Es ist von vornherein auf 42 Spu- 
ren eingestellt. Falls einmal ein 
Kopierversuch nicht die gewünschten 
Erfolge zeigt, kann der Benutzer einen 
erneuten Versuch mit einer anderen 
Spuranzahl starten. Es erlaubt die 
freie Wahl der Kopierrichtung und ver- 
fügt außerdem über eine wahlweise 
Geschwindigkeits- oder Sicherheits- 
optimierung. Diese zusätzliche Aus- 
stattung bedingt natürlich auch 
zusätzliche Handgriffe. 

Die Anleitung ist bei Mastercopy 
und Clone ins Programm integriert, 
während sie der Supercopy-Käufer 
auf einem Beipackzettel findet. 


Doppelbödige Moral 


Clone und Mastercopy lassen sich 
nicht mit sich selbst kopieren, so daß 
der Benutzer auf Sicherheitskopien 
dieser Programme verzichten muß. Es 
bleibt jedem Leser überlassen, sich 
seine eigenen Gedanken ob solcher 
Doppelmoral zu machen. Als einziges 
Programm im Testfeld gesteht Super- 
copy seinem Besitzer genau eine 
Sicherheitskopie von sich selbst zu. 
Beim Versuch, eine zweite Kopie 
anzulegen, macht das Programm 


freundlich darauf aufmerksam, daß 
eine Kopie ja wohl genüge. Dieser 
Weg ist sicher eine sehr gute Lösung. 


[Cione ___T Piezierung 
Kopiersicherheit 
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Einerseits hat nämlich der Benutzer 
eine kostenlose Sicherheitskopie von 
Supercopy, andererseits lassen sich 
so keine Raubkopien anfertigen. Eine 
Sicherheitskopie von Clone ist gegen 
eine Gebühr von 20 Mark beim Her- 
steller erhältlich. Das schlägt sich 
natürlich negativ auf den effektiven 
Endpreis nieder. 

Clone ist mit seinem Preis von etwa 
60 Mark zwar in der Anschaffung billi- 
ger als die beiden anderen Pro- 
gramme, die zirka 70 (Mastercopy) 
beziehungsweise 80 Mark (Super- 
copy) kosten, aber angesichts der 
Kopierleistungen sollte man ruhig 
mehr auf den Ladentisch legen, um 
ein zuverlässigeres Programm zu 
erwerben. Vom idealen Kopierpro- 
gramm sind wir leider immer noch ein 
Stück entfernt. Es müßte eine Kombi- 
nation der positiven Eigenschaften 
bieten, also absolut alles kopieren und 
dabei, ohne Dazutun des Benutzers, 
vollautomatisch vorgehen. Wollen wir 
gemeinsam hoffen, daß wir Ihnen bald 
ein solches Programm an dieser Stelle 
vorstellen können. Vielleicht ent- 
wickelt sich ja eins der beiden Top- 
Programme durch die ständigen Ver- 
besserungen dorthin. 

Zu einem Test mit derartigem Inhalt 
gehört als Abschluß selbstverständ- 
lich der Hinweis, daß gemäß $ 53/IV 
des Urheberschutzgesetzes (UrhG) 
»die Vervielfältigung eines Pro- 
gramms für die Datenverarbeitung 
oder wesentliche Teile davon nur mit 
Einwilligung des Berechtigten zuläs- 
sig« ist. Aber eigentlich nutzen Sie ja 
ohnehin keins der Programme, um 
Raubkopien anzufertigen - oder? 

(Carsten Bormeier/ja) 
Clone: Waldeck Software, Tulpenstraße 30, 2870 Delmenhorst 
Mastercopy: Computer Corner, Taubentränke 14, 5470 Ander- 
nach 


Supercopy: Weeske Software, Wiflingshauser Straße 83, 7300 
Esslingen am Neckar 
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Hatten Sie nicht auch schon 
mal das Problem, Daten zwi- 
schen dem Schneider CPC und 
einem anderen Computer- 
system auszutauschen? Die 
Lösung sind Programme wie 
Para 3.0 und Diskpara. In die- 
sem Vergleichstest zeigen wir 
Ihnen, was die beiden leisten. 


er sich intensiv mit CP/M 
beschäftigt, weiß, daß es 
eine Vielzahl unterschied- 


licher Aufzeichnungsformate für Dis- 
ketten gibt. Der Datenaustausch wird 
dadurch natürlich erschwert und man 
muß sich schon einige Tricks einfallen 
lassen, um überhaupt zu einem Erfolg 
zu kommen. Im, CP/M befinden sich 
zum Beispiel Übersetzungstabellen 
wie der Diskparameter-Block (DPB), 
in dem alle Details (Parameter) des 
gewünschten Formats eingetragen 
sind. Will man nun das Aufzeich- 
nungsformat ändern, dann braucht 
man ein Programm, das die Eintra- 
gungen im DPB ändert. Programme, 
die genau dies erlauben, sind Para 3.0 
und Diskpara. 

Von diesen beiden Programmen ist 
Para 3.0 neu auf dem Markt. Es ist 
schon eine Weile her, daß die erste 
Version dieses Vortex-Programms 
erschien. Jene erste Version wies Kin- 
derkrankheiten auf, die offenbar 
schwer behebbar waren. Einer deram 
häufigsten bemängelten Fehler war, 
daß Para die Zusammenarbeit mit 
dem VDOS des X-Moduls verwei- 
gerte. Doch diese Krankheiten sind 
nun behoben. Und bei dieser Gele- 


Doublestep 
Anzahl,der Sektoren : 
Phys, Sektorgrossse : 
Erster Sektor 

Letzter Sektor 


Hardware Skeu 


Norderseite 


$oll die Rueckseite auch analysiert werden ? 
Bei einer einseitigen Diskette wird ein Kaltstart noetig 


Diskpara zeigt bei der Analyse nur wenig Details 


genheit erfuhr das Programm auch 
gleich eine erhebliche Erweiterung 
seiner Leistungsfähigkeit. 

Im Lieferumfang enthalten ist ein 
sehr umfangreiches Anleitungsbuch, 
das die Menüführung anhand von 
Bildschirmausdrucken sehr anschau- 
lich erklärt. Der Umfang der Funktio- 
nen von Para 3.0 erfordert eine Auftei- 
lung der Benutzerführung auf meh- 
rere Bildschirme. Das geht allerdings 
auf Kosten der Übersichtlichkeit. Nach 
einer Eingewöhnungszeit ist das aber 
rasch vergessen. Eine wichtige Funk- 
tion ist die, bis zu vier virtuelle (logi- 
sche) Laufwerke zu simulieren sowie 
deren Parameter bis zum nächsten 
Kaltstart ins BIOS resistent einzubin- 
den. Im Klartext heißt das: Sogar nach 
Verlassen von Para 3.0 stehen meh- 
rere Formate zur Verfügung, die man 
wie auf echten Laufwerken anspricht. 
Die wählbaren zusätzlichen Lauf- 
werke und die Kurzbezeichnung der 
dort erreichbaren Formate ist bei 
jedem Warmstart als BIOS-Meldung 
am oberen Bildschirmrand eingeblen- 
det. Getrübt wird die Freude allerdings 
durch einen um 10 KByte verkleiner- 
ten Arbeitsspeicher (TPA), was beim 
Betrieb ohne Vortex-Speichererweite- 
rung den Ablauf einiger Programme 
nicht mehr zuläßt. Dazu gehören vor 
allem Turbo-Pascal-Programme, da 
der Compiler sehr verschwenderisch 
mit dem Speicherplatz der TPA 
umgeht, sowie einige Utilities, die das 
BIOS aufrufen und sich aufgrund der 
verschobenen Adressen nicht mehr 
zurechtfinden. Para 3.0 unterstützt bis 
jetzt nur CP/M 2.2. Eine runde Sache 
wird Para 3.0 erst in der fortgeschritte- 
nen Anwendung, am besten mit der 


Para 3.0, Diskpara und 


Vortex-Doppelstation. Dann kann man 
nämlich in Laufwerk A die Para 
3.0-Diskette und in Laufwerk B die 
Fremd-Diskette legen. 

Das von Para 3.0 aus zu startende 
Analyse-Programm erlaubt eine 
umfassende Untersuchung der Disk- 
Parameter, sowie der Spur- und 
Sektorübersetzung, die tabellarisch 
übersichtlich dargestellt werden. 
Speichert man einige Einstellungen, 
so wird beim Neustart von Para 3.0 
automatisch die Voreinstellung sicht- 
bar und sie läßt sich direkt mit dem 
RAM-BIOS-Aufruf einbinden. Dann 
kehrt Para 3.0 sofort zu CP/M zurück, 
die simulierten logischen Laufwerke 
bleiben erhalten. 

Etwas anders verhält es sich mit 
Diskpara von Strauß Elektronik. Da 
Diskpara direkt auf Disk-Controller- 
Routinen zugreift, ist es nur unter dem 
Original-CP/M 2.2 lauffähig. Jeder 
Eingriff in die Zeropage oder die TPA 
verändert das CP/M so, daß die Adres- 
sen verschoben sind. Dies trifft also 
auf CP/M 2.2 zu, sobald unter der 
Vortex- oder dk’tronics-Speicher- 
erweiterung eine 62-KByte-TPA einge- 
richtet wird. Der Funktion von Disk- 
para tut das keinen Abbruch, lediglich 
die von Vortex verschobenen Adres- 
sen zur Einbindung der Speicher- 
erweiterung sind nicht ansprechbar, 
also keine TPA-Vergrößerung unter 
Diskpara. Nach dem Gebrauch von 
Diskpara kann man ja wieder das 
große CP/M booten. Das eingestellte 
Format auf dem B-Laufwerk ist zwar 
anschließend verschwunden, aber die 
Daten von den unterschiedlichsten 
Formaten lassen sich problemlos auf 
das A-Laufwerk übertragen. 


PAaRAh 3.08 61986 by P. Hoepfner & D. Cumkel 
Automatische Analyse E 
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der Rest der CP/M-Welt 


Alle Standard-Programme unter 
CP/M 2.2, die nur mit den Standard- 
BDOS-Routinen ohne BIOS-Aufrufe 
arbeiten, laufen uneingeschränkt. 
Dazu gehören die meisten Public- 
Domain-Utilities (zum Beispiel 
Nsweep, Du) und auch professionelle 
Programme wie Wordstar. Endlich hat 
man für Texte genügend Platz auf der 
Diskette, ohne daß die häufige Mel- 
dung »Disc full« erscheint. In der neue- 
sten Diskpara-Version kann man auch 
das MS-DOS-Format direkt einstellen. 

Die CP/M-2.2-Version für den CPC 
664 läuft auch auf dem CPC 6128. Für 
diesen bietet sich eine ideale Kombi- 
nation an: Diskpara und die dk’tronics 
Silicon-Disk. (Eine zusätzliche Spei- 
chererweiterung, die man genau wie 
ein Diskettenlaufwerk anspricht.) 
CP/M Plus kennt einen erweiterten 
BIOS-Teil, das sogenannte XBIOS, in 
dem die Diskparameter einstellbar 
sind. Da die Silicon-Disk sich streng 
am Amstrad-CP/M Plus orientiert, gibt 
es keine Konflikte mit Diskpara. Mit 
der Silicon-Disk als Zwischenspeicher 
lassen sich jederzeit die Formate 
wechseln und so zwischen beliebigen 
CP/M-Disketten Daten austauschen. 
Auch nach einem Reset (<CTRL+ 
SHIFT+ESC>) und Warmstart im 
CP/M 2.2 ist der Zugriff auf die unver- 
änderten Dateien der Silicon-Disk 
gewährleistet. Ist Diskpara unter 
CP/M-Plus aktiv, läßt sich auch ohne 
Originaldiskette ständig das Format 
im Laufwerk B ändern. Unter der 
CP/M-2.2-Version gilt das zwar grund- 
sätzlich auch, man darf lediglich nicht 
vergessen, die Disketten mit <Ctrl- 
C> einzuloggen. 

Bei der CP/M-Plus-Version sind alle 
Programme uneingeschränkt nutzbar, 
auch dBase Il und Multiplan beispiels- 
weise. 

Die Anwendung von Diskpara ist 
denkbar einfach und so gut menü- 
gesteuert, daß man selbst ohne Anlei- 
tung durch das Programm findet. Hilfe 
erhält vor allem der weniger Geübte 
bei der Eingabe von Disketten- 
Parametern, indem zu jedem Ande- 
rungspunkt in einem Window am 
unteren Bildrand Erläuterungen über 
sinnvolle Bereiche gegeben werden. 
Wer das Programm kennt und die 
Nummer des gewünschten Formats 
weiß, kann mit dem Aufruf »Diskpara 
27« zum Beispiel das Vortex-Format 
einloggen. Dabei werden nur die not- 
wendigen Teile des Programms durch- 
laufen und die Einstellzeit verkürzt 
sich auf ein Minimum. 


APP 
FOMPUTER 


Der günstige Preis und die volle 
CP/M-Kompatibilitätt machen Disk- 
para zu einem nützlichen Werkzeug 
für den Austausch mit anderen Syste- 
men oder zur besseren Nutzung des 
Diskettenplatzes. Diskpara kann man 
übrigens auch auf 40-Spur-Laufwer- 
ken einsetzen, solange man als Spur- 
Anzahl entsprechende Werte wählt. 
Empfehlenswert ist das Paket-Ange- 
bot für etwa 98 Mark, bestehend aus 
Diskpara und MS-Copy; einem Kopier- 
Programm, das den Daten-Transfer 
zwischen CP/M und MS-DOS Dateien 
übernimmt. Das Format von MS-Copy 
ist so gewählt, daß es von einem 
40-Spur-Laufwerk sofort ohne Disk- 
para lesen kann. MS-Copy ist auch 
einzeln zu beziehen, dann allerdings 
um einiges teurer. 

Fazit: Diskpara hat zwar weniger 
Funktionen als Para 3.0, ist aber rasch 
erlernbar und leicht zu bedienen. Das 
Standard-CP/M wird von Diskpara un- 
terstützt. Vor allem für CPC-6128-Be- 


Lieferumfang: 
Handbuch, 
51/4-Zoll-Diskette 


mindestens ein Vortex-Lau 
(auch X-Laufwerke) 


Zusätze: 


Copy-Dos (zus. 198 Mark) 
(MS-DOS-Dateitransfer) _ 


Vorteile: 
- erlaubt eigene Formatbibliotheken 
- BIOS-Manipulationen 
- komfortable Analyse 


- eingebautes Kopier-Programm 

- einzelnes Format ohne RAMBIOS- 
Aufruf nicht einstellbar 

- Kopierschutz sieht zwei 

Sicherheitskopien vor (Auto-Backup) 


Nachteile: - 


- kein CP/M-Neustart mit X-Modul ohne 
Reduktion der TPA 


Programmname: 
Para 3.0 Diskpara 
Hersteller: 
Vortex GmbH Frank Strauß Elektronik Sr \ 


CPC 464 mit CP/M 2.2 oder CPC 6128 


Preis: 
149 Mark 


- residente Einbindung logischer Laufwerke 


- bei RAM-BIOS-Aufruf .- Kopierschutz erfordert stets die 
ist TPA 10 KBytekener | Original-Diskette bei Kaltstart 

- nicht kompatibel zum Standard-CP/M 2.2 | - Manipulationen der TPA (Vortex- 

- einzelnes Format ohne RAM-BIOS-Aufruf| RAM-Disk) und großes CP/M bisher 
nicht einstellbar e: | nicht unterstützt (folgt später) 


sitzer mit (oder ohne) dk’tronics 
Silicon-Disc ein unabdingbares Muß. 
Vorausgesetzt wird jedoch ein Zweit- 
laufwerk mit 51%4- oder 3!%-Zoll- 
Disketten, am besten mit 80 Spuren. 
Das 62-KByte-CP/M-2.2 ist bis jetzt 
noch nicht gleichzeitig verwendbar, es 
wird aber daran gearbeitet. Keinerlei 
Einschränkungen gibt es dagegen 
unter CP/M-Plus. 

Für VDOS-Anwender ist dagegen 
Para 3.0 ein Volltreffer. Es unterstützt 
nicht nur die Vortex-Hardware (VDOS- 
Controller und Vortex-Laufwerk), son- 
dern sie sind Voraussetzung für die 
Anwendung von Para 3.0. Trotz des 
höheren Preises ist Para 3.0 ein 
umfangreiches Dienstprogramm, das 
vor allem dem fortgeschrittenen 
Anwender den Daten-Austausch mit 
fast beliebigen anderen Computersy- 
stemen erleichtert, sowie eine genaue 
und automatische Analyse unbekann- 
ter Formate bietet. 

(Helmut Jungkunz/kl) 


Handbuch 
51/4- oder 3-Zoll-Diskette 


mit CP/M (auch Plus) 
ein Zweitlaufwerk (80-Spur) i 


MS-Copy (zus. 99 Mark) 
(MS-DOS-Dateitransfer) 


- 120 CP/M-Formate einstellbar 
- CP/M 2.2 mit kleiner TPA genügt 

- voll kompatibel 

- CP/M Plus-kompatibel 

- dk’tronics Silicon-Disc nutzbar 

- gute, eindeutige Menüführung 

- sehr rasch einzelnes Format einstellbar 
- gutes Preis-Leistungs-Verhältnis 


I 
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Sprachen auf einen Blick 


Wer sich mit sprachlichen Alter- 
nativen zum eingebauten Loco- 
motive Basic seines CPC aus- 
einandersetzen will, sieht sich 
einem schier unüberschauba- 
ren Angebot gegenüber. Mit 
unserer großen Marktübersicht 
wollen wir helfen, Licht ins Dun- 
kel zu bringen. 


mmer wieder hört man als Compu- 
| was die Program- 

miersprache X für wunderbare 
Leistungen verspricht, welche Ge- 
schwindigkeitsvorteile der Dialekt Y 
bietet oder daß gar der Compiler Z die 
Sprache der Zukunft sei. Wer kann sie 
nicht nachfühlen, diese Unsicherheit, 
welche Sprache nun für den heimi- 
schen Computer erhältlich ist, welche 
konkreten Compiler beziehungsweise 


Programmname 
en 


erenshiaiei.iite! 


Interpreter es bereits gibt und nicht 
zuletzt, wo sie zu bekommen sind. 
Gerade für die CPC-Serie ist die Viel- 
falt der Produkte am Markt für den ein- 
zelnen nicht zu überblicken. Hier fin- 
den Sie nun eine Übersicht der wich- 
tigsten Programmiersprachen und 
erfahren, wo Sie nähere Informatio- 
nen darüber erhalten. Damit steht auf- 
regenden neuen Perspektiven nichts 
mehr im Weg. (Kl/ja) 


ke RUSS, auf Diskette 69,75 Mark 


as pe ee te ee ee 


ee 
Bee 


Kuss EI EI EHER 


as 
Bee et 
[AssembierDisassembier | x | = [= | = | 


Assembler-Kurs 
CPC-Macro 
Deep Thought 


Kassemble 12 


Laser Genius 


Philosoft Assembler 


Profimat CPC 


Pyradev Assembler , 


Super Pac 80 
Z-80 Assembler Paket 


BARRERNRRIRARRTTZE 


GEL Br auf Diskette 79,95 Mark 
mit Makroassembler u. Linker 


Matrizenverarbeitung; 
Fullscreen-Editor 


mit Fließkomma-Arithmetik; 
Grafik- u. Soundunterstützung 
lieferbar ab August 1987 


auf Diskette 109,85 Mark 


auf Diskette 145,- Mark 


kompletter Assembler einge- 
baut 

auf Diskette 139,- Mark; 
Treiber für CP/M-Anpassung 
Two Pass Assembler 
Bildschirmeditor 
Assembler/Disassembler 


auf Diskette 89,- Mark 
Maschinensprache-Monitor 
mit Assembler, Disassembler; 
unterstützt in d. Disketten- 
version Bankumschaltung; 
neben Amsdos-Version wird 
eine CP/M-Version mitgel. 


Linkfunktjon; Compilieren von 
Diskette aus mehreren 
Sourcecode-Dateien bis zu 12 
KByte Objektcode; sehr 
schnell (150 KByte ca. 3 min) 


auf Diskette 79,85 Mark; 
Makrosprache Phoenix; 
Analyzer; Debugger 


auf Diskette 89,90 Mark; auf 
ROM 128,85 Mark; Assembler, 
Disassembler 


Makroassembler mit Linker 
Wordstar-kompatibler Editor 


Assembler m. Monitor; Einzel- 
schrittmodus; Verketten von 
langen Quelltexten möglich 


auf Diskette 79,90 Mark; 
läuft auch unter CP/M; mit 
Editor, Monitor, Diskmonitor; 
Trace-Funktion 


komplettes Z80-Entwicklungs- 
system; Singlestep; auf Disk. 
ca. 140,- Mark 


Public Domain; Linker, 
intelligenter Disassembler, 
Monitor 


er a 
| diversespachen | | | | 
Arnor-C 
dk’tronics 


Bea en 


C++ 


C-Package 


CPC-Forth 


Digital Research 
al MT+ 


Hisoft C-Compiler 
Hisoft Pascal 


ee 
BERNER DE 
REES TE EN 


Morrison Pascal 
Nevada Cobol 
Nevada Fortran ; 


Oxford Pascal 


Toolworks C-80 
Turbo Pascal 3.0 
30 

Turbo Pascal 3.0 
mit Grafik-Toolbox 


Weitere Informationen erhalten Sie bei: 

AR: Arnor Deutschland, H.-H.-Jahn-Weg 21, 2000 Hamburg 76 
BG: BBG-Software, Beimoorweg 2-4, 2070 Ahrensburg 

BS: BSP Thomas Krug, Weißenburgstr. 49, 8400 Regensburg 
CO: Comalvertrieb D. Belz, 2270 Utersum 

DA: data berger, Im Lichtenfelde 76, 4760 Paderborn 

DB: Data Becker, Merowingerstr. 30, 4000 Düsseldorf 1 

DC: Deltacom, Postfach 52019, 4600 Dortmund 50 


5 
3 


ARREIBE 


DS: Denisoft, Postfach 106421, 2800 Bremen 

FS: Forthsysteme A. Flesch, Postfach 1103, 7814 Breisach 
GO: U. Goedan, K-Furterstr. 46, 7408 Kusterdinger 

HO: Holtkötter, Hallerplatz 15, 2000 Hamburg 13 

HR: Herbert Rose EDV, Bogenstr. 32, 4390 Gladbeck 

HS: Heimsoeth, Fraunhoferstr. 13, 8000 München 5 

MK: Martin Kotulla, Grabbestr. 9, 8500 Nürnberg 90 

MT: Markt&Technik, Hans-Pinsel-Str. 2, 8013 Haar 


639, Version mit Sourcecode der 
r C-Library kostet 1122,- Mark 
128,85 Lieferung mit ROM; läuft 


auch unter CP/M und Ams- 
dos; Texteditor und Spiel- 
code 


Source: 
konfigurierbar mit vielen 
Assemblern 


läuft nicht mit Vortex- 
Speichererweiterung; 
erweitertes GSX 


Fließkomma-Arithmetik; 16- 
und 32-Bit-Arithmetik 
auf ROM 248,- Mark 


auf Diskette 139,- Mark; FIG- 
Standard, Screeneditor, 
UNDO-Funktion, RAM-Disk 


auf Diskette 178,- Mark; mit 
Trace-Funktion 


Public Domain; es ist nicht 
identisch mit Forth-83 von FS; 
Bildschirmeditor, Inline- 
assembler, Decompiler 


läuft auch unter Amsdos 


auf Diskette 215,- Mark 


Public Domain; Editor, Linker 
und 8080-Assembler 


Public Domain; XLISP- und 
E-PROLOG-Interpreter 


an Interlisp angelehnt 


Laufzeitüberwachung; Inline- 
assembler 


Mischung aus Turbo-Pascal 
und Basic; Standalone- 
Programme sehr kurz 


läuft nicht mit Vortex- 
Speichererweiterung; 
erweitertes GSX 


T mit Small-Mac-Assembler, 
; Small-Tolls in C-Sourcecode 


Public Domain; es ist nicht 
identisch mit Small-C von MT; 
'Fließkomma-Arithmetik, 
Inlineassembler 


Erweiterungsmodul für 
Fließkomma-Arithmetik: 
104 Mark 


PH: Philosoft, Pariser Platz , 8000 München 80 

PS: Profisoft, Sutthauser Str. 50/52, 4500 Osnabrück 

RU: Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
SD: Schneider Data, Rindermarkt 8, 8050 Freising 

SR: Schneider Rundfunkwerke, Postfach 120, 8939 Türkheim 
ST: Star Division, Zum Elfenbruch 1, 2120 Lünburg 

SY: Sybex-Verlag, Vogelsanger Weg 111, 4000 Düsseldorf 30 
TC: Tesco, Postfach 10, 8714 Wiesenheid 


Noch mehr Eingabekomfort 


Hier wieder der Checksummer für den Schneider 
CPC! »Explora 2.0« macht die Eingabe von Pro- 
grammen ganz einfach. 


wissen, was »Explora« ist: Wenn Sie dieses Pro- 
gramm gestartet und wieder gelöscht haben, über- 
prüft der Computer automatisch Ihre Eingaben auf Richtig- 
keit. Sobald Sie die Eingabe einer Programmzeile 
abschließen, erscheint eine vierstellige Hexadezimalzahl 
in eckigen Klammern auf dem Bildschirm. Das im Heft 
abgedruckte Listing enthält ebenfalls solche Zahlen. Stim- 
men die Prüfsummen auf dem Bildschirm und im Heft über- 
ein, haben Sie die Zeile korrekt abgetippt. Gibt es Unter- 
schiede zwischen den Werten, sollten Sie auf Fehlersuche 
gehen und die Zeile korrigieren. Das alles konnte »Explora 
1.0« auch schon. Der Vorteil der neuen Version besteht 
darin, daß Sie jetzt größere Freiheit bei der Eingabe der Zei- 
len haben. So akzeptiert unser Prüfsummenprogramm die 
Basic-Schlüsselworte in Klein-oder Großbuchstaben (auch 
gemischt). »PRINT« läßt sich mit dem Fragezeichen abkür- 
zen. »Explora 2.0« läßt zum Beispiel für die Zeile »100 
PRINT« folgende Eingaben zu: 
100 PRINT 
100 print 
100 ? 
100 PrInT 

Die Zeilen müssen also nicht mehr schon beim Eintippen 
so aussehen wie im Heft, sondern erst beim Auflisten. 
Außerdem werden Prüfsummen nur noch für Programm- 
zeilen ausgegeben, nicht mehr - wie früher - auch bei 
Direktbefehlen. Vor der Zeilennummer stehende Leerzei- 
chen, Line-Feeds und Tabulatorzeichen überliest Explora 
jetzt selbsttätig. Leerzeichen innerhalb der Zeile wertet es 
aber weiterhin. Sie verändern also die Prüfsumme. Explora 
erlaubt auch die Verwendung des EDIT-Befehls. AUTO ist 
jetzt ohne Einschränkungen zu benutzen - allerdings nur 
beim CPC 664 und CPC 6128. Explora 1.0 liegt im Speicher 
fest zwischen den Adressen A000 und A086 hex. Die neue 
Version verschiebt der Basic-Lader automatisch im Spei- 
cher direkt unter HIMEM. So ist SYMBOL AFTER einwand- 
frei funktionsfähig. Eine kleine Einschränkung gibt es aber 
doch: Löschen Sie keinesfalls Zeilen durch Eingabe der 
Zeilennummer und anschließendes Drücken der ENTER- 
Taste! Die Zeile wird nämlich gar nicht wirklich gelöscht, 
sondern erscheint als Duplikat der folgenden Zeile. Ver- 
wenden Sie statt dessen DELETE. Statt »20« schreiben Sie 
»DELETE 20«. Das Wichtigste nicht zu vergessen: Explora 
2.0 ist aufwärtskompatibel zur Version 1.0. Das heißt, daß 
Sie sowohl mit Explora 2.0 frühere Listings abtippen kön- 
nen, als auch mit Explora 1.0 alle zukünftigen. Die Prüfsum- 
men sind identisch. 

Aber bei den gedruckten Listings hat sich einiges geän- 
dert. Die Neuerungen betreffen die Darstellung von Leer- 
und Sonderzeichen. Statt ”[5 SPACE]” steht jetzt im 
Listing ”<5> ” für fünf Leerzeichen. Um dies eindeutig 
vom tatsächlichen Programmcode zu unterscheiden, 
erscheint der Text unterstrichen. Die Steuerzeichen hießen 
bisher beispielsweise »[CTRL Al«. Jetzt steht hier die über- 
sichtlichere Form A. Finden Sie im Listing also einen unter- 
strichenen Buchstaben ohne Klammern, müssen Sie 
gleichzeitig die CTRL-Taste drücken. Grafikzeichen stehen 
zukünftig in Klammern und sind als ASCII-Wert mit voran- 
gehendem »G« für »Grafikzeichen« dargestellt. Das Zei- 


ya: einmal Informationen für alle, die noch nicht 


chen 223 hat dann im Listing die Form <G223>. Die Zei- 
chen können nicht von der Tastatur aus direkt eingegeben 
werden. Simpler Trick: Ausgabe des Zeichens mit »PRINT 
CHR$(223)« und Übernahme mit dem Copy-Cursor. 
Sämtliche Listings sind im ASCIlI-Zeichensatz gedruckt. 
Deutsche Sonderzeichen erscheinen daher im Druck als 
Klammern und andere amerikanische Zeichen. Verwenden 
Sie ruhig anstelle dieser Zeichen die entsprechenden deut- 
schen. (Martin Kotuila/ja) 


Ka 2 2 re [DFCC]I 


CFADA] 
[761E] 
[DCDE] 
[C3D4] 
LE1BA] 
L39EO] 
[8864] 
[948C) 
[2092] 


EXFLORA V2.0 


KERRRRRRRRRRRRRRRNR NN RN NN 


DEF FNlsb (x)=255 AND UNT (x) 
DEF FNmsb (x)=255 AND INT (x/256) 
SYMBOL AFTER 256:MEMORY HIMEM-161 
start=HIMEM+1:5SYMBOL AFTER 240 
FOR i=&A000 TO %AOFD:READ as: sum=sum 
+VAL("&"+a$) NEXT i 
IF sum“ >19814 THEN PRINT "DATA-Fehle 
riU"sEND 
RESTORE:FOR i=start TO start+%9D:REA 
D af 
FOKE i1,VAL("&"+a$):NEXT i 
FOR i=1 TO S:READ a:a=satstart 
wert=FEEK (a) +FEEK (at1) #256-40960+sta 
rt [2776] 
FOKE a,FNIlsb (wert) :FOKE ati1,FNmsb (we 
rt):NEXT i 
IF FEEK(6)=%80 THEN ed=%BDSA:POKE &%B 
F20,%&A4 
IF FEEK(6)=%7B THEN ed=&%BDSB:POKE &%B 
F20,%BA:RESTORE 470 
IF PEEK(6)=%91 THEN ed=%ED5E:POKE &%B 
F20,%8BA:RESTORE 490 
FOKE %EF21,&AC:POKE %BF22,PEEK (ed) 
FOEE %BF23,FEEK(ed+1):POKE %BF24,PEE 
K(ed+t2) 
DO FOKE ed,%C35:POKE ed+1,FNIsb (start):F 
OKE ed+2,FNmsb (start) 
IF FEEK(6)=%80 THEN END 
FOR i=1 TO 7:READ a$,b$:a=VAL ("A"+a$ 
)+start:b=VAL ("&"+b$) 
FOEE a,FNIlsb(b) :FOKE a+ti1,FNmsb (b) :NE 
Ti 
DATA CD,22,BF,FS,C5,D5S,ES5,2A,20,BF,C 
D,61,DD,B7,28,62 
DATA ES,2A,20,BF,CD,88,A0O,E1,30,58,C 
D,O4,EE,CD,A3,E7 
DATA CD,65,E1,ED,4B,20,BF,21,00,00,0 
A,SF,16,00,19,053 
DATA FE,00,20,F6,DD,2A,20,BF,01,00,0 
0,DD,7E,00,5F,16 
DATA 00,19,04,F5,A8,47,F1,09,DD,23,F 
E,00,20,ED,3E,OD 
DATA CD,SA,BB,SE,OA,CD,SA,BR,SE,SB,C 
D,SA,BB,7C,CD,77 
DATA AO,7C,CD,7B,AO,7D,CD,77,A0,7D,C 
D,7BE,AÖO,3E,SD,CD 
30 DATA SA,BB,E1,D1,C1,F1,C9,1iF,1F,1iF,i 
F,E6,0F,C6,30,FE 
DATA 3A,38,02,C06,07,C53,5A,BB,CD,61,D 
D,E7,37,C8%/CD,04 
DATA EE,DO,7E,FE,20,20,01,23,CD,D2,E 
LOC36] 
[3A22] 
[7B14] 


CB2C8] 
EFCCE] 
[60BE] 


[24D2] 
LAC2A] 


[01B2] 
[S6AB8] 
[760C] 


[16FA] 
[71DE)] 


[9984] 


L9IAE6] 
[6044] 


[3306] 
[0332] 
[SBFCI 
[SEF2)] 
CDBF6] 
C4D3E] 
LESSCI 
[259A]J 
[014A] 
[A10A] 
[64AC]I 
460 


470 
480 


%15,%5F „&63,%67,&6B 
OB,DES2,1B,EED4,1E,E869 
21,E259,89,DES2,8F ‚„EED4,99,E7AA 
[0586] 
490 L1F52) 
500 


OB,DE4D,1B,EECF,1E,E864 
21,E254,89,DE4D,8F „EECF ‚99 ,E7AS5 
[2494] 
LAA1AI 


Listing. »Explora« macht Eingabefehler fast unmöglich 


Ss10 


Kassette, Diskette 


86 


Nie mehr DATAs mit »CPC« 


Oft bestehen leistungsfähige Programme zum 
Teil aus Maschinencode. Leider bedingte dieser 
Umstand bisher, daß Sie ellenlange »Data- 
Wüsten« als Listing eingeben mußten. »CPC« 
macht damit nun ein für allemal Schluß. 


zZ ur Eingabe langer Maschinencode-Programme ist 
nichts empfehlenswerter als das Programm »CPC«. 
Der Name kommt nicht von ungefähr - er steht für 
»Comfortable Program for Codeinput«. Diesen Komfort 
gewährleisten die vielfältigen Fähigkeiten des CPC. Er ist 
praktisch an beliebige Maschinencode-Listings anzupas- 
sen: Weder vor DATA-Ladern noch vor Hexdumps streckt 
»CPC« seine Waffen. Einzige Bedingung für Basic-Lader 
mit Prüfsummen ist, daß die Zahl der Byte pro Zeile kon- 
stant bleibt. Für viele Leser brauchen wir die Details sicher 
nicht zu wiederholen, da sie bereits aus einem der letzten 
Schneider-Sonderhefte bekannt sind. Für neu hinzuge- 
kommene Leser führen wir sie hier dennoch auf. Die Vor- 
züge der neuesten Version (identisch mit der aus Sonder- 
ausgabe 13): 

- Dateinamen darf man jetzt in beliebigem Format ein- 
geben. Wer mit Kassetten arbeitet, darf also Namen mit 
einer Länge von bis zu 16 Zeichen verwenden, wer Disket- 
ten bevorzugt, setzt wahlweise die Laufwerksnummer oder 
den User-Bereich voran. 

- »CPC« setzt HIMEM automatisch auf Adresse 20000. 

- Der Aufruf der Routine »Parameter einstellen« erfolgt 
automatisch bei der Code-Eingabe oder DATA-Erzeugung. 
- Das Unterprogramm »Parametereingabe« arbeitet kom- 
fortabler und ist dadurch einfacher einzustellen. Die einzel- 
nen Punkte sind numeriert. Ein Druck der jeweiligen Zif- 
ferntaste wechselt die Einstellungen (zum Beispiel von 
»hex« auf »dez«), wie Sie im Bild sehen können. 

- Die Routine »Erzeuge DATAs« verarbeitet jetzt auch die 
Startadresse 8000 hex korrekt und die Vorgabe eines Offset 
ist berichtigt. 

- Der erzeugte Basic-Lader ist kürzer und schneller und 
erhält automatisch den SAVE-Befehl zur Speicherung des 
erzeugten Maschinencodes. 

- Jetzt sind auch DATA-Lader ohne Prüfsumme oder mit 
Add- statt mit Hash-Prüfsumme zu erzeugen. 

- Durch diverse Einsparungen hat »CPC« nur noch eine 
Länge von 10 KByte. 


Epic 
Comfortable Program for Codeinput 


Parameter bestimmen: 
hex 


>? hex 
8 


Ja 
a 
ex 
4 
> hash 


<ENTER> geht’s weiter 


<1)> 
23 
(3) 
<4) 
<5) 
<6> 
7)» 
(8> 
Mit 


<1-8> oder ENTER:_ MH 


Das Untermenü »Parameter bestimmen« zeigt die 
Standard-Einstellungen für Basic-Lader in Happy- 
Computer 


- Zwei Hilfsprogramme unterstützen das Hauptprogramm 
»CPC.BAS« (Listing 1). Für noch komfortablere Bedienung 
belegt »CPC.HLP« (Listing 2) die Funktionstasten mit allen 
Hex-Ziffern und setzt die Farben auf eine augenfreundliche 
Kombination. »CPC.INF« finden Sie nur auf der 
Leserservice-Diskette, denn es enthält eine Kurzanleitung 
für »CPC«. 

- Die Routine »Code eingeben« verarbeitet jetzt bis zu 
128 Byte formatierter Eingabe. So sind nun auch DATA- 
Lader mit sehr langen Zeilen abzutippen. 

- Die Eingabe von Dezimalzahlen war bisher etwas kompli- 
ziert. Um das nötige dreistellige Format einzuhalten, waren 
bei ein- oder zweistelligen Zahlen entweder führende Nul- 
len voranzuschicken oder stets die Leertaste (oder 
<ENTER>) zu drücken. Nun ist, wenn Sie im Parameter- 
Menü »Ende annehmen« auf »Nein« einstellen, jedes Byte 
mit der Leertaste oder <ENTER >, beziehungsweise dem 
Dezimalpunkt zu bestätigen. 

Das Programm »CPC« verhilft in komfortabler Weise zu 
einer einfachen, schnellen und sicheren Eingabe von 
Maschinencode-Programmen. »CPC«-Benutzer geben nur 
zirka 60 Prozent des Listingumfangs von Basic-Ladern ein. 

Nach dem Start erscheint das Hauptmenü mit fünf Punk- 
ten. Die Eingabe der Anfangsbuchstaben ruft das jeweilige 
Unterprogramm auf. 


Lade Code 

lädt eine Binärdatei von Kassette oder Diskette. Die 
Ladeadresse des Programms müssen Sie eingeben; sie 
darf jedoch nicht unter 20000 liegen. Andernfalls laden Sie 
es an eine höhere Adresse. Drücken Sie bei der Auf- 
forderung, den Datenträger bereitzumachen, <ESC> 
oder <CTRL+C>, bricht die Routine ab. 
Schreibe Code 

sichert den Inhalt eines Speicherbereichs auf Diskette 
oder Kassette. Sie müssen die Anfangs- und die End- 
adresse angeben. Beide Werte lassen sich an den Zeilen- 
adressen der DATA-Listings ablesen. Haben Sie den Code 
in einen anderen Bereich geladen oder eingegeben, weil 
es sonst unterhalb der Adresse 20000 stünde, berücksich- 
tigt CPC das hier nicht. Sie müssen später den Code an die 
richtige Adresse laden (zum Beispiel: »LOAD 
"CODE ’” ‚3000«). Auch diese Routine istmit <ESC> oder 
<CTRL+C> abzubrechen. 
Code eingeben 


LAZEC]I 
[97212] 
LEC2Q] 
[97816] 
[OA?B] 
[Bö1A] 
[BB84)] 
CB41E] 
[A192] 
[B9I36] 
[7488] 
[ZEAE] 
L1SBE] 
[C718] 
£7CC2] 
[CD24] 
[IC2ZE] 
[81C6] 
[&DD&] 
[DBI1E] 
[9514] 
CBA24] 


uns CFC.HLP -- Voreinstellungen 
le Farben 

BORDER 4:INK 8,4: INK 1,26: INK 3,18 
ee Tastatur - Zehnerblock 


15,1,48,127,128 
13,1,49,47,129 
14,1,58,47,130 
5,1,51,47,131 
20,1,52,65,132 
12,1,53,66, 133 
4,1,54,67,134 
18,1,55,68,135 
11,1,56,69,136 
3,1,57,78,137 
7,1,46,38,138 
6,8,13,139,140 


"Version vom 22.18.86 


ist die wichtigste Routine des »CPC«. Zunächst geben 
Sie im automatisch erscheinenden Unter-Menü »Para- 
meter einstellen« die für das Listing erforderlichen Stan- 
dards ein. Darauf folgt die Vorgabe der ersten Zeilennum- 
mer und der Schrittweite. 

Drücken Sie hier einfach 
<ENTER>, bleibt der Zei- 
lenzähler auf Null. Nun 
geben Sie noch die Start- 
adresse vor. Bei der Eingabe 
der Byte-Werte ist die Gefahr 
von Fehleingaben sehr 
gering, da nur die Ziffern O 
bis 9, beziehungsweise die 
Buchstaben A bis F zugelas- 
sen sind. Ein Druck der Leer- 
taste, <ENTER> oder des 
Punktes formatiert alle füh- 
renden Nullen automatisch 
und schließt die Eingabe 
eines Byte ab. Die Tasten mit 
Schrägstrichen (</> und 
<\>) wiederholen das zu- 
letzt eingegebene Byte. Da- 
durch ist gewährleistet, daß 
Sie nur ein Minimum einzu- 
geben haben. Verzichten Sie 
auf Prüfsummen (wovon wir 
aber eindringlich abraten, 
denn etwaige Eingabefehler 
sind so kaum zu finden), ist 
damit die Eingabe beendet. 
Ansonsten geben Sie nun 
die Prüfsummen ein. Ist die 
Prüfsumme korrekt, ertönt 
ein Signalton und Sie gehen 
zur nächsten Zeile. Fehler 
korrigieren Sie mit Hilfe der 
DEL-Taste. 

Erzeuge DATAs 

erzeugt aus Maschinencode im Arbeitsspeicher einen 
lauffähigen Basic-Lader auf Diskette. Gehen Sie bitte wie 
folgt vor: Stellen Sie zuerst die korrekten Parameter ein. 
Wählen Sie dann die Namen für den DATA-Lader und die 
später vom Lader zu erzeugende Binär-Datei. Nun erwartet 
»CPC« die Anfangs- und die Endadresse des Maschinen- 
codes. Da dieser nicht unter 20000 beginnen darf, manche 
Programme aber nur auf niedrigeren Adressen arbeiten, 
können Sie hier einen Offset von der Ladeadresse zur 
tatsächlichen Startadresse eingeben. 

Beispielsweise steht ein Programm im Speicher ab 
Adresse 6000 hex, soll aber so gespeichert werden, daß 
der Basic-Lader es auf 4000 hex erzeugt. Die Eingaben 
sind für diesen Fall: 

Startadresse=&4000, Offset=&2000. 

Wenn Sie kein Offset benötigen, drücken Sie einfach 
<ENTER>. Jetzt fehlt nur noch die Nummer der ersten 
Zeile und die Schrittweite der Numerierung, bevor »CPC« 
mit der Erzeugung des Laders beginnt und ihn als ASCII- 
Datei auf Kassette oder Diskette speichert. 


Das Menü »Parameter bestimmen« bricht man mit 
<ESC> oder <CTRL+C> ab und beendet es mit 
<ENTER >. Die Tasten 1 bis8ändern einzelne Parameter: 
<1> Zeilenadresse dezimal oder hexadezimal anzeigen. 
<2> Byte dezimal oder hexadezimal erwarten und anzei- 
gen. 
<3> Anzahl der Byte pro Zeile. Eingabe in Formeiner Zahl 
kleiner oder gleich 128. 
<4> Ende annehmen ist normalerweise »Ja«. Haben Sie 


183 
194 
185 
186 
187 
188 
189 
118 
126 
127 
128 
129 
158 
151 
1352 
153 
134 
135 
148 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA #ENDE* 


141 
142 


2 2 50502 2272727027202 0272727275722 727127572722 272727272722 2727277 


"#*BEISPIEL.DAT - DATA-Lader von 
ENT NNN N ERNERHHEHH 


9C48,01,0A,AB,21,BE,AB,CD,Di ,‚17AB 
9C48,BC,C9,12,AQ,18,0A,20,00,64E8 
9C50,008,808,53,43,41,4C,C5,88,@CE2 


I9CFO,19,22,A8,AC,22,2C,B3,2A,l1B2C 
9CF8,AA,AC,22,2E,B3,E1,23,C1,7E3B 
9D20,19,93,FB,C9,00,00,200,20,3F3@ 


adr=% IC4B: zeile=19B4:MEMORY adr-i 
READ d$: IF d$="#ENDE*"THEN 142 


»zwei Ziffern« bei hexadezimaler oder »drei Ziffern« bei 
dezimaler Eingabe gewählt, geht »CPC« automatisch zum 
nächsten Byte über. Ist dieser Punkt »Nein«, beenden Sie 
jedes Byte mit der Leertaste, <ENTER> oder dem Punkt. 


[51D4] 
[1BA8] 
LA3DSI 
C[DEB6] 
[489C] 
[5F74] 
[2616] 
[DEBE] 
[FECO] 
LFEC2I 
EC[DDB2] 
[CBCA]I 
[3828] 
[A316] 
[83CC] 
LEA56] 
[8182] 
I[DFBA] 
[DFBC] 
[FFBE] 
[FFCO] 


'CPC’* 


IF pr<{>pr2 THEN PRINT"Pruefsummenfehler 
in Zeile";zeile:STOP 

zeile=zeile+t1:G0T0O 151 

SAVE"BEISPIEL.BIN",B,%9C4B,%C7: END 


[3EBA] 
[BBS2] 
[BAF&] 


Ein beispielhafter Ausschnitt eines typischen DATA-Laders. Die Ziffern im hell 
unterlegten Bereich sind in jedem Fall einzugeben, während Sie auf die Eingabe 
der Prüfsummen (dunkel unterlegt) verzichten können. Dazu kommen noch die 
Startadresse (in diesem Fall 9C40 hex) und zum Speichern die Endadresse (hier 
9D03 hex). Den Rest des Basic-Laders ersparen Sie sich mit »CPC«. 


<5> Prüfsumme abfragen. »Nein« ist nur bei Basic- 
Ladern ohne Prüfsumme zu empfehlen. 
<6> Prüfsumme dezimal oder hexadezimal erwarten und 
anzeigen. 
<7> Länge der Prüfsumme. Minimal 4 bei hexadezimaler 
und 5 bei dezimaler Ausgabe (Voreinstellung). »CPC« be- 
nötigt diese Angabe für das Erzeugen der Basic-Lader. 
<8> Prüfsummentyp. Viele Basic-Lader verwenden Prüf- 
summen des Typs »Add«, also eine einfache Addition aller 
Byte einer Zeile. Die »CPC«-Lader verfügen jedoch über 
eine Hash-Prüfsumme, die Fehler und Vertauschungen 
erkennt. Falscheingaben sind hier fast unmöglich. 
Während der Arbeit mit »CPC« beenden Sie jede Ein- 
gabe mit <ENTER> und korrigieren mit <DEL>. Für 
Dateinamen müssen Diskettenbenutzer ein gültiges For- 
mat wählen. Bei allen Zahleneingaben ist eine dezimale 
oder hexadezimale Eingabe mit vorangestelltem »$«, »#« 
oder »&« wählbar. An jeder Stelle, an der eine Taste zur 
Bestätigung zu drücken ist, läßt sich die Funktion durch 
<ESC> oder <CTRL+C> abbrechen. (Stefan Aust/ja) 


Steckbrief 


CPC 

CPC 464/664/6128 
Explora 
Kassette/Diskette 


88 


1882 
1218 


1228 
1930 
1940 
1958 
1268 
1978 
1988 


10970 
1108 
1118 


1128 
1138 
1148 
1158 
1168 


1178 
1188 


1198 
1208 
121@ 


1220 
1250 


1248 
1250 
1268 
12708 
1280 
1298 


1588 
1318 
1328 
133@ 
1348 
1358 
1368 
1378 
1588 
1398 
1408 
1418 
1428 
1438 
1440 
1458 
1468 
1478 
1480 
1490 


1580 
1518 


1528 
1530 
1548 
1558 
1568 


1578 
1588 
1590 
1608 
1618 


1620 
1638 


1648 
1658 
1660 


"--> "CPC = Comfortable Program for 
Codeinput” by St. M. Aust 


"--> Initialisierung 


CLOSEIN: MEMORY 19997 

KEY DEF 66,8,3:CALL &%BB48 

brk$=CHR$ (3) :bell$=CHR$ (7) :back$=CH 
R$ (8) : cr $=CHR$ (13) :c1r$=CHR$ (16) 
del$=back$+c1r$:cur1$=CHR$ (143) +bac 
k$: cur2$=CHR$ (211) +back$ 
dz$="8123456789":hx$="90123456789ABC 
DEF" 

DIM b$(128) ,f1(8):f1l(1)=1:f1(2)=1:f 
1-8: f1(5HI)=1:f1(6)=1:f11(7)=4:f1(8 
)=1 

ENV 1,15,-1,2B:ENV 2,15,-1,4 


"--> Menue 


MODE 1:PAPER B:FPEN 1:PAPER#1,B:PEN# 
1,1:PAPER#2,B:PEN#2,3 

LOCATE 18,1:PRINT"C P C" 

LOCATE 4,2:PRINT"Comfortable Frogra 
m for Codeinput" 

LOCATE 6,7:PEN 1:PRINT"Geschrieben 
von Stefan M.Aust" 

LOCATE 8,8:PRINT"Version II 
er 1986" 

SOUND 1,480,0,15,1:S5QOUND 2,450,0,15 
‚1:SOUND 4,508,0,8,1 

WHILE S@(1)<>4:WEND 
»=6:y=6:x1=29:y1=15:60SUB 3531@:WIND 
OW SWAP 1 

LOCATE 9,3:PRINT"(L)ade Code" 
LOCATE 7,5:PRINT"(S)chreibe Code" 
LOCATE 7,7:PRINT" (C)ode eingeben" 
LOCATE 7,9:PRINT" (E)rzeuge DATAs" 
LOCATE 9,11:PRINT" (B)eende CPC" 
WINDOW#2,1,48,23,253:PRINT#2,TAB (12) 
"Bitte waehlen:_";curi%; 

GOSUB 3418: p=INSTR("LSCEB"+brk#,a$) 
:IF p=®B THEN PRINT bell$;:60TO 1388 


- Oktob 


x»=3:y=17:x1=18:y1=3:G0OSUB 3318 
PRINT#2,a$:0N p GOTO 1338,1428,152@ 
,‚18890,2670,2678 


"--> Lade Code 


PRINT#1,"<2>(L)ade Code" 

WINDOW SWAF 2:PRINT TARB(1B) "Name: " 
;:GOSUB 2868: n$=b$ 

PRINT TAB (11) "Startadresse: 
B 2758: start=b 
FRINT"Disk/Kassette einlegen & Tast 
e druecken" 

GOSUB 3418: IF brk THEN 1138 

LOAD" !"+n$,start:GOTO 1138 


"32GDSU 


"--> Schreibe Code 


PRINT#1,"(S)chreibe Code" 
WINDOW SWAF 2:FRINT TAB(1B) "Name: " 
;:GOSUB 286@:n$=b$ 


PRINT TAB(11)"Startadresse: "3:60SU 
B 2758: start=b 
FRINT TAB(12)"Endadresse: ";:6GOSUB 


2758: finish=b 

PRINT"Disk/Kassette einlegen % Tast 
e druecken" 

GOSUB 3418: IF brk THEN 11538 

SAVE" !"+n$,b,start,finish-start:G6OT 
0 1138 


== Code eingeben 


PRINT#1,"(C)ode eingeben" 


GOSUB 2478: IF brk THEN 1138 ELSE WI 
NDOW SWAP 2 


PRINT TAB(11)"Startnummer: ";:GOSUB 
275@:nr=b 

PRINT TAB(1B)"Schrittweite: ";:G60SU 

B 2758: inc=b 

PRINT TAB(18) "Startadresse: "3:60SU 


B 2758: start=b 

GOSUB 3238: LOCATE#1 ,32,2:PRINT#1,"( 
C)ode eingeben" 

IF #12) THEN h$="%":1=2 ELSE h$="": 
1=3 

h=1l+1:xa=16:xe=xa+th#15 

PRINT:PRINT USING" (#####) "snr;: IF 
fl(1)THEN PRINT" "HEX$(start,4)": " 
sELSE PRINT USING"#####: ";start; 
FOR i=@8 TO fl(3):b$(i)="":NEXT 
p=-B:x=xa 

y=VPOS(#B) : IF xixa THEN x=xe:y=y-1 
ELSE IF x>xe THEN FRINT CHR$(1B)CHR 
$(11):x=xa: y=VPOS (#8) 


[97118] 


[53B@] 
[8F14] 
[9816] 
[CFEB8] 
[Bös1A] 
LAC78] 
[9D26] 


[D184] 
[A584] 
[8BA6] 


L[52BA] 
[2772] 
[9818] 
[BA7E] 
[921C] 


[3464] 
(745801 


[B1EE) 
[B9CB] 
[7ESöA] 


[C35B&]l 
[BQ74] 


[BEBCI 
[A788] 
[F2ZE8]I 
LE11E] 
[267C] 
CB9YSE]I 


C[F4D2] 


[Sös6E] 
[2432] 


L7CF4] 
£C9B1C]I 
C4BBQ] 
[B628] 
LEDBA] 


[SCE6] 
[8240] 
[7CF6] 
[FCS2] 
[4EB4] 
[971C] 
[7FBE] 
[9528] 
[3798] 
L13E6] 
[aF4Q] 
[DSFC] 


[B1F8] 
[DAS4] 


[ODBR] 
LBILEI 
[CB48] 
[9322] 
[48CA] 
[L1A46] 
[BC3®] 
LBI6EI 
[644] 
[D77@] 
L7FIEI 
L37BA] 


[A692] 
[BAEA] 
[1A22] 


CDD3E] 


b$=b$ (p):LOCATE x,y:PRINT b$; 
Ilmax=1:IF fl(2)THEN GOSUB 2959 ELSE 
GOSUB 2978 

IF f1(2)=® THEN b=VAL (h$+b$): IF b>2 
55 THEN PRINT bell$;:60T0 1688 


IF brk THEN 1138 ELSE IF del=® THEN 
1738 

b$(p)="":IF p>@ THEN p=p-1:x=x-h EL 

SE del=@:PRINT bell$; 

GOTO 1668 

LOCATE x,y:PRINT b$;:b$ (p)=b$ 


x=x+thzp=p+t1:IF p<fl(3)THEN 1668 

FOR i=® TO f1(3)-1:POKE start+i „VAL 
(h$+b$(i)) NEXT 

IF f1(5)=B THEN 1838 

GOSUB 3488:L0OCATE x,y:PRINT"= ";:x= 
x+2:b$="":1max=fl(7) 

IE ESS TBEN GOSUB 2958 ELSE GOSUB 
IF brk THEN 1138 ELSE IF del THEN x 
=x-2:PRINT del$;del$;:60T0 1718 
LOCATE x,y:PRINT b$; 

IF f1(6) THEN pr2=VAL("&"+b$)ELSE pr 
2=VAL (b$) 

IF pr<>pr2 THEN PRINT bell$;:60T0 1 
788 


start=start+fl (3) nr=nr+inc 

SOUND 1,420,0,15,2 

GOTO 165380 

b$(p)="":IF p>1 THEN p=p-1:x=x-h EL 
SE del=8:PRINT bell$; 

GOTO 1668 


"--> Erzeuge DATA’s 


PRINT#1,"(E)rzeuge DATAs" 

GOSUB 2478: IF brk THEN 115®@ 
x»=2:y=7:x1=37:y1=9:G0OSUB 351@:WINDO 
W SWAP 1 

LOCATE 2,1:PRINT"DATA-File-Name: "; 
:GOSUB 2858: dn$=b$ 

LOCATE 2,2:PRINT"Code-File-Name: "; 
:GOSUB 28648: cn$=b$ 

LOCATE 4,4:PRINT"Startadresse: 
OSUB 2750: start=b 

LOCATE &,5:PRINT"Endadresse: 
uUB 2758: finish=b 

LOCATE 18,7:PRINT"Offset: 
2758: offs=b 
»=2:y=17:x1=37:y1=4:6G0SUB 331@:WIND 
OWw SWAF 1 


"3:6 
"2:G05 
"3:GOSUB 


LOCATE 4,1:PRINT"Erste Nummer: "3:6 
OSUB 2758:nr=b 
LOCATE 4,2:PRINT"Schrittweite: ";:G 


OSUB 2758: inc=b 
PRINT#2,"Disk/Kassette einlegen %& T 
aste druecken" 
GOSUB 3418: IF brk THEN 1138 
form=1:IF form THEN nn$="Q@BBBB"ELSE 
nn$="" 
st2=start:start=start+toffs:finish=f 
inish+toffs:nr2=nr+4#inc 
di=6: IF f1(SI)THEN di=d1+5+(f1(8)=D) 
d2=5:IF fl1(SITHEN d2=d2+5+(f1(8)=9) 
PRINT#2,"Erzeugung beginnt..."; 
OFENOUT" !"+dn$ 


h$="# "+dn$+" —- DATA-Lader von 'CFC 
"gen 

PRINT#9 ,nr;" ""+STRING$ (LEN (h$) „42): 
nr=nr+inc 

PRINT#9 ‚nr; " ""+h$:nr=nr+inc 

FRINT#9 ,nr;"'""+STRING$ (LEN (h$) ,42): 


nr=nr+inc 

PRINT#9 ,nr;" ""inr=nr+inc 
PRINT#9 ,nr; "DATA ";znr=nr+inc 

IF f1(1)THEN PRINT#9 ,HEX$ (start -off 
s,4);ELSE PRINT#9 ,USING"##H#4H#"; star 
t-offs;z 

FOR i=®B TO f1(3)-1:IF f1(2)THEN IF 
form THEN FRINT#9,",";HEX$(PEEK (sta 
rt+i) ,2)354G0T0 2198 ELSE PRINT#9,", 
"SHEX$(PEEK(start+ti));:GOTO 21908 
a$=STR$ (PEEK (start+ti)) :PRINT#9,","; 
RIGHT$ (nn$+MID$ (a$,2) ,3)3 

NEXT: IF f1(5)=@ THEN FRINT#9:G0OTO 2 
228 

GOSUB 3488: IF f1(6) THEN FRINT#9,"," 
;sHEX$ (pr ,f1l1(7)):GOTO 2228 

a$=STR# (pr) :FRINT#9," ,"3RIGHT#$ (nn$+ 
MID$(a#,2),fl1(7)) 

IF INKEY#=brk#THEN CALL %BC92:G0T0O 
11538 

start=start+fl(3):IF start“finish T 
HEN 2158 

FRINT#9 ,nr; "DATA #ENDE*#":nr=nr+inc 
PRINT#9,nr; "adr=";:IF #flL(1)THEN PRI 
NT#9 ,"&"+HEX$ (st2,4);ELSE PRINT#9,M 


[SBIE]I 
[8644] 
17202] 
CAEFCI 
[849C] 
[aA2Q] 
[0698] 
L&ECC] 


[24F8] 
LEA3A] 


[A670] 
[5124] 


[ADSCI 
[A1OCI 


[766A] 
[CEBE] 
[2C44] 
CB1A6] 
[2422] 
CABAA]I 
[752C] 
[9938] 
L7CF8] 
CBF22] 
[B522] 
[BCöA] 
[A468] 
[68BE) 
[D2D2] 
[BCAB] 
[CCBB] 
[FE88] 
[86CC) 
C7DC6]1 
CB34E] 


[48E6] 
CFES2] 


[BO9YE] 
[712A] 
LEC16] 
[341C] 
[8888] 
[E436] 
£13CE] 


[AACD] 
[92A6] 


[48C4] 


c473C] 
[37DA] 


[8548] 


[33B8] 
[286E] 
[9514] 
[8F7E] 
(958E] 
[9AAA] 


[7318] 
[4044] 


Listing 2. Eingabe von Maschinencode im Eiltempo 


89 


ID$ (STR$(st2) ,2); 
PRINT#9 ,":zeile= 
;enr=nr+inc 
FRINT#9,":MEMORY ";:IF st2 =32768 TH 

EN PRINT#9,"&7FFF"ELSE PRINT#9,"adr 
_ı" 

PRINT#9,nr; "READ d$: IF d$="+CHR$ (34 
) +"#ENDE#"+CHR$ (34) +" THEN" 3 nr+di#in 

c:nr=nr+inc 

IF #1(S)THEN FRINT#9 ,nr; "pr=@":nr=n 

r+inc 

FRINT#9,nr; "FOR i=1T0";f1 (3) nr=nr+ 
inc 

IF f1(2)THEN FRINT#9,nr; "READ af:a= 

VAL ("+CHR$ (34) +" +CHR$ (34) +" +a$)": 

nr=nr+tinc ELSE FRINT#9,nr; "READ a": 

Ar=nr+inc 

FRINT#9,nr; "POKE adr ,‚a:adr=adr+1":n 

r=nr+inc 

IF f1(5)=@ THEN 2378 ELSE IF fl(8)T 

HEN 2358 

PRINT#9 ‚nr; "pr=pr+ta":znr=nr+inc:GOTO 
2378 

FRINT#9 ,nr; "pr=pr*2: IF pr >45535THEN 
pr=pr- 85535" :inr= nr+inc 
FRINT#9 ,nr; "pr=UNT (pr)XOR a:if pr“®@ 
THEN pr=pr +65536":nr=nr+inc 
FRINT#9 ‚nr; "NEXT i":nr=nr+tinc 

IF #1 (5)=@ THEN 2428 

IF f1(&)THEN PRINT#9,nr; "READ prf:p 

r2=VAL ("+CHR$ (34) +" +CHR$ (34) +" +pr 
$):if pr2<ißdthen pr2=pr2+65536":nr=n 

r+inc:G0OTO 24180 

FRINT#9 ,nr; "READ pr2":nr=nr+inc 

FRINT#9,nr; "IF pr<>pr2 THEN PRINT"”+ 
CHR$ (34) +"Pruefsummenfehler in Zeil 

e"+CHR$ (534) +";zeile:STOP":nr=nr+inc 


"+MID$ (STR$ (nr2 ),2) 


PRINT#9 ,nr; "zeile=szeile+";MID$ (STR$ 
tinc) „2)3":G0T0";nr-d2#inc:nr=nr+tin 


[= 
PRINT#9 „nr ; "SAVE" +CHR$ (34) +cn$+CHR$ 
(34) +", B,%"+HEX$ (st?) +" „A"+HEX$ (fin 
ish-st2) :nr=nr+tinc 
PRINT#9 ,nr; "PRINT d$:END":CLOSEOUT 
FRINT#2," und ist fertig. ";bell$ 
GOSUB 3418:G0TO 1138 


"--> Parameter einstellen 


x=18:y=8:x1=28:yl1=14:G0SUB 3510 
WINDOW SWAP B8,1:PRINT"Parameter bes 
timmen: " 

LOCATE 1,3:SOUND 1,900,8, 157 2 
PRINT" (1) Adresse "REIF #1 
(1)THEN PRINT"hex "ELSE PRINT"dez" 
PRINT" (2) Bytes “ssIr fl 
(2) THEN PRINT"hex "ELSE PRINTÄder" 
FRINT"(3) Byteanzahl ---->";f1(3) 
PRINT" (4) Ende annehmen -> "srIr #1 
(4) THEN PRINT"nein"ELSE PRINT" a£2> 


PRINT" (5) Pruefsumme ----> ";:IF fl 
{(S)THEN PRINT" ja<2>"ELSE FRINT"nein 


PRINT"(6) Fruefsumme -—---> "z:IF fl 
(&) THEN FRINT"hex "ELSE PRINT"dez" 
PRINT" (7) deren Laenge -->";f1(7) 
FRINT" (8) und T > "s2IF #1 


yp > 
(8) THEN PRINT"hash"ELSE PRINT"add " 


PRINT=FPRINT"Mit <ENTER> geht 's weit 
er " 
PRINT#2,TAB(11)" (1-8) 
;scuri$; 

GOSUB 341@: IF a$=brk$0OR a$=cr$ THEN 
RETURN 

IF a$<"1"OR a$>"8"THEN PRINT bell$; 
:G0TO 2638 ELSE FRINT#2,a$:#=VAL (a 
) 


oder ENTER: _" 


IF #£2>3 AND #<>7 THEN fl(#)=1-f#lif) 
:G0TO 2528 

WINDOW SWAF Q@,2:PRINT TAB(12) "neuer 
Wert: ";:G0SUB 2758: fl (#f)=b:WINDOW 
SWAF 0,2:G60T0 2528 


"--5 Beende CFPC 


PRINT#1,"<2>(B)eende CFC" 

WINDOW SWAP 2:FRINT TAR(9) "Zurueck 
mit ESC oder *C" 

GOSUB 3418: IF brk THEN 1138 

MODE 2 

END 


Kai; Sub: Hex-Dez-Input 


b$="":b=@:1lmax=5 
GOSUB 3158: IF a=13 AND b$< >"&"THEN 
28408 


IF a=127 THEN GOSUB 3289:60T0 2798 


[513A] 
[CBQ4] 


[9752] 


[61E41 
[2544] 
[E4BE] 


[E458] 
[C496] 
[A146] 
[BACA] 
[CSDA]I 


[6572] 
[3088] 
[7838] 


tE97CI 
L1A8C]I 


C9FS2] 


L&BACI 


C[C5D4] 
[BC981 
[70C2] 
[4658] 
[B728] 
[3B82] 
[BI2CI 
(509781 


[2A24] 
[DCECI 


[AAZE]I 


[6968] 
[A4B2C] 


CBZEC]I 


[3456] 


[7582] 
[&D60]1 


CBDCAI 
[FAAA] 
[9AB&] 
[ 7E58] 


[6DF8] 
[972C] 
[FD12] 
[BD32] 
[D808] 


[Bi1A8] 
E[FDSE] 
[3ECö] 
[F888] 
[9S52AI 
LE228]1 
[972E] 
LCSBE] 


[saCQ] 
[C814] 


2818 


2828 


2838 
2840 
2858 
2868 
28978 
2888 
28978 
2908 
2918 
2928 


2930 
2948 
2958 
2968 
2978 
2988 
29978 
sa22 
3818 
3820 


3238 
3848 
sa5B 
3048 


30708 
3882 


3@a978 


5108 
3118 
3128 
3158 
3148 
3158 
3168 
3178 


3188 
3198 
3208 
3218 


3228 
3238 
3248 
3258 
3268 
3278 


3288 
3298 


33508 
33518 
3328 
33558 
3348 
3358 


3368 


3378 
3388 


3398 
3408 
53418 
5428 
3438 
3448 
3458 


3448 
3478 
3488 
3498 
3502 
3518 
3528 


3538 
3548 


53558 
3568 


IF b=® THEN IF a>34 AND ai39 THEN i 
n$=hxf:b$="&":b=1:PRINT a$;:6G0TO 27 
9@ ELSE int=dz$ 

IF INSTR(in$,a$)>B AND b<lmax THEN 
b$=b$+ta$:b=b+1:PRINT a#;ELSE PRINT 
bellf$; 

GOTO 2798 

b=VAL (b$): IF b<iB THEN b=b+645556 
RETURN 
"--> Sub: Filename-Input 
b$="":b=@:lmax=16 

GOSUR 3158: IF a=13 THEN RETURN 

IF a=127 THEN GOSUB 3288:G0T0 2990 
IF a>31 AND a<127 AND bilmax THEN b 
$=b$+ta$:b=b+1:PRINT a$;ELSE FRINT b 
ell$; 

G0OTO 29798 


"--> Sub: Hex-Zahl eingeben 
in$=hx$:60T0 2998 

"--> Sub: Dez-Zahl eingeben 
in$=dz$:60T0 2998 

"--> Sub: Input 

b=LEN (b$) :brk=@B: IF del THEN del=8:6 
0OTO S18@ ELSE del=®@ 

GOSUB 3158 

IF a=3 THEN brk=1:60T0 3128 

IF a=153 OR a=32 OR a=46& THEN 3128 
IF a=47 OR a=92 THEN b$=bb$:b=LEN (b 
b$) :RETURN 

IF a=127 THEN 3188 

IF INSTR(in$,a$)>@ AND b<lmax THEN 
b$=b$+a$:b=b+1:PRINT a$;ELSE PRINT 
bell$; 

IF f1(4)THEN 303@ ELSE IF b=lmax TH 
EN 3128 ELSE 3838 

IF b>@ THEN GOSUB 3288:G0T0 39038 
PRINT bell$;:del=1 

b$=RIGHT$ ("BQOAQR"+b$,1max) 

bb$=b$: RETURN 


"--> Sub: Tastdruck nach a,a$ 
PRINT cur2$; 
a$=UPPER$ (INKEY$): IF a$=""THEN 3178 


PRINT cIr$; 

a=ASC (a$) :RETURN 

"--> Sub: DEL-Routine 

IF b>@ THEN b=b-1:b$=LEFT$(b$,b):FPR 
INT back$;c1r$;ELSE PRINT bell$; 
RETURN 


"--> Sub: Rahmen zeichnen 


MODE 2 

MOVE 112,352:DRAW 527 ,352:DRAW 527, 
399:DRAW 112,399:DRAW 112,352 

MOVE 116,356:DRAW 523,356:DRAW 523, 
395:DRAW 116,395:DRAW 116,356 
LOCATE 28,25:PRINT"Zurueck mit ESC 
oder “C"” 

WINDOW 1,88,4,24: RETURN 

"--> Sub: Fenster oeffnen 

WINDOW#1 ,x ,„x+x1-1,y,y+tyl-1:CLS#1 
xp=x#16-16:yp=415-y#16:xm=x1l#16-1:y 
m=yl#16-1 

PLOT xp,yp,1:DRAWR xm,B:DRAWR @,-ym 
:DRAWR -xm,@:DRAWR B,ym 
x»p=xpt+t4:yp=yp-4:xm=xm-B: ym=ym-B 
PLOT xp,yp,3:DRAWR xm,@A:DRAWR B,-ym 
:DRAWR -xm,@:DRAWR @,ym 

WINDOW#1 ,x+1,x+tx1-2,yt1,y+tyl-2 
RETURN 


"--> Sub: Auf Taste warten 


WHILE INKEY$<>"":WEND 
a$s=UPPER$ (INKEY$) : IF a$=""THEN 3458 


IF a$=brk$THEN brk=1 ELSE brk=® 

RETURN 
"--> Sub: Checksum bilden 

pr=B: IF f1(8)THEN 3548 

FOR i=B TO f1l(3)-1:pr=pr+PEEK (start 

+i) NEXT 

RETURN 

FOR i=8 TO f1l(3)-1:pr=pr*#2: IF pr>65 
535 THEN pr=pr-65535 

pr=UNT (pr)XOR PEEK(start+i):IF pr<® 
THEN pr=pr +65536 

NEXT: RETURN 


Listing 2. (Schluß) 


[ZEE8] 


[5426] 
[5638] 
[97D44] 
[839E] 
[CB2E]I 
[3064] 
[C232] 
TEI26] 
[C41C] 
[7a0A] 


[BEBCCI 
[6324] 
[C82C)9 
[8122] 
[6128] 
C1F22] 
11128) 
[C536] 
[45ACI 
CB816] 


CBF&62] 
LASIE]I 
[4658] 
[9936] 


[6968] 
[4708] 


[8624] 


[S9AB] 
[E128] 
CB2DA] 
C74BE] 
CADS8] 
[BIILE] 
[8BDA] 
[DBEA] 


[ZFBö] 
LE872] 
[7BA4] 
[B440] 


[359E] 
[878E]1 
[9Z1E] 
[19356] 
[B822] 
[2BC4] 


[BDIE]I 
[81B8] 


EFS4E] 
[325E] 
[9B1Cı 
[8046] 
[9228] 
[S1E6] 


[397C1 


[SFDA] 
[85A2] 


£27E2) 
[5984] 
[7DBE] 
[CB1E]I 
[F@74] 
tc222] 
[A79CI 


[87BA] 
1[S@A4] 
[9FSCI 
[972C] 
[8428] 
[BD1E] 
[8D2E]I 


L49EA] 
[8C96] 


[BASA] 


[F3CA] 
[2B8E] 


Der CPC hat Töne 


Auch musikalisch haben die Computer der 
Schneider CPC-Serie einiges auf dem Kasten. 
Nur fällt es meist schwer, ihnen diese Fähigkeiten 
zu entlocken. Der »Envelope Composer« nimmt 
Ihnen viel Fleißarbeit ab. 


n Basic-Befehlen - auch zur Tonerzeugung bezie- 
A hungsweise -beeinflussung - ist der CPCeigentlich 

reich gesegnet. Will man aber beispielsweise 
eigene Lautstärke-Hüllkurven entwerfen, läßt einen der 
Computer im Stich: Der Griff zu Bleistift und Papier ist dann 
unausweichlich. Vielmehr war er es, denn das Programm 
»Envelope Composer« erleichtert nun diese Aufgabe. 
Zukünftig entwickeln Sie damit die Hüllkurven am Bild- 
schirm. Dazu stellt sie der Computer in einem Gitterraster 
grafisch dar. Der sofortigen Erfolgskontrolle dient das pro- 
beweise Abspielen der Kreation. Ist die endgültige Form 
gefunden, speichert der CPC die Kurven wahlweise als 
Basic-Programm in Form von ENV-Befehlen. Auch an eine 
Druckerausgabe ist gedacht. Da sich eine Kurve über meh- 
rere Bildschirmseiten erstrecken kann, sind Hardcopies 
sowohl von einzeln bearbeiteten Teilen (Bild 1) alsauch vom 
gesamten Kurvenverlauf (Bild 2) anzufertigen. 

Geben Sie zunächst Listing 1 ein und speichern es. Auch 
Listing 2 speichern Sie sicherheitshalber gleich nach der 
Eingabe. Danach starten Sie es mit »RUN«. Es erzeugt 
dann selbsttätig den Maschinencode für die benötigte 
Befehlserweiterung und speichert ihn automatisch unter 
dem Namen »ENVELOPE.BIN«. Mit Listing 3 verfahren Sie 
genauso; es enthält die Hardcopyroutine, die den Dateina- 
men »ENVELOPE.HRD« erhält. Dabei handelt es sich um 
eine Routine die wir erstmals in der Happy-Computer, Aus- 
gabe 6/86, veröffentlichten. Sie ist in dieser Version an den 
DMP 2000 und andere Epson-kompatible Drucker ange- 
paßt. Die Anpassung an andere Drucker entnehmen Sie 


Bild 1. So einfach und übersichtlich können auch Sie in 
Zukunft Ihre Lautstärke-Hüllkurven entwickeln 


> ma - man „> Cu 
Hu kur vo Mı- . u 

/ Si } 
NV Sr 


I 


Hardcopy <J> _<N> ? 
<D’iagramm oder Ds Staschävn 74a 


Bild 2. Der gesamte Kurvenzug wird im Diagramm sichtbar 


5 
5 
H 
Di 
H 


aupt-Menue verlassen 
Programm verlassen 


‚in Pu ei Sek PL 


Bild 3. Aus dem Hauptmenü heraus ist nicht nur die 
hörbare Kontrolle Ihrer Kreation wählbar 


bei Bedarf bitte diesem Beitrag. Natürlich lassen sich auch 
andere Hardcopyroutinen einbinden. Voraussetzung dafür 
ist jedoch, daß sie oberhalb der Adresse 9FFF hex liegen. 
Die genaue Adresse des Aufrufs müssen Sie dann im vier- 
ten und fünften Byte der Zeile 109 in Listing 2 eintragen 
(dort steht in dieser Version AO1B hex in der Reihenfolge 
Lowbyte, Highbyte). 

Dem Start des Programms folgt eine kurze Verzögerung, 
während der die beiden Binärdateien nachladen. Am 
besten eignet sich ein Eingabebeispiel zum Kennenlernen: 

Oben links erscheint der Schriftzug 
Env Nr. 
und der Cursor dahinter signalisiert, daß der CPC auf Ihre 
Eingabe wartet. Nun wählen Sie eine der möglichen 15 
Hüllkurven mit ihrer Nummer aus. Geben Sie also zur 
Probe <1> ein und drücken Sie danach <ENTER>. Die 
nächste Aufforderung 
Start-Lautstärke der Envelope setzen 
wird nun unten links sichtbar. Die Lautstärken sind am lin- 
ken Bildschirmrand aufsteigend abzulesen. Mit den Rich- 
tungstasten bewegen Sie den Cursor auf die gewünschte 
Lautstärke. Fahren Sie also den Cursor auf die Position O 
(Anzeige »Y=0«, oben links im Bild 1) und drücken Sie an 
dieser Stelle <COPY> zur Bestätigung. Nun ist der Cur- 
sor frei beweglich. Um in unserem Beispiel fortzufahren, 
bringen Sie den Cursor ans obere Ende der Skala (auf den 
Wert 15). Anschließend drücken Sie die rechte Cursorsteu- 
ertaste, worauf der Zeiger gleich um einige Positionen nach 
rechts springt. Nur auf diesen Positionen ist die Lage des 
neuen Kurvenpunkts erlaubt. Das signalisieren auch stets 
die beiden Anzeigen »X(Laenge)=« und »Y(Hoehe)=«oben 
rechts auf dem Monitor, wenn sie invers (weiße Zahl auf 
schwarzem Hintergrund) dargestellt sind. Nachdem Sie 
nun an der ersten möglichen Position wieder <COPY> 
drücken, zeichnet Ihr CPC den ersten Teil der Grafik. Dar- 
aufhin ändern sich noch weitere Bildschirmanzeigen. 
Oben links sehen Sie nun nämlich die Werte dieses ersten 
Hüllkurventeils (Part). In der untersten Zeile ist der entspre- 
chende ENV-Befehl mit den bisherigen Parametern sicht- 
bar. Nun bewegen Sie den Cursor mit gleichbleibendem x- 
Wert auf die y-Ordinate 0 (ganz unten). Wenn Sie nun ein- 
mal die rechte Cursortaste drücken und im Anschluß daran 
<COPY>, erhalten Sie eine Hüllkurve in Form eines Drei- 
ecks. Sollen sich spätere Kurven über mehrere Bildschirme 
hinweg erstrecken, gelangen Sie durch Druck der Leerta- 
ste in diese weiteren Bereiche. 

Die Kurve ist vollständig und deshalb nicht mehr zu 
erweitern, wenn die Parameter des ENV-Befehls am unte- 
ren Bildschirmrand vollzählig sind. Drücken Sie jetzt 
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<ENTER>, um ins Hauptmenü zu gelangen (Bild 3). Der 
Cursor steht auf dem Punkt »Spielen«. In diesem Menü löst 
die ENTER-Taste die Funktionen aus. Probieren Sie es also 
einfach mal mit <ENTER>, und Sie hören mit dem Kam- 
merton A, was Sie gerade eingegeben haben. Die anderen 
Unterpunkte erreichen Sie, indem Sie den Cursor mit der 
oberen und unteren Cursor-Steuertaste bewegen. Beim 
Sichern erzeugt der Envelope Composer ein Basic- 
Programm mit den generierten ENV-Befehlen. Diese die- 
nen später als Grundstock für eigene Musikprogramme. 

»Helppage« ruft ein Hilfsmenü auf (Bild 4), das die wich- 
tigsten Bedienungsregeln in Erinnerung ruft. Mit »Dia- 
gramm« erhalten Sie nicht nur einen Überblick über die 
gesamte Hüllkurve (wie in Bild 2); hier läßt sich auch die 
Hardcopy aufrufen. Wollen Sie eine weitere Hüllkurve ent- 
wickeln, bedienen Sie sich des Menüpunkts »Ende«. Das 
Ende der Arbeit leiten Sie über »Programm verlassen« oder 
durch zweimaligen Druck der Taste <ESC> ein. 

Das Programm nutzt - wie übrigens auch die vier Abbil- 
dungen zeigen - die verschiedenen Schriftgrößen aller drei 
Bildschirmmodi gleichzeitig. Daes auf einem CPC 464 ent- 
wickelt wurde, arbeitet diese Ausgabeart nicht auf den 
CPCs 664 und 6128. Die Zeichen erscheinen auf Compu- 
tern dieser Bauserie in gewohnter Modus-2-Darstellung. 
Andere Einschränkungen existieren jedoch nicht. 

(Michael Wessel/ja) 


[3080] 
LICAB]I 
CABS®] 
LIFSB8]I 
[5488] 
[845A] 
[86452] 
[845E] 
[4B&C]I 
[F464] 
[6D32] 
[B35E] 
[8876] 
LE282] 
E[SABCI 
[8ES@] 
[BSBE] 
CA1SA] 
[85C2] 
[2008] 
[F&D6] 
[6142] 
C[B77E] 
CCAD6] 
L&6AFCI 
LE2BE] 
[BAB2] 
Lacc2] 
[2764] 
EB1EA] 


RER 
2 Envelope - Composer * 

Michael Wessel „ 19786 * 
'* 2008 Hamburg Niendorf * 
nn ns 


"Arrays definieren 


ON BREAK GOSUB 3538 

MEMORY &AFFF:DEFINT a-z:DEFREAL s 
DIM t(4,14),5(4,14),1(4,14) 

DIM erlau(14),l1e(14) 
LOAD"envelope.bin 
LOAD"envelope.hrd 

CALL %5901 

svscr=%5116 


"Variablen definieren 


part=-1 
y=-21:x=8 
csteig>1 


ax=B: ay=8d 
"Screenparameter 


MODE 2 
INK 8,13 
BORDER 13 [33EC]I 
INK 1,13 [88F®] 
PEN 1 [34D4] 
z [BO4BC] 
"Windows definieren [DCB6] 
_ [84C0] 
WINDOW #1,72,76,3,3:WINDOW #2,72,76, 

L45CE] 


4,4 

WINDOW #5,3,28,4,4: WINDOW #6,3,38,4 
‚4: WINDOW #7,4,77,24,24 

PAPER #7,1:PEN #7,8 

PAPER #4,1:PEN #4,8 

PAPER #2,1:PEN #2,8 


[AFCö] 
[O7FCI 
[DIEB] 
C[FADA] 
LEöBA] 
"Rahmen zeichen [ö57E] 
N CEA4BE] 
PRINT CHR$ (158) +STRING$ (78,154) +CHR$ 

(156) [A526] 
FOR iy=2 TO 24 CFDBö] 
LOCATE 1,iy:PRINT CHR$(149):LOCATE 8 

@,iysPRINT CHR$(149) [5218] 
NEXT LAEFö] 


LOCATE 1,25:PRINT CHR$ (147) +STRING$ ( 
78,154) +CHR$ (153); 

LOCATE 68,2:PRINT CHR$ (158) +STRING$( 
16,154) +CHR$ (156) :LOCATE 698,3:PRINT 
CHR$ (149) +STRING$ (16,32) +CHR$ (149) :L 
OCATE 68,4:PRINT CHR$ (149) +STRING$ (1 
6,32) +CHR$ (149) :LOCATE &8,5:PRINT CH 
R$(147)+STRING$ (16,154) +CHR$ (155) 
LOCATE 43,2:PRINT CHR$ (159) +STRING$( 
15,154) +CHR$ (156) : LOCATE 43,3:PRINT 
CHR$ (149) +STRING$ (15,32) +CHR$ (149) :L 


LEBS6] 


ny-Lomposer © 1366 5 Michael hesse 


eys (#9) = entspreche 
2#<ESC) = Programm verlassen 
Huellkurvenpart definieren 
{ENTER? = Hauptmenue einblenden 
SPACE) = eine Seite weiterblaettern 
EXIT) 


menuekommandos 
Helppage = dıe Helppage wird eingehende 
Diagramm = Huellkurve wird in Diagrammform ausgeben. 
de = neue Huellkurve definieren , alte abschliessen 
Spielen = die momentane Huellkurve wird hoerhar 


M Sichern = alle definierten Huellkurven auf Diskette/Kassette sichern 
<ENTER) 


= Funktion ausfuehren 
<TASTE> druecken zum verlassen 
VOLUME i in 8.01 Sek,. == 
ENV 1 1,98 0, 8,8, 0,9,8, 


Bild 4. Haben Sie im Eifer des Gefechts einmal die Bedie- 
nung vergessen, hilft Ihnen der Aufruf der »Help-Page« auf 
die Sprünge 


OCATE 43,4:PRINT CHR$ (149) +STRING$ (1 
5,32) +CHR$ (149):LOCATE 43,5:PRINT CH 
R$ (147) +STRING$ (15,154) +CHR$ (153) 
LOCATE 2,3:PRINT CHR$ (158) +STRING$ (3 
8,154) +CHR$ (156) :LOCATE 2,4:PRINT CH 
R$ (149) +STRING$ (38,32) #CHR$ (149) :LOC 
ATE 2,5:PRINT CHR$(147)+STRING$ (38,1 
54) +CHR$ (153) [SSE2] 
s [87BE)] 
[SF74] 
LE1C2] 
ıXDON (8158) 
FOR ix=4 TO 77 [SiCC] 
LOCATE ix ,22:PRINT CHR$ (207) [91BQ0] 
IF LEN(STR$(ix/1B8))<3 THEN LOCATE ix 
+5,22:PRINT CHR$ (143) [B6A8]I 
NEXT [7CEA] 
ıXOFF [CöCC) 
" [BEBE] 
[A476] 
L18C2] 


'x-Leiste der Grafik 


"y-Leiste der Grafik 


FOR iy=21 TO 6 STEP-1 [2@2E] 
LOCATE 2,iy:PRINT USING"##"5;16-(iy-5 

); PRINT CHR$ (143) [DE76] 
NEXT L1CF8] 
LOCATE 4,22:PRINT CHR$(143):LOCATE 4 
„21:PRINT CHR$ (143) [99A2] 
5 LESCCI 
[2696] 
[B9BE) 


C[D&D4] 
[BF42] 


"Beschriften 


LOCATE 62,3:PRINT"X (Laenge)=":LOCATE 
62,4:PRINT"Y(Hoehe) =" 

CLS #1:CLS #2 

LOCATE 2,2:PRINT"X Env-Composer "+CH 
R$(164)+" 1986 by<2>Michael Wessel X 
“ [CABS] 
LOCATE 4,23:PRINT"X VOLUME X"+STRING 
£(66,143) [C1A6] 
ıMmi [346E] 
LOCATE 8,23:PRINT"X<== Zeit in B.B1 
Sek „ ==>X" [8A96] 
2 CB2CC] 
[4B94] 
[1BBE] 
ıM2 [6B68] 
!XON [1856] 
WINDOW #3,79,79,2,24:PAPER #3,8 [6B84A] 
LOCATE #3,1,5:PRINT #3, "PAGE: "+HEX$( 

page) [399C] 
DRIGIN 8,8 [3962] 
FOR ix= 4x8 TO 778 STEP 8:MOVE i 
x,4*16-1:DRAW ix ,20#*16-1,1:NEXT 

FOR iy=2@*16 TO 4*16 STEP -16:MOVE 7 
748,iy-1:DRAW 4*8,iy-1,1: NEXT 

MOVE 77*8,28*16:DRAW 3%*8,28%*16:MOVE 
77*8,4*16-1:DRAW 77*8,16 

INK 1,8: IF page>® THEN FAPER #3,1:60 
TO 133® 


"Gitter zeichnen 


[9ABAI 
LAZFA] 
[79BA] 


[3SB®] 
[BECO] 
[4118] 
[18C4] 
[4D94] 
[4504] 


"Env-Nummer eingeben 


enves=® 
FOR i=8 TO 14 


IF 1(8,i)<>® THEN enves=enves+ti1 
NEXT 
text$=STR$(enves)+" = Anzahl der bel 
egten Huellkurven .„" 
GOSUB 2418 
'WAIT, &5000 
ıM1 


INPUT #5,"Env Nummer :",n 

IF n<i OR n>15 THEN 18218 

n=n-1 

FOR i=8 TO 4 

IF 1(i,n)=@® THEN NEXT:GOTO 1168 
text$=" Diese Huellkurve existiert 
bereits !" 

GOSUB 2418 

IWAIT ,&5008 

ıM2 

INPUT #7," Soll sie geloescht werde 
n <J> <N> "zwahl$ 

IF UPPER$ (wahl$)<>"J" THEN 1988 
FOR i=® TO A4:t(i,n)=B:s(i,n)=@:l(i, 
n)=B:NEXT 

text$=" 0.K.,Huellkurve geloescht . 
":G0OSUB 2418 

enves=enves-1 

ıWAIT ,& 59008 

MO 


LOCATE 52,1:PRINT"ENV":LOCATE 52,2: 
PRINT USING"##";n+1 

text$=" Start-Lautstaerke der Envel 
ope setzen .„" 

GOSUB 2418 

LOCATE #3,1,14:PRINT #3, "ENVES: "+HE 
X$(enves); 

PAPER #3,1 

GOTO 1378 


"Cursor-Routine 


IXON 
a$=INKEY$: IF a$="" THEN 1278 

IF a$=CHR$ (13) THEN 3238 

LOCATE x+5,y:PEN @:PRINT CHR$ (233) 
IF INKEY(@)=@ THEN y=y-1 ELSE IF IN 
KEY(2)=@ THEN y=y+1 

IF INKEY(8)=® THEN 2598 ELSE IF ste 
igung<255 AND INKEY(1)=® THEN 267® 
IF INKEY(47)=@ AND part>-1 THEN 248 


[} 

IF x+tofs<ax+1 THEN x=ax+1-ofs 

IF y<6& THEN y=& ELSE IF y>21 THEN y 
=21 


IF x>72 THEN x=72 ELSE IF x<B OR pa 
rt<® THEN x=8 

IF INKEY(9)=B AND x<72 THEN IF part 
<@ THEN ay=y:part=B:erlau(n)=16-(y- 
S):CLS #7:x=x+1:60T0 1378 ELSE IF p 
art<5 THEN 1468 

PEN 1:L0OCATE x+5,y:PRINT CHR$ (233) 
IF ay<>y THEN steigung=((x+tofs-ax)/ 
ABS(y-ay)) ELSE steigung=x+tofs-ax 
IF steigung=INT (steigung) THEN PAPE 
R #1,1:PEN #1,8 ELSE PAPER #1,8@:PEN 


#1,1 
CLS #1:1IF x<72 THEN PRINT #1,INT (st 
eigung); 
CLS #2:PRINT #2,STR$(16-(y-5));5 
G0TO 1278 


"Steigung o. Gefaelle berechnen 


dx=x+tofs-ax:ıdy=ABS (y-ay) 

IF (dx<>@ AND dy<>B) THEN steigung= 
(dx/dy) ELSE en 

IF (dx/csteig)<1 THEN text$=" Schri 
tt zu klein !!!":G60SUB 2418:G60T0 13 
78 


IF steigung<>INT (steigung) THEN GOT 
O0 1378 

PEN 1 

IF y>ay THEN 16648 


"Steigung (Positiv) 


IF ax>ofs THEN WINDOW #4 ,ax+5-ofs,x 
+5,ay,21 ELSE WINDOW #4,5,x+5,ay,21 


Xx=x 
FOR iy=y TO ay 

IF xx+5>4 THEN WINDOW #3,xx+5,x+5,i 
y,‚iy ELSE WINDOW #3,5,x+5,iy,iy 
CLS #3 

a 


NEX 
G0OTO 1758 
"Gefaelle (Negativ) 


IF ax>ofs THEN WINDOW #4 ,ax+5-ofs,x 
+5,y,21 ELSE WINDOW #4,5,x+5,y,21 
xX=xX 

IF ax>=ofs THEN ddx=ax-ofs ELSE ddx 
=8 

FOR iy=y TO ay STEP -1 

IF xx+5>4 THEN WINDOW #3,ddx+5,xx+5 
‚„iy,iy:CL5S #3 


CA&C5ö] 
L1DFC]I 


[8905] 
[C250]1 
CFF14] 
[58B&]1 
L1E16] 
c[D222] 
LAEBö] 
[E9B2] 
[3996] 


[F1iE4] 
t599E] 
[5262] 
[73CA] 


[FIE2] 
[88536] 


[C52A] 


[928A] 
[C285] 
[2B5E] 
(62C2] 


[9D98] 


[B1E8] 
[4QA4] 


L5SF9@] 
U3BSE] 
LCAS12] 
CB81A] 
L&D3E] 
[921E) 
[3EB4] 
[35F@)] 
[9A9?2] 
[BBFE) 


tEAFE] 
CA4BE] 


[25C2] 
[8488] 


L9A2ZE) 
C[B438] 


LEESCI 
[DIFEI 


[AFCB] 


[F34A] 


[35C74) 
LEE1C]I 
[5514] 
[BBSI1E) 
[1824] 
[9622] 
CBEEB®] 


[F@26] 


[3AB4] 


[ABs4] 
[DES4]1 
[29C6] 
CBI1EI 
[326A] 
[9322] 


[52B8] 
t@c22] 
[4592] 


[9AEB]I 
[FABE] 
[972E] 
[S94E] 
[7E28] 
c[Cc@22] 
[CBCC] 
CE226] 


[3538] 
[4726] 


[5614] 
[F9AC] 


[8D18]1 


xx=xx-steigung 
NEXT 


"in Arrays setzen 


CLS #5 

PAPER #4,1:PEN #4,8:CLS #4 

Mi 

PRINT #5,"P"part+1":X"; 

IF ay=y THEN PRINT #5, h * HOLD * x" 
:G60T0 1838 

PRINT #5,dy;:IF ay>y THEN PRINT #5, 
u Wa | ELSE PRINT 45,°-5 "3 

PRINT #5, "&"+HEX$ (steigung)+" X"; 
IF ay=y THEN t (part,n)=1:s(part,n)= 
jesitpart, ‚n’=ROUND (dx/csteig): G0TO 
1 

IF y>ay THEN s(part,n)=-1 ELSE s(pa 
rt,n)=1 

t(part,n)=dy 

l(part,n)=steigung 

text$=" ENV"+STR$ (n+1) 

FOR i=® TO 4 

text$=text$s+","+STR$(t (i,n))+","+ST 
R$(s(i,n))+","+STR$(1(i,n)) NEXT 
GOSUB 2418 

ax=xtofsıay=y 

part=part+i1 

le(n)=®:FOR i=B TO 4:le(n)=le(n)+l( 
i,n)#*t(i,n)=zNEXT 

GOTO 1338 


"Env spielen 


! SVSCR,svscr 

WINDOW #4,5,77,6,21:PAPER #4,8:PEN 

#4,1:CL5 #4 

ıXOFF: IM@: PRINT #4:PRINT#4,"Env Nr. 
:"n+1 

ı‘M1:PRINT #4,"<4>lautstaerke :" 

PRINT #4 

PRINT #4:FOR i=B TO 4:PRINT #4,"Par 

t"i+l"e"; 

PRINT #4 ,USING"##";t(i,n);:PRINT #4 
‚USING"###" 35 (i ‚n) 3 zPRINT #4," "3:P 

RINT #4 ,„USING"###"3;1(i ,n) NEXT 

ENV n+1 It(@,n), s(8,n) ‚lca,n),tc, n) 
‚s(1,n),lti,n),t(2,n),s(2,n),l(2 1) 
„t(3, a Is (3, nl SLXS, In), ta, n),s(4,n) 
‚„l(4,n 

PRINT 44: PRINT #4:PRINT #4,"<TASTE> 
druecken zum verlassen .„" 

IF INKEY$<>"" THEN !M2: !SORESET: !LD 

SCR,svscr:GOTO 1268 

LOCATE #4,18,3:PRINT #4,PEEK (%&BS6B) 


!SOTEST,1:IF PEEK(%5Q@88)=4 THEN SOU 
ND 1,284,le(n) ‚erlau(n) ‚n+1 
GOTO 2978 


"Sichere Huellkurven 


ıSVSCR,svscr:WINDOW #4,5,77,6,21:PA 
PER #4,8:PEN #4,1:CLS #4 

PRINT #4: PRINT #4 

'M1: INPUT #4," Erste Zeile<3>:",erz 


e 
INPUT #4," Zeilenabstand :",zeab 
ıM2=:PRINT #4:PRINT #4,"<3>X Generie 
rtes BASIC-Programm : X" 

PRINT #4 

IF erze=B THEN erze=18 

IF zeab=® THEN zeab=18 

OPENOUT" !env-bl.bas" 

FOR i=@ TO 14 

IF 1(8,i)=B THEN 2328 

zeile$=MID$ (STR$(erze) ,„2)+" ENV "+M 
ID$(STR$(i+1),2) 

FOR ii=@ TO 4 

zeile$=zeile$+" ,„"+MID$(STR$(t (ii,i) 
),2)+","+MIDS(STR&(s(lii,i)),1)+","+ 
MID$(STR$(1(ii1,i1)),2) 

NEXT ii 

zeilef=zeile$+" SOUND x ,x,"+MID$( 
STR$(let(i)) ,„2)+","+MID$(STR$(erlau( 
i)),2)+","+MID$(STR$(i+1) „2)+",x,x" 


PRINT #4," "+zeile$:PRINT #9,zeile$ 


erze=erzetzeab 

NEXT i 

CLOSEOUT 

PRINT #4:PRINT #4,"<3>Fertig.Das Pr 
ogramm ist unter dem Namen":PRINT # 
4,"<3>ENV-BL.BAS gesichert ." 

GOSUB 3578 

ıLDSCR,svscr 

GOTO 1268 


"Subroutine : Textmeldungen in Wind 
ow #7 


ıM2:CLS #7 


[F632] 
[F@S2] 
[9824] 
[A26A] 
[9628] 
[F698] 
[517C] 
[6ED4] 
[8534] 


E3AFC] 


[2246] 
[24A6] 


[42B8] 


[BA70] 
ESCSCI 
£[6D48] 
[E88C] 
[81CA] 


CBOCA]I 
L70A2] 
EFB&C)I 
[37E6] 


[DsBA]1 
£731C] 
tCc22C] 
C[B7AB] 
CE438] 
[8CB8] 


[846E] 


[38D6] 
(59D4] 
[E4D®) 


CABB4] 


[6FBQ] 


[1B48] 
[5702] 
[9FACI 
C(FS@4] 


CBES54] 
LASBA] 
CBD16] 
CD488] 
CBB1A] 


LIFIE] 
17954] 


[7D98] 
CBFDA] 


[3@DA] 
[BSE®] 
C8DF2) 
[89A4] 
[693A] 
[5B18] 
[6778] 


[9BAEI 
LABBE] 


[147E] 
[893A] 


[319A] 


[BF1A] 
[9DB8] 
CDESE] 
Cö6ACI 


[2F18] 


[9828] 


[6458] 
[921A] 
[C1F8)] 


Listing 1. »Envelope Composer«-Hauptprogramm 


PRINT #7 ,text$ £9188]1 


FOR i=7 TO 8 STEP -1:SOUND 1,284,3, 


i:NEXT [DsBA] 
RETURN CAD94] 
y [9524] 
"Page + 1 [9358] 
2 [B728] 


IF ay<>y THEN steigung=INT ((x+tofs-a 
x+72)/ABSty-ay)) ELSE steigung=x+tof 


s-ax+72 [SBEA] 
IF steigung>255 THEN 1378 L8F3@] 
ofs=ofs+72 LFE9B] 


LEB9ICI 


Degmpagert [1176] 
=d 


WINDOW #4,5,77,6,21:PAPER #4,B:PEN 


#4,1 CB836] 
CLS #4:PAPER #4,1:PEN #4,8 [A374] 
GOTO 818 C71BC] 
" [9628] 


"Naechste Position fuer Eingabe auf 


Y-Hoehe berechnen -— [CE7AB] 
X CBC2C]I 
IF y=ay THEN x=x-1:G60T0 1338 [6B86] 
FOR ix=x+tofs-1 TO STEP-1 [5C58] 
dx=ix-ax:ıdy=ABS (y-ay) CFDC8] 


IF ER /OymENT lan Zay) AND dx/dy<256 T 


HEN x=ix-ofs ELSE NEXT C4ABO] 
GOTO 13358 CAF16] 
" [BA26] 


"Naechste Position fuer Eingabe auf 


Y-Hoehe berechnen + [C5A2] 
1. [CBS2A] 
IF y=ay THEN x=x+1:60T0 133@ C2AQ@] 
FOR ix=xtofs+1 TOD ofs+x+72 CD97C] 
dx=ix-ax:dy=ABS (y-ay) LCESD8] 


IF dx/dy=INT (dx/dy) THEN x=ix-ofs E 


LSE NEXT [A985] 
GOTO 1338 4914] 
ö CBA24] 


"Huellkurvendiagramm ausgeben (Uebe 


rsicht) [SCAS] 
2 [9428] 
ı SVSCR,svscer [8AB®] 
ıXOFF CDB3C]I 
WINDOW #4,1,80,1,25 [90840] 
CLS [298A&] 
ıM@:PRINT "Diagramm von" CEES6] 
PRINT "Huellkurve Nr. "n+1 t1@F4] 
ıM2 [7&CC] 
ORIGIN 8,3908 [C386] 
iy=Q8:xphys=B: yphys=erlau(n) [6356] 


FOR i=-58 TO 288 STEP 58:PLOT B,-i: 


DRAW 637,-i:NEXT [SCE2] 


MOVE 8,8:DRAWR B,-288:DRAWR 8,258:M 


QOVE 637,8:DRAWR ®,-200:DRAWR 8,258 L59C6] 
MOVE @,erlau(n)#3+1 [49858] 
FOR i=8 TO 4 [37CA]I 


IF sti,n)<>ABS(s(i,n)) THEN yvektor 


=-t(i,n) ELSE yvektor=t (i,n) CDSBE] 
IF st(i,n)=16 THEN yvektor=® CDBFAI 
xphys=xphys+tl (i,n)#2 [6ECE] 


IF xphys<637 THEN DRAWR 1(i,n)#2,yv 
ektor#*3:yphys=yphys+tyvektor ELSE iy 
=iy-5@:0RIGIN 8,3808+i1y:MOVE B,yphys 


*3:xphys=8:60T0’ 2908 LC21A] 
NEXT LFES8] 


ıM1:LOCATE 1,28: INPUT "Hardcopy <J> 
<N> "zwahls: IF UPPER$ (wahl$)="J" T 
HEN INPUT "<D>iagramm oder <B>ildsc 
hirm ";wahl$: !M2: IF UPPER$ (wahl$)=" 
B" THEN !LDSCR,svscr: !HARDCOPY ELSE 


!IHARDCOPY C[3DDA] 
LOCATE #4,1,22:G0SUB 3578 [1168] 
!LDSCR,svscr [2282] 
GOTO 12648 [A926] 
. £C732] 
"Helppage C[9B88] 

[C536] 
ı SVSCR,svscr C8D9A] 


WINDOW #4,5,77,6,21:PAPER #4,B:PEN 


[152A] 
C1B7C] 


RER 


"* ENVELOFE.BIN - DATA-Lader von CFC * 
RT ETNEEEER 


DATA 5080 ,84,01,0A,58,21,5E,5@0,C3,4613 
DATA 5088,D1,BC,2D,50,C3,62,58,C3,4@D3 
DATA 5010,74,50,C03,86,50,C03,93,58,3EFA 
DATA 5818,C3,97,50,03,9D,50,C3,FB,A6AS 
DATA 5820,58,C3,A3,50,C3,B3,58,C3,0D17 
DATA 5028,CD,50,C3,1B,AQ,53,56,53,6FE3 
DATA 5030,43,D2,4C,44,53,43,D2,53,1AA3 
DATA 5038,4F ,54,45,53,D4,53,4F ,52,3838 
DATA 5840,45,53,45,D4,58,4F ,CE,58,3198 
DATA 5048,4F ,46,C06,57,41,49,D4,4D,2979 
DATA 5058,B8,4D,B1,4D,B2,48,41,52,5DD® 
DATA 5058,44,43,4F,50,D9,00,53,58,381E 
DATA 5060,BA,580,FE,801,C0,DD,56,81,2B09 
DATA 59868,DD,5E,20,21,80,C8,81,FF,78ED 
DATA 5078,3F ,ED,B8,C9,FE,@1,C8,DD,38F9 


[31D4] 
LE4AE] 
[A3DB] 
[DEB&] 
£52D2] 
[CDs4] 
[A444] 
[629A] 
[1838] 
[SE88] 
[D71E] 
[3718] 
[&94C] 
[1164] 
[6768] 
[4518] 
[6B5A] 
[OD9IE) 
[BB1A] 


ıMB:PRINT #4,"X Help-page X" 
‚Mi: PRINT #4,"X Direkteingaben<11>X 


ıM2:PRINT #4," Cursorkeys <";:FOR i 

=248 TO 243:PRINT #4,CHR$(i); NEXT: 

PRINT #4,"> = entsprechende Cursor- 

Richtung" 

PRINT #4," 2*<ESC> = Programm verla 

ssen" 

PRINT #4," <COPY><2>= Huellkurvenpa 

rt definieren" 

PRINT #4," <ENTER> = Hauptmenue ein 

blenden" 

PRINT #4," <SPACE> = eine Seite wei 

terblaettern" 

ıM1:PRINT #4,"X Hauptmenuekommandos 

<6>X":1M2 

PRINT #4," Helppage = die Helppage 
wird eingebendet" 

PRINT #4," Diagramm = Huellkurve wi 
rd in Diagrammform ausgeben" 

PRINT #4," Ende<5>= neue Huellkurve 
definieren „ alte abschliessen" 

PRINT #4," Spielen<2>= die momentan 
e Huellkurve wird hoerbar" 

PRINT #4," Sichern<2>= alle definie 
rten Huellkurven auf Diskette/Kasse 

tte sichern" 

PRINT #4," <ENTER><2>= Funktion aus 

fuehren"” 

GOSUB 3578 

!LDSCR,svscer 

GOTO 1268 


"Pull-down-Menue 


iy=3 

ıXOFF 

ıSVSCR,svscr 

WINDOW #4,5,77,6,21:PAPER #4,8:PEN 
#4 ,1 

CLS #4 

ıM@: PRINT #4,"XHaupt-MenueX" 
!M1:PRINT #4:PRINT #4,"<2>S5pielen"” 
PRINT #4,"<2>Sichern" 

PRINT #4 ,"Z2>Helppage" 

PRINT ee 

PRINT ‚"<Z>Ende" 

PRINT 34° "<2>Haupt-Menue verlassen" 


PRINT #4,"<2>Programm<4>verlassen" 
GOTO 3438 

as=INKEY$: IF a$="" THEN 3378 
LOCATE #4,1,iy:PRINT #4,"<2>" 

IF a$=CHR$ (248) THEN iy=iy-i 

IF a$=CHR$ (241) THEN iy=iy+i 

IF a$=CHR$(13) THEN 3458 

IF iy<3 THEN iy=3 ELSE IF iy>? THEN 


iy=9 
LOCATE #4,1,iy:PRINT #4,.CHR$ (247) +C 
HR$ (246) 
GOTO 3378 
ıM2: !LDSCR,svscr:ON iy-2 GOTO 19880, 
2140,30008,2750,3490,1260,353@ 
"Neue Huellkurve definieren 
MODE 2:G60T0 288 
"Programm verlassen 
INK 1,8:PEN 1:MODE 2:END 


"Auf Taste warten 


!M1:PRINT #4 
PRINT #4,"<TASTE> druecken zum verl 


assen .„" 
CALL &BBB6: !M2: RETURN 


Listing 1. »Envelope Composer«-Hauptprogramm 


5978,66,01,DD,4E,08,11,28,C0,2E84 
5280,01,FF,3F,ED,B@,C9,FE,91,3129 
5888,C0,DD,7E,@8,CD,AD,BC,32,5D16 
5998,00,58,C9,CD,A7,BC,C9,3E,0794 
5@98,81,CD,9F,BB,C9,3E,@08,CD,2DED 
SBAB,9F,EB,C9,21,C8,B1,36,800,7E98 
5@AB,21,CF,B1,36,F®,21,D8,B1,3015 
S5@BB,36,80F,C9,21,C8,B1,36,801,8719 
S@B8,21,CF,B1,36,C0,21,D®,B1,3195 
5@C9,36,38,21,D1,B1,36,@C,21,1B59 
S5@C8,D2,B1,36,03,C9,21,C8,B1,445D 
5@D9,36,02,21,CF,B1,36,8@,21,1721 
5@D8,D0,B1,36,48,21,D1,B1,36,4598 
SBEQ@,20,21,D2,B1,36,18,21,D3,8871 
SQOE8,B1,36,88,21,D4,B1,36,04,521C 
S@F®,21,D5,B1,36,22,21,D6,B1,3109 
S@AF8,36,801,C9,FE,801,C00,06,05,BE81 
510@,DD,66,21,DD,6E,2@,2R,7D,79AB 
5188,FE,028,C2,06,51,7C,FE,20,65A4 


LEEAB] 
[C4B6] 


[2968] 
EDFC&] 
L3CAA] 
[@D88) 
[C21E)] 
[SBöC) 
C[B488) 
[92DA] 
CACBE] 
[243E] 


£333C] 


L4564E] 
[61B4] 
[167A] 
CABI1E] 
[9318] 
LAs6C] 
[911C] 
[8174] 
[E438] 
CAFAB] 


[8238] 
[F9BA] 
LBEDA] 
[F2C8] 
[B1CC)] 
[9282] 
[D67C] 
[8F32] 


[5374] 
L9B&E) 
LAS1E] 
L38FC) 
[B9ECI 
[552C] 
[441A] 
tEC9I4] 


CCBC4] 


[BDECI 
CB922] 


[9A72] 
LES28] 
[@OB44] 
[972C] 
[1318] 
CBD1E] 
[8E9Q0] 
[BB22] 
[9454] 
[9926] 
[8184] 
[972A] 
[B14E] 


U[5A1A] 
tac18] 


(Schluß) 


[BBS3A]I 
[26BC] 
L3CF8] 
[BAACI 
[S42E] 
TAAB2] 
[935A] 
LAB3A]I 
[4460] 
[4F20] 
[D78A] 
[FOFB] 
EFSSC]I 
[&CFQ] 
LAC32] 
[8828] 
[2848] 
[F7CO] 
[SE88] 


DATA 5118,C2,85,51,18,EB,C9,88,88,4FDC 
DATA #ENDE+ 

adr=%.:59080d: zeile=194:MEMORY adr-1 

READ d$: IF d$="#ENDE*"THEN 152 

pr=2 

FOR i=1 TO 8 

READ a$:a=VAL("&"+a$) 

FOKE adr ‚a:adr=adr+i1 

pr=pr*2: IF pr>65535 THEN pr=pr -55535 
pr=UNT (pr)X0OR a:IF pr<® THEN pr=pr+6553 
& 


[1F62] 
[DECE] 
[SF@2] 
[L7E86] 
[ö10C1 
[3062] 
[AS482] 
[BB1iC] 
CE19C] 


[A4B4] 


EU NHN HHHHHH 
"* ENVELOPE.HRD - DATA-Lader von CPC + 
EEE EHE HR EHE 


£[31D4] 
[S58B8] 
CA3D8] 
CDEB&] 
(913C] 
[4184] 
[96E8] 
[SESA] 
[2608] 
[8534] 
CEBDö] 
[S88E] 
CBBA2] 
[SAd4] 
[2BD8] 
[S1D8] 
CBOB4)] 
[DF22] 
[2D5A] 
[SED2] 
LAC9B] 
[7D66] 
LEBSCA] 
[7Da®] 
[6EB2] 
L[SE94] 
[2B44] 
CABTE]I 
[6CC4] 
CED84] 
£[97DA] 
[CA72] 
[FCSQ] 
[827A] 
[6856] 
[9SA6] 
[1262] 
[2582] 


DATA AB@B,21,89,AB,21,17,AQ,C3,D1,17BF 
DATA ABQ8,BC,BE,AQ,C3,1B,A®,48,41,4739 
DATA AB19,52,44,43,4F ,50,D9,08,08,3574 
DATA AB18,00,20,20,CD,@B,BC,22,4C,@E70 
DATA AB2@,A1,CD,11,BC,32,4E,A1,21,6BEB 
DATA AQ28,5F,A1,3D,28,89,21,57,A1,0223 
DATA AQSQ,3D,28,03,21,63,A1,21,08,1766 
DATA AB3S8,0@,11,4F,Al,ED,B@,ED,73,03B1 
DATA AB40,6E,A1,3A,4E,A1,87,FE,01,1AQ9 
DATA AB48,CE,80,87,32,66,A1,@E,@D, 7565 
DATA ABS®,CD,37,A1,8E,0A,CD,37,A1,7C2B 
DATA AB58,3E,02,CD,AD,AQ,SE,7F,32,809C4 
DATA AB6B,65,A1,2A,4C,A1,7C,F6,C0,1E94 
DATA AB68,67,06,1D,05,20,05,3E,78,30E8 
DATA AB70,32,65,41,804,C5,CD,C2,AQ,1818 
DATA AB78,3A,4E,A1,FE,22,CC,C2,AQ,1744 
DATA AB80,11,20,808,A7,ED,52,7C,F6,@85DE 
DATA AB88,3F,3C,28,08,11,B@,3F,19,172F 
DATA AB90,7C,F6,F8,67,@0E,0A,CD,37,1B85 
DATA AB98,A1,8E,@D,CD,37,A1,ES,3E,5CB8 
DATA ABAB,42,CD,1E,BB,C2,47,A1,E1,1C9F 
DATA ABAB,C1,10,C0,3E,83,21,70,A1,7FBD 
DATA ABBO,4E,23,06,00,09,3D,20,F8,2F84 
DATA AQBB,46,23,4E,23,CD,37,A1,1@,27D6 
DATA ABCO,F9,C9,E5,21,70,A1,3A,4E,S14E 
DATA ABC8,A1,FE,02,28,05,4E,23,86,6C90 
DATA ABD®,23,29,CD,B8,AQ,E1,3A,4E,16DE 
DATA ABD8,A1,FE,02,06,28,28,02,06,6EC2 
DATA ABE®,52,C5,E5,11,67,A1,3E,07,8537 
DATA ABEB,ED,AB,2B,01,00,08,09,30,5BF2 
DATA ABF@,0A,21,50,C0,09,47,7C,E6,820A 
DATA ABF8,C7,67,78,3D,28,EA,21,4F,7435 
DATA A10B,A1,3A,66,41,47,C5,11,67,59B9 
DATA A1Q8,A1,06,07,1A,13,A6,FE,81,53BD 


148 NEXT i 

149 READ pr&£:pr2=VAL("%"+pr£): IF pr2X® THEN 
pr 2=pr2+65536 

158 IF pr“>pr2 THEN PRINT"FPruefsummenfehler 
in Zeile";zeile:STOP 

151 zeile=zeile+t1:60T0 141 

152 SAVE"ENVELOFE.BIN",.B.&SBQQ,% 116: END 


Listing 2. Der DATA-Lader enthält den Maschinencode 
für die Befehlserweiterung zum Envelope Composer 


L9ABA] 
[2A96] 


[Cö2C) 
[DBS6] 
[C420] 


DATA A1i18,3F,CB,11,18,F6,3A,65,A1,2953 

DATA A118,A1,4F,CD,37,A1,3A,4E,A1,5C4D 

DATA A128,A7,CC,37,A1,C1,23,18,DD,6AQ9 

DATA A128,E1,C1,7C,E6,F8,4F ,23,7C,47E& 

DATA A138,E65,87,B1,67,1@,AB,C9,79,6157 

DATA A138,CD,2B,BD,D8,C5,ES,3E,42,73E2 

DATA A148,CD,1E,BB,E1,C1,28,F®,ED,7FDS 

DATA A148,7B,6E,A1,C9,08,00,00,980,S3EB@O 

DATA A152,20,00,209,20,00,00,02,80,20080 

DATA A158,48,28,10,088,84,02,01,88,2A22 

DATA A168,44,22,11,AA,S5,008,00,00,290A8 

DATA A148,28,900,00,00,00,20,00,00,0000 

DATA A170,84,1B,4C,40,81,84,1E,4B,8925 

DATA A178,40,01,03,1B,41,07,053,1B,2399 

DATA A180,41,0C,00,00,00,20,208,00,238@ 

DATA #ENDE*+ 

adr=&.ABBR: zeile=184:MEMORY adr-i 

READ dt: IF d$="#ENDE*"THEN 166 

pr=® 

FOR i=1 TO 8 

READ af:a=VAL("&"+a$) 

POKE adr ‚a: adr=adr+i 

pr=pr*+2:IF pr>65535 THEN pr=pr-65535 
161 pr=UNT(pr)XOR a:IF pr<® THEN pr=pr+6553 

& 


[SA&C)I 
LA9F8] 
[4E96] 
[&BE8] 
[826E)] 
[5512] 
[CF3E] 
[3954] 
[SCS5Q] 
ESABC]I 
[BCEB] 
[BS548] 
[BSBA] 
[4CE4] 
[117A] 
[78C6] 
[7D24] 
E[FB9A] 
[5316] 
[3ASCI 
[F64A] 
[1826] 
CAB9A]) 


[7EAC]I 
[1002] 


[948E) 


162 NEXT i 

163 READ pr$:pr2=VAL("&"+pr&): IF pr2<® THEN 
pr2=pr2+45536 

164 IF pr{>pr2 THEN FRINT"Pruefsummenfehler 
in Zeile";zeile:STOrF 

165 zeile=zeile+1:60T0 155 

166 SAVE"ENVELOPE.HRD" ,b,L%AQQQ,%182: END 


[SE16] 
[226A] 
[6392] 


Listing 3. Die Hardcopyroutine läßt sich an fast alle 
Drucker anpassen oder gegen eigene Unterprogramme 
austauschen 


Lustiges Boxenbasteln 
per Computer 


Das Selberbauen von Lautsprecherboxen für die 
heimische Stereoanlage erspart eine Menge 
Geld. Doch das Berechnen der Bauteiledaten für 
die elektrische Frequenzweiche sowie das Ermit- 
teln des Boxenvolumens und der äußeren 
Abmessungen ist nicht jedermanns Sache. 


ie glauben gar nicht, was Ihr Computer alles kann. 
Mit dem ausgetüftelten Programm »Boxenkit« ist er 
sogar in der Lage, Ihnen sämtliche elektrische und 
physikalische Daten für den Selbstbau von Lautsprecher- 
boxen zu berechnen und den Schaltplan auszugeben. 
Zudem können Sie die Werte für eine Lautsprecherbox 
beliebig oft mit wechselnden Parametern berechnen - bis 
Sie Ihre Traumbox gefunden haben. Im folgenden werden 
wir Ihnen exemplarisch einen kompletten Arbeitsgang mit 
Boxenkit vorstellen. 
Zu Beginn des Programms erscheint das Hauptmenü, 
das folgende acht Punkte zeigt: 
- Daten der Frequenzweiche berechnen 
- Gehäusemaße berechnen 
- Schaltplan anzeigen 
- Daten speichern 


- Daten lesen 

- Daten drucken 

- Programm erläutern 
- Programm beenden 


Wenn Sie schon ein passendes Lautsprecherset besit- 
zen, wählen Sie den ersten Punkt des Menüs an. 

Unter der Kopfzeile des Menüpunktes »Frequenzwei- 
chen« erscheint das entsprechende Arbeitsblatt. Sie kön- 
nen zwischen einer Zweiweg- und einer Dreiwegweiche 
wählen. Haben Sie sich entschieden, so müssen Sie die 
Impedanzen (Scheinwiderstände) der einzelnen Lautspre- 
cher sowie die Übergangsfrequenzen zwischen den Fre- 
quenzbereichen der Lautsprecher eingeben. 

Danach berechnet der Computer in Sekundenschnelle 
die Daten für eine Frequenzweiche mit einer Flankensteil- 
heit von 6 und 12 Dezibel pro Oktave (»6db/Okt.« bezie- 
hungsweise »12db/Okt.«). Die Werte werden in Form von 
zwei Tabellen ausgegeben. 

Am unteren rechten Bildschirmrand erfolgt nun die 
Abfrage, ob die Werte mit anderen Daten erneut berechnet 
werden sollen, oder ob das Hauptmenü gewünscht ist. 

Für die Berechnung des Boxenvolumens und der Gehäu- 
semaße wählen Sie den zweiten Menüpunkt an. Wenn Sie 


95 


Bild 1. Der Schaltplan der Zweiweg-Frequenzweiche 
mit 6 Dezibel Flankensteilheit ... 


Zweiweg-Heiche {12db/0kt.) 


Bild 2. ... und mit 12 Dezibel Flankensteilheit 


sich in diesem Metier nicht auskennen, sollten Sie sich 
jedoch zuvor mit dem vorletzten Menüpunkt Klarheit dar- 
über verschaffen, worum es beim Berechnen der Boxen- 
ausmaße geht. 

Innerhalb gewisser Grenzen kann der Anwender nun 
»seine« Lautsprecherbox entwerfen. Die Grundform der 
Box ist jedoch als Quader festgelegt, und Fehleingaben 
sowie Überschreitungen von Grenzwerten fängt Boxenkit 
ab. 

Hat man sich dann für ein bestimmtes Verhältnis zwi- 
schen Höhe und Tiefe oder Höhe und Breite der Box ent- 
schieden, so berechnet der Computer den dritten Wert und 
gibt gleich noch die Zuschnittmaße für die benötigten Holz- 
platten aus, wobei die Materialstärke selbstverständlich 
berücksichtigt wird. 

Darauf ist der dritte Menüpunkt an der Reihe, denn 
schließlich möchte man auch den Schaltplan für die Fre- 
quenzweiche sehen. Aus Platzgründen haben wir die Bild- 
dateien der vier Schaltpläne, aus denen der Anwender aus- 
wählen kann und die vom Programm automatisch mit 
einem Bestückungsplan versehen werden, nicht abge- 
druckt. Der ambitionierte Leser kann die Schaltbilder 
jedoch aus Bild 1 bis 4 entnehmen und diese als Grafiken 
selbst programmieren oder aber die Leserservice-Diskette 
erwerben, auf der die vier Schaltpläne als für Boxenkit 
erkennbare Bilddateien (»2WEG6DB.GRF«, »2WEG12DB. 


RER ENEER 
"*#* Boxenberechnung V.4.3 ** 
RER 
*%* fuer CFC 464 
ar fuer CPC 664 
** fuer CFC 6128 
ge Eee ee Eee 2 222 22er ee ee 
#*+ von *%* 
*%* Thomas NH. Richter *% 
RRHHHNHHHHHRRR 
** (C) 19864 by GALACDO ** 
EEE 
*%* Erster Teil *%* 
RR 
Installationen % *%* 
Hauptmenue; *%* 
Boxengehaeuse geschl. *%# 
EEE ER 
CLEAR: IF HIMEM>%9FFF THEN MEMORY %9F 
FF:GOSUB 3958 
MODE 1:EORDER 27:1INK 8,27: 1INE 1,1:au 
sgabe=d: ffff=8 [7C64] 
+t=8 [77D8] 


[BB68)] 
[D9ICE]I 
[8F6C]I 
L1ES2] 
[7238] 
LE45C]I 
[AF74] 
[5254] 
LAS16] 
[2EB88] 
U[B9IIE]I 
[ADSCI 
[7DOC]I 
[4790] 
[87AD] 
[2B7A] 
[245C] 
[5398] 


LAFSA]I 


Dreiweg-Weiche (6dh/0kt.) 


BR 


L mitte 


Mittelt. 


Bild 3. Ebenso der Schaltplan der Dreiweg-Frequenzweiche 
für eine Flankensteilheit von 6 Dezibel ... 


Dreiweg-Weiche (12dh/Okt.) 


"= 


L tief 


| Tieft. 
C tief 


ee 
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Bild 4. ... und 12 Dezibel (diesmal mit Bestückungsplan) 


GRF«, »3WEG6DB.GRF« und »3WEG12DB.GRF«) gespei- 
chert sind. 

Von den Schaltplänen lassen sich auch Hardcopies auf 
Druckern, die mit dem Epson-Steuerzeichensatz arbeiten, 
anfertigen. 

Sämtliche Daten können in den zwei folgenden Menü- 
punkten auf Datenträger geschrieben und von Datenträger 
gelesen werden. Die Dateien werden dabei jeweils mit der 
Extension »box« versehen. 

Zu guter Letzt kann man sich die Boxen-Daten über den 
Menüpunkt »Daten drucken« fein säuberlich auf einen 
Bogen im DIN-A4-Format ausgeben lassen. 

Mit diesem Einkaufszettel gehen Sie dann zum Elektro- 
nikshop und zum Schreiner, um das Material für Ihre 
Box(en) zu besorgen. Nichts klingt so gut wie die ersten 
Töne aus einer selbstgebauten Lautsprecherbox! 

(Thomas H. Richter/ma) 


CPC 464/664/6128 


Programm: 


Kassette, Diskette 


FAFER B:FEN 1 

GOSUB 5648 

LOCATE 9,&6:FRINT CHR$ (24); STRING# (22 
»" ")SCHR$(Z4) 

LOCATE 9,7:FRINT CHR#£(24);" HIFI-BOX 
ENBERECHNUNG ";CHRE (24) 

LOCATE 9,8:FRINT CHR# (24) ; STRING# (22 
»" "DISCHRF(24) 

LOCATE 18,11:FPRINT"Frequenzweichen.. 


Datenträger: 


[27D4] 
[2F48] 


[B16&C] 
[8C4C] 
[DS74] 


[464E] 

18,12:FRINT"Geschl. Gehaeuse. 
[F128] 

18,13:FRINT"Schaltplan zeigen 
[E794] 

1Q9,14:FRINT"Daten speichern.. 
[8082] 

12,15:FRINT"Daten einlesen... 
[E7B8] 

19,16:FRINT"Daten ausdrucken. 
TSEBE]I 


18,18:FRINT"Erklaerungen 


[L1SE6] 
18,19: FRINT"Frogramm beenden. 


PrIAPPY# 
:OMPUTER 


6" 
LOCATE 18,23:FRINT"Ihre Wahl bitte.. 
ae 

wahl $= UFFERE (INKEY$): IF wahl$="" 
N 368 

IF wahl$="3" 
[”] 
IF 


THE 


THEN GOSUB 3619:60T0 20 


wahl$="4" THEN GOSUB 45349:G0T0 28 
wahl$="1" 
wahlt="@" 
wahl$s="2" 
wahl#="?" 


THEN ww(2)=1:G0T0 1188 
THEN 2648 
THEN 468 
THEN GOSUB 4229:G0T0 28 


wahl#="5" THEN GOSUB S5818:G60T0 28 


wahl#="&" THEN 4118:G60T0 288 


MODE 2: GOSUB 

:INE 1,1 

LOCATE" 45,4:PRINT CHR$ (24), "<13% 

R# (24) 

LOCATE 45,5:FRINT CHR#$(24);" 

E... "sCHRE(24) 

LOCATE 45,6:FRINT CHR#& (24); "£13> 

Rt (24) 

LOCATE 1,5: INFUT"V (as) 

vast 

IF LEN(vas#):>3 OR vas$=""THEN LOCATE 
1,5:FRINT STRINGF(3ZB+LEN (vas#)," ") 
;:G0TO S1@ 

IF ASC(LEFTE (vas$,1))<48 OR ASC(LEFT 

$(vas#,1))>57 THEN LOCATE 1,5:PRINT 

STRING$ (38+LEN (vas#) ,„" ")5;:GOTO 518 
IF vas$="®" THEN LOCATE 1,5:PRINT ST 

RING (3@," ")53:60T0 518 

IF LEN (vas$#) >=4 THEN LOCATE 1,5:FRIN 

T STRING (38+LEN (vas#) ," "):GOTO 518 


5660: BORDER 27: INK 98,27 
"3; CH 
GEHAEUS 
132"3CH 
- Wert<3>: ", 


IF RIGHT£(vas$,1)="." THEN LOCATE 


S:PRINT STRING$ (3Q+LEN (vas#) ," ")5 
0TO 518 

vas=VAL (vas$): IF va 
1,5:FRINT STRING$ (35," 
LOCATE 1,7: INPUT"Otts) 
gtst 

IF LEN (qts#)>4 OR gqts#=""THEN LOCATE 


“18 THEN LOCATE 
"):G0T0O 518 
- WertiZ> 


1,7:PRINT STRING$ (30+LEN (qts$) ," ") 
::60T0 588 
IF ASC(LEFT$(gts#,1))<48 OR ASC(LEFT 
$(qts$,1))>57 THEN LOCATE 1,7:PRINT 
STRING$ (SO+LEN (qts$) ," ")5:G0TO 580 
IF LEN(gts$)=3 THEN x$=LEFT$(gts$,2 
Ix$=RIGHTE(x$, 1): IF x$<>"." THEN LOC 
ATE 1,7: PRINT STRING$ (3B+LEN (gqts$) ," 
"):G0TO 588 
IF gtst="®" THEN LOCATE 1,7:PRINT ST 
RING$ (38," ");:GOTO 588 
IF LEN(qts$) >=5 THEN LOCATE 1,7:PRIN 
T STRING$ (S®+LEN(qts$) ," "):G0TO 588 


IF RIGHT$ (gqts#$,1)="." THEN LOCATE 

7:FRINT STRING$ (SQ+LEN (qgts$) ," "); 

0TO 588 

gts=VAL (gqgts#): IF gts{i@.Bl OR gts}> 

7 THEN LOCATE 1,7:FRINT STRING# (3 
"}:60T0 588 

LOCATE 1,9:PRINT"Ol(tg) 

77" 

qatg=8.797 

vga= (qgtg”2/gqts”"2)-1 

vgb=vas/vga 

vg=vgb#8.972 

LOCATE 1,11:PRINT CHR#& (24) ; "Volumen 

bedaempft : ";ROUND{vg,2);" Liter”;C 

HR£ (24) 

LOCATE 1,14:PRINT"Geben Sie nun die 

gewuenschten Abmessungen ein...":ıFRI 

NT"Die Materialstaerke darf zwischen 
88 und 97 mm liegen":FRINT"Aussenab 

messungen duerfen zwischen 15 und 28 

@ cm liegen.":LOCATE 68,24:PRINT"bit 

te <Taste}...":CALL %BBQ& 

FOR t=14 TO 16:L0OCATE 1,t:PRINT STRI 

NG#(56," ")3;:NEXT: LOCATE 68,24: PRINT 
STRING (19, “ey 

LOCATE 1, „14: INPUT"Materialstaerke in 
mmi2}: ‚mast$ 

IF LEN mass) >4 OR mast#t=""THEN LOCA 

TE 1,14:FRINT STRING$(S@+LEN (mastf#), 
Mr ")7:G0T0 740 

IF ASC(LEFTF(mast#,1))<48 OR ASC(LEF 

T#£tmast#,1))>57 THEN LOCATE 1,14:PRI 
NT STRING#F (3@+LEN (mast$) ," ")3:60T0 
748 

IF LEN(mast#)=3 THEN x#=LEFT$(mast$, 
Z):x$=RIGHT$ (x$,1)z IF x#i>"." THENL 
OCATE 1,14:FRINT STRING$ (38+LEN (mast 
$)," "):GOTO 748 


- WertiZ>: 


L212E] 
[9556] 
[SFSAI 
[3AD61 
[5aDc] 
[F93Q] 
LEBZE] 
[FBEQ] 
LIFE2] 


[C2CCI 


[D31C] 
[E822] 
C[BS12] 
[3518] 


[AEAZ] 


[FS3D8] 
[71D4] 


[794E] 


[FEQ6] 
[93C4) 
[ABSs2] 


[B718] 
[372A] 
t[8ac78] 
[3EBQ] 
[8298] 
[1S4E] 
[ZESC]I 
[7&EE] 
[E9784] 
[8AB&] 


[ATE4] 
[4406] 


L7BECI 


[FSE4] 


[89B8] 
[5D22] 


L1iF9A]I 


CBECE] 


TAADTCI 


IF mast#="®" THEN LOCATE 1,14:PRINT 
STRINGE(38," ")3:G0OTO 748 

IF LEN(mast$#)>=5 THEN LICATE 1,14:FR 
INT STRINGE {3Q+.ZN (mast#) ," "):GOTO 
748 

IF RIGHT$tmast#,1)="." THEN LOCATE 1 
‚„‚14:FRINT STRING$ (3@+LEN (mast#)," ") 
::60T0 748 

mast=VAL (mast#):IF mast=@ OR mast >18 
8 OR mastiß THEN LOCATE 1,14:PRINT S 
TRING$(35," "):GOTO 748 

LOCATE 1,16: INPUT"Standhoehe aussen 
in cm: ",„auhof 

IF LENtauhot)>5 OR auhost=""THEN LOCA 
TE 1,16:FRINT STRING$(38+LEN (auho$), 
" ")3:G0T0O 828 

IF ASC(LEFT$(auho#,1))<48 OR ASC(LEF 
T$(auho#,1)) >57 THEN LOCATE 1,16:FRI 
NT STRING$ (30+LEN (auho#) ," ");:GOTO 
828 

IF auhos="@" THEN LOCATE 1,16:FRINT 
STRING&$ (38," ")3:60T0 820 

IF LEN (auho$) >5 THEN LOCATE 1,16:FRI 
NT STRING#$ (T8+LEN (auhof#) ," "):G0TO 8 
28 

IF RIGHT (auho$,1)="." THEN LOCATE 1 
‚16:FRINT STRING$(38+LEN (auha#),," ") 
ı:G0T0O 828 

auho=VAL (auho$): IF auho=® OR auho>?28 
B OR auho“15 THEN LOCATE 1,16:PRINT 
STRING# (35," "):GOTO 828 

LOCATE 1,18: INFUT"Tiefe oder Ereite 
in cm: '‚„tibr®_ 

IF LEN(tibr#):5 OR tibrt=""THEN LOCA 
TE 1,18:FRINT STRINGF(38+LEN (tibr#), 
" ")3:60T0 898 

IF ASC(LEFT$(tibr#,1))<48 OR ASC(LEF 
T£ttibr#,1))>57 THEN LOCATE 1,18:PRI 
NT STRING$ (ZO+LEN(tibr$), ")1:G0T0 
898 

IF tibr$="@" THEN LOCATE 1,18:PRINT 
STRING$ (70," ")3:GOTO 898 

IF LEN(tibr#) >5 THEN LOCATE 1,18:FRI 
NT STRING&$ (ZB+LEN (tibr#) ," "):GOTO 8 
"} 

IF RIGHT£(tibr£,1)="." THEN LOCATE 1 
‚18:PRINT STRING# (Z8+LEN (tibr#) ," ") 
;:G60TO 898 

tibr=VAL (tibr$#): IF tibr=@ OR tibr>?2 
® OR tibrii1® THEN LOCATE 1,18:FRINT 
STRING# (35," "):G0OTO 899 
mast=mast/18 

vg=INT (vg*1898) 

hol=auho-mast*#2 

ho2=vg/hol 


® tiil=tibr-mast#2 


111® 
1128 


1138 
1148 
1158 
1160 


1178 
1188 
1198 
1288 
1218 
1220 
1230 
1248 
1258 


ti2=ho2/til 

br2=ti2+2%*mast 

LOCATE 1,28:FRINT CHR# (24); "Tiefe o 
der Breite: "ROUND (br2,2);" cm”; CHRE 
(24) 

LOCATE 48,14:PRINT CHR# (24); " Zuschn 
ittmasse...";CHR#(24) 

seiwl=br2: seiw2=auho-2#mast 

LOCATE 48,1&5:PRINT"2 Stueck ";:PRIN 
T USING" ###. ##";seiwl;:FRINT" cm * 
"z;zFRINT USING" ###.##";seiw2; :FRINT 


depli=tibr:depl2=br2 

LOCATE 48,18:FRINT"2 Stueck ";:PRIN 
T USING" ###.##";depli1;:FRINT" cm * 
"s:FRINT USING"###.##";depl2;:PRINT 
"om 

frpli=auho-2#mast: frpl2=tibr-2%#mast 


LOCATE 48,28: FRINT"2 Stueck ";:PRIN 

T USING" ###. ##;frpli;:FRINT" cm * 
"5; PRINT USING" ###.##"; frpl2; :PRINT 
"cm" 

LOCATE 

< 1 yH 

Be 38,25:FRINT"Zum Hauptmenue<i2 

Du 

ER INKEY£: IF awas="" 

mast=mast*#18: vg=vg/19802 
IF awaf="2" THEN 288 

IF awat<>"1" THEN IF awa$<>"2" THEN 
LOCATE 38,25:FRINT STRINGF (38," ") 
:G0OTO 1128 

GOTO 478 

Me 22 ee 

*%* Zweiter Teil ** 

Ma 2 2 2 2 2 2 2 2 1 

** Frequenzweichen ** 

ME 2 2 2 22 2 2 2 2 ne a 77 

MODE 2 

GOSUB 5668 

LOCATE 45,4:FRINT CHR# (24) ,"<12>" 


38,24:FRINT"Neue Berechnung 


THEN 1138 


tEE2B] 


[8972] 


[1C16] 


[5C28] 
[BDA8] 


[BBSC]I 


[889E] 
[SSBE] 


[öFD&] 


[42886] 


[3846] 


£[D792] 


[73C4] 
L2D24) 


[ASF4] 


[8224] 


[8572] 
LABEC]I 
T4EBC] 
[DBEZ] 
[7B38] 
CBD26] 
[CEE8] 
[ACE2) 


[4648] 


[BA&4] 
[89EBC]I 


[4366] 
[4490] 


[CD22]1 
[5886] 


[CB42] 
[8368] 


[7942] 
[C63C] 
[FB72] 
TBA4E)I 


[AB1B2] 
[97BA] 
LAZFA] 
[2624] 
[27EC]I 
LSB8C 1] 
[B9FB] 
UC3BBA] 
C3DBQ] 
TEC4E] 


»Boxenkit« hilft Ihnen beim Bau von Lautsprecherboxen 
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Sie jetzt Ihre COMPUTER „Sammlung 
Schaffen Sie sich ein 


Ergünzen x-1APPy x 


interessantes Nachschlagewerk und 
gleichzeitig ein wertvolles Archiv! 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 


Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 


einer speziellen Anwendung? 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen 


Seiten eine Zusammenstellung aller wesentlichen Artikel der noch lieferbaren Ausgaben. 
Und so kommen Sie schnell an die gewünschten Ausgaben: Prüfen Sie, welche Ausgabe in 


Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 


dieser Ausgabe und das Erscheinungsjahr (z.B. 3/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 


eingang umgehend zur Auslieferung gebracht. 


Stichwort Titel Seite/Ausgabe 
Aktuelles 
Computer ‚Amiga — ein Traumcomputer wird Wirklichkeit 9/10 
Atari: Lage gefestigt 14/11 
Der »Plus/4« ist endlich da 12/2 
Grundstein einer neuen Linie und kein zweiter PC 13/10 
Konsequentes Chaos (Der deutsche QL) 14/10 
DFÜ Akustikkoppler für C 64 91 
Ascom-Koppler jetzt auch für Atari 20/8 
Ein Anschluß unter dieser Nummer (Mailbox Nummem) 189/3 
Mailboxbetrieb in den USA 22/10 
Neues DFÜ-Programm für den Spectrum 22/10 
Nullmodem zum Aufstecken 12/1 
Software Atari-Schreiber jetzt für 520 ST 14/12 
Software fast zum Nulltarif 10/1 
Träume werden wahr (Schneider-Neuheiten aus England) 9/12 
Drucker Mac Inker, der sparsame Drucker 12/12 
Floppy Commodore-Floppy auf Trab en 9 
Diskettenlaufwerk für den Sharp MZ-800 12/1 
Quick Disk — Die Floppy-Alternative (MSX) 20/4 
Erweiterung Mini-Expansion-Box für TI 99/4A 1/1 
MSX Das Musikwunder (Yamaha CX-5) 141/2 
Der Billig-MSX von Philips kommt 50/1 
CP/M mit MSX-Computer: so geht's 141/2 
Ein komplettes System von Philips 19/8 
Flotter Dreier (Sanyo, Goldstar und Canon) 23/5 
MSX-Mix 48/3 
Mit dem fliegenden Teppich auf Erfolgskurs 18/10 
Bücher Bücher zur DFÜ 111/3 
Bücher zum Denken (KD) 120/10 
Messeberichte 
Die neuesten Heimcomputer (Winter-CES) 9/3 
Funkausstellung in Berlin: MSX war Trumpf 9 
Kampf der Kolosse (Winter-CES — Teil 1) 9 
Sommer-CES 1985: Weiche Welle in Chicago — Teil I 9/8 
Software-Jackpot (Winter CES — Teil 2) 9/5 
Software-Super-Show in London (PCW-Show) 12/11 
Kl Künstliche Intelligenz in Wiesbaden (Al Europa) 13/12 
Musik Musikmesse Frankfurt: Midi marschiert 22/5 
Interviews 
David Crane (Ghostbusters Autor) 17/5 
Interview mit den »Print Shop«-Machern 14/8 
Jack Tramiel (Chairman Atari) 11/2 
Hardware-Tests 
Drucker Bewußt robust (Europrint K 6311 FT) 31/6 
Software-Tosts 
Textverarb. Ein Textprogramm, das sich lohnt (Homeword/C 64) 1114 
Drei Drucker im Test (STX 80, Gemini 10X, CP-80X) 16/1 
(Nachhall auf Seite 149 in 4/85) DWX 308: Schönschrift 
zum Niedrigpreis 18/2 
Eine heiße Verbindung (EP 22, EP 44, EXD 10) 26/5 
Kompakt und leise: Matrixdrucker GLP (Centronics) 24/1 
Regenbogenfarben — wie gedruckt (Okimate 20) 154/10 
Schön oder schnell (Horizon HX 80) 21/3 
Spectrum mit starken Typen (Gabriele 9009) 126/11 
Zwei Drucker für den Schneider (NLQ 401, GP 500 CPC) 112/8 
Computer Chinese mit britischem Paß (Triton 64) 22/2 
Der Musik Maestro (Yamaha CX-5) 28/4 
Der Neue: Commodore PC 128 46/5 
Der »neue« Spectrum 31/1 
Ein »Einsteiger« aus Taiwan (BIT-90) 16/2 
Joyce — Schneiders Einstieg in die Welt der PCs 24/11 
Quantensprung im Schneckentempo (QL dt. Version) 180/11 
Koreaner mit Deutsch-Talent (Ce-Tec/ 18/3 
Schneiders neue Dimension (CPC 6128) 24/10 
Sharps Jüngster (Sharp MZ-800) 20/1 
Spectrum plus oder Spectrum min: 24/4 
Viel Computer für wenig Geld (Schneider CPC 664) 113/8 
YC-64: Femöstlicher Biedermann (MSX Computer) 20/2 
Wer ist wer? (Atari 520 ST+ und 260 ST) 16/12 
Wie musikalisch ist mein Heimeomputer? 148/11 
Laufwerke 3-Zoll-Erfahrungen (MCD-1-Floppy für Spectrum) 22/1 
(Discovery/Spectrum) 
Ein ungleiches Paar (Spectrum — VIC 1541 Interface) 21/4 
Lauf, Floppy, lauf! (SpeedDos plus/C64) 45/12 
Preiswertes Spectr um Floppysystem (Viscount System) 21/2 
Spectrum Diskettensystem im Plus-Look 20/3 
VC 1541 wird zur Rennfloppy 42/4 
Recorder Der Spectrum Sprinter (Datenrecorder: Sprint) 28/1 
Ein billiger Speicher für alle (Recorder MC 310) 30/5 
DFÜ DFÜ auch mit dem TI (RS 232 für TI 99/4A) 25/5 
Kommunikation mit dem Spectrum 32/4 
Spartanisch aber gut (Ascom Akustikkoppler) 158/3 
Sonstiges Computer steuert Modelleisenbahn 176/11 
Der andere Weg (Spectrum Tastatur) 19/3 
Faszination der Technik (Fischer Technik Roboter) 4/11 
Famose Formel für den C64 (Formel 64) 40/12 
Grafpad Supergrafik für den Spectrum 18/3 
Haltet den Dieb (Alarmanlage für C 64, VC 20) 29/1 
Ohren oder Tasten? (Voice Command Modul/C 64) 40/10 
Peripherie für MSX (Plotter, 3'%-Zoll-Floppy) 26/1 
(Joysticks im Vergleichstest) 
Roboter, Technologie der Zukunft (Fischertechnik) 45/4 
Starker Arm für Heimcomputer (Teach Robot) 38/4 
Tafelfreuden für Grafik-Gourmets (Atari Maltafel) 14/1/ 
Vom Piepmatz zum Mini-Orchester (Spectrum Sound) 18/2 
Software-Tests 
Textverarb. Ein Textprogramm, das sich lohnt (Homeword/C 64) 71/4 
Jedem seine Zeitung (The Newsroom) 118/8 
Schreiben ohne Frust 46/2 
Textverarbeitung für jedermann (Homewriter für MSX) 137/1 
Sprachen Basic-Erweiterung zum Spartarif (Aztec Basic/C 64) 76/4 
Drei Assembler für Atari-Computer im Vergleich 30/3 
Fortschritt rückwärts (CP/M-80 Emulator für 520 ST) 138/11 
Hisoft-Pascal jetzt Microdrive-kompatibel (Spectrum) 56/2 
Logo für den Atari 520 ST 134/11 
Mallard-80-Basic — ein starkes Stück , 28/11 
Maschinensprache ist keine Zauberei (CPC’ 464) 107/8 
Prozessor-Welt von morgen: C 64 simuliert 68000 42/10 
Spezielles Spiele-Basic für den Spectrum 143/5 
Welches Basic für meinen MZ-700? 48/2 
ei Süesesindrag del Sänschgeident nen 110/8 
Utilities las Programme macht (Progressor) 33/5 
Disketten Doktor für den C 128 42/12 
Quicksave für Spectrum 137/4 
SM-Kit — Das Werkzeug für Lehrling und Meister (C 64) 138/1 
Software-Knackern dazwischengepfuscht (Apple II) 27/3 
Grafik Beeindruckend (Print Shop — Druckprogramm) 50/2 
Die Maus bringt Farbe auf den Bildschirm (Apple) 52/2 
Grafik grandios (Malprogramm Blazing Paddles) 28/3 


Titel Seite/Ausgabe 


Koala Bilder zum Anfassen (Hardcopy-Programm) 
Mit dem Joystick programmiert ‚rs Pencil) 
Viel Grafik für wenig Geld (Graphics Basic und Supergrafik 
64 für C 64 im Vergleich) 

Vorsicht Kamera! (Take 1, Trickfilm Designer) 
Apple Il sucht Anschluß 

Contact 64 — Die Software zum Ascom-Koppler 
Spectrum auf Draht (DFÜ Vergleichstest) 
Spectrums Sternstunden 

Sterngucker 

Schachmatt per Telefon 


Spiele-Tests 
‚Amazon 
Archon Il: Adept 


Boulder Dash 
Cavelord 


Don't buy this 
Doomdark’s Revenche 
Dorodon 

Dragonsden 

Elektro Freddy 

Elite 

Eureka 

Fahrenheit 451 
Five-a-Side Football 
Formula One 

Frank Brunos Boxing 
Frankie goes to Hollywood 
Fruity Frank 
Ghettoblaster 
Ghostbusters 

Ghost Chaser 

Great American Cross Country Road Race 
Hacker 

HE.R.O. 

Hyper Sports | 
Karateka 

Kennedy Approach 
Knight Lore 


Macbeth 
Mask of the Sun 


Monster Trivia 
Nick Faldo plays the Open 


Rama 

Rescue on Fractalus 

Rocket Ball 

Rockford’s Riot (Bolder Dash II) 
Bolt 


Super Pipeline II 
The Ancient Art of War 
The Fourth Protocol 
The Hitchhiker's Guide to the Galaxy 
The Little Computer People Projekt 
The Way of exploding Fist 

France 


the World is Carmen San Diego 
Whistler's Brother 

White Lightning 

Winter Games 

World Championship Boxing 

ZimSalaBim 


Spiele Tips 

Abenteuer im Weltraum 
n 

Aztec Challenge 

Aztec Tomb 


Spelunker 
Strip Poker 


| 


Anwendung 


Spiel 


Tips& Tricks 


Speicher 


Monitore 
Drucker 


Titel Seite/Ausgabe 


Listings 

Alle Neune (Jahresauswertung-Kegeln/C 64) 
(Adreßverwaltung/C 64) Besseres Basic ganz einfach Soft- 
ware Basic 3.0/C 64) 

Datenbank mit freiem Zugriff (C 64) 

Der Halleysche Komet kommt (MSX) 

Die Mini-Textverarbeitung (Spectrum) 

Nachhall auf Seite 160 in 9/85 

je I1/C 64) 


Eine tolle Textverarbeitung für den Schneider (464) 
Nachhall auf Seite 85 in 5/88 

Funktionen optisch aufb-raitet (VZ-200/Laser) 
Geregelte Finanzen mit dem Commodore 64 
Nachhall auf Seite 117 in 8/85 

Morse-Decoder für Funkamateure (Spectrum) 
Nebenkostenabrechnung (C 64) 

Nachhall auf Seite 80 in 12/85 Optik mit Simons Basic (C 64) 
Programme in Reih’ und Glied (C 64) 

Suchen, nein danke (Dateiverwaltung/CPC 464) 
Nachhall auf Seite 117 in 8/88 
Transistor-Schaltungen berechnen (L.d.M./Spectrum) 
Turbo-Basic-Interpreter für Atari 800XL (L.d.M.) 
Apple Ilc-HiRes-Grafik auf dem Drucker 

Bewegte Grafik mit drei Befehlen (CPC 464) 
Farbspielereien (Atari) 

Grafikentzerrung für Matrixdrucker (Spectrum) 
Grafik-Window bekommt Nachwuchs (C 64) 
Nachhall auf Seite 80 in 13/85 

Grafikzauber (Apple IN) 

Hires Fantasy (C 64) 

Rosetten-Grafik für den Spectrum 

Schnelle Grafik aus dem Compiler (L.d.M./C 64) 
Schöne schnelle Grafik (Grafik-! -Paket/C 64) 


Sprite-Editor (C 64) 

Zauber der Farben mit Magic Painter (L.d.M./Atari) 
Nachhall auf Seite 85 in 5/88 

Zaubereien auf dem Bildschirm (L.d.M./Grafik/CPC 464) 
Zeichenroutine für Kreise und Ellipse (CPC 464) 
Zykloide für Grafiker und Mathematiker (C 64) 

Nachhall auf Seite 79 in 13/85 


Das Haus des Magiers (C 64) 

Dasher, der Volltreffer (L.d.M./C 64) 

Nachhall auf Seite 117 in 8/85 

Der rasende Raider (C 64) 

Diamantenfieber (L.d.M./Atari 48 KByte) 

Nachhall auf Seite 85 in 5/88 

Die ne, eines rasenden Reporters (Report/C 64) 
Gerpenstenacd im Schneider (CPC 464) 

Nachhall auf Seite 88 in 5/85 

Lumberjack Larrys Abenteuer in u @.d.M/C 64) 
Kalte Zeiten (Wintry Screen/C 


Mücke mit Tücke (C 64) 

Nachtflug (Spectrum) 

Nachhall auf Seite 85 in 5/85 Niemandsland (C 64) 
Pokerface für 16 KByte (Spectrum) 

Psycho — die Macht des Geistes (C 64) 

Nachhall auf Seite 80 in 13/85 

Rennfahrer mit dem Joystick (Driver/C 64) 

Rettet den letzten Baum (Insekt defense/C 64) 
SAM — der Mann von der Baustelle (L.d.M./CPC 464) 
Nachhall auf Seite 79 in 12/88 

Schatzhöhle (Atari 800} 

Vorsicht Hochwasser (Aquantor/L.d.M./C 64) 
Über den Wolken (Flugplanung/C 64) 
Wortsuchspiel (Spectrum) 


AMPEL — Licht für Atari-Maschinen-Programme 
‚Auf Trap gebracht (CPC 464) 
Basic bequem (C 64) 
Basic-Compactor (Spectrum) 
Nachhall auf Seite 80 in 12/85 
Basic-Plus: Applesoft-Basic-Erweiterung (Apple II) 
Beim C 64 piepst es 
Bilder richtig konservieren (CPC 464) 
Bildschirmtrick für den Commodore 64 
Byte-Shifter (Spectrum) 
Dateien hin- und hergerissen (Atari-IBM) 
Der neue Checksummer ist da (C 64) 
Der neue Checksummer ist da (C 64) 
Der neue Checksummer (C 64) 
Deutsche Sonderzeichen unter CP/M (CPC 464) 
Die Maltafel wird zur Maus (Atari) 
Nachhall auf Seite 49 in 11/85 
Disk-Help für die schnelle Hilfe (Atari) 
Disk- und DOS-Utility für alle Atari-Computer 
Drei Tricks für MSX 
Ein langes Gesicht für den C 64 (Longscreen 64) 
Fehlerhilfe mit HELP & TRACE (VC 20) 
Fensterikünstler (C 64) 
Fettschrift für den 48 KByte-Spectrum 
Find Label (Spectrum) 
Flotte Primzahlen in Hisoft Pascal (Spectrum) 
Fußball-Manager für Commodore 64 
Grafik-Hardcopy in vierfacher Größe (C 64) 
Kostenlose Speichererweiterung (C 64) 
Listen leicht gemacht (C 64) 
Make DATA für den Spectrum 
Maschinencode-Routinen in Basic umgesetzt (CPC 464) 
Microdrive-Aufwertung 
Nachhall auf pr 79 in 12/85 
Mondlandung (C 
Musik und Farbe € 64) 
Nie mehr Listingkummer mit dem Checksummer (C 64) 
Nie mehr Listingkummer mit dem Checksummer (C 64) 
Prima Werkzeug für den Programmierer (C 64) 

transfer leicht gemacht (CPC 464) 
Proportionalschrift für den Spectrum 
Protokoll auf dem Drucker (CPC 464) 
RAM-Disk für Atari 800XL 
Ran an den Userport (C 64) 
Renumber 64 (C 64) 
Nachhall auf Seite 117 in 8/85 
Rock me Amadeus (C 64) 
RSX-Befehle ohne »@« er 
Schilderwald (Plakatschrift/C 64) 
Schluß mit der Eintönigkeit c 64) 
Nachhall auf Seite 80 in 12/85 
Spectrums COPY besser nutzen 
Spectrumtasten mit Funktionen belegt (Spectrum) 
Spectrum Tips & Tricks 
Sprachkurs für Commodore-Basic (C 64) 
Super-Merge für Commodore 64 
Nachhall auf Seite 160 in 9/85 
Super-Saver (C 64) 
Statuszeile mit Uhr (Atari) 
Tasword 464 mit DIN-Tastatur (CPC 464) 
Texte auch im Grafikmodus (Atari) 
Tippen mit dem Plotter (C 64) 
Tips & Tricks rund um den Schneider 
Töne aus dem Atari 
Variablendump für Atari (Atari) 
Variablen-Transfer ($} 
Verflixter Listschutz (C 64) 
Nachhall auf Seite 80 in 12/85 
Vom Maschinencode zum Basic-Programm (C 64) 
Wie die Bilder laufen lernten (Atari) 
en nr auf dem Schneider 

im schnellen Wechsel (Spectrum) 

ZRBI Vlity Nützliches für Aufsteiger (C 64) 
30 tolle Maschinencode-Routinen (Spectrum) 


Grundlagen 

Daten am laufenden Band 

Daten auf der schnellen Scheibe 

Floppy gegen Kassette 

Selbst geschraubt ist halb gespart 

So arbeitet das 1050-Laufwerk von Atari 

So liest und schreibt die 1541 
Endlosband 


Tips, Tricks und Todsänden 

Wohin in Zukunft mit Bits und Bytes 
Farbmonitore — buntes Fenster zum Computer 
Monitore: Richtig geplant, gekauft und genossen 
Blitzsaubere Schrift mit Laserlicht (Laserdrucker) 
Die »heißen« Drucker (Thermodrucker) 

Farbspiele für Farbdrucker 

Mit leisen Tönen (Tintenstrahldrucker) 

Scharfe Nadel, spitze Typen (Matrix und Typenrad) 


144/8 
173/10 
ız1/10 
174/10 
172/10 
173/12 
173/11 
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126/2 
151/5 
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142/8 
172/10 
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SONDERHEFT 16: SCHNEIDER 7 
Das Super-Programm CPC-Giga-Cad: 
Dreidimensionales Zeichnen plus animierte Grafik. 


SONDERHEFT 17: SPIELE-TESTS 
Ausgewählte Spieleneuerscheinungen vorgestellt und 
kritisch unter die Lupe genommen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 


Am besten gleich 
mitbestellen: 

ie Happy-Computer- 
Sammelboxen 


lle Leser, die »Happy 
puter« regelmäßig 

»n, sammeln oder im 
ınement beziehen, 

ss ein interessantes 
ce-Ängebot: die Hap- 
omputer-Sammelbox! 


lieser Sammelbox 

jen Sie nicht nur 

ung in Ihre wertvol- 

lefte, sondern schaf- 

ich gleichzeitig ein 
____.3ssantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Anlässen. 


Sie jetzt IhreC 


Schaffen Sie sich eit 
interessantes Nachs: 
gleichzeitig ein wer 


Kennen Sie alle »Happy Computer«-Au: 
Testbericht? Oder haben Sie einen Teil 
einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihr 
Seiten eine Zusammenstellung aller w 
Und so kommen Sie schnell an die geı 
Ihrer Sammlung noch fehlt, oder welct 
dieser Ausgabe und das Erscheinungs 
eingehefteten Bestell-Zahlkarte ein. Die 
Rechnungsbetrag beim nächsten Posta 
eingang umgehend zur Auslieferung g 


Titel Sei 


Bücher 


63-1 


Textverarb. 


Computer 


Laufwerke 


Recorder 
DFÜ 


Sonstiges 


Textverarb. 


Sprachen 


Aktuelles 

Amiga — ein Traumcomputer wird Wirklichkeit 

‚Atari: Lage gefestigt 

Der »Plus/4« ist endlich da 

Grundstein einer neuen Linie und kein zweiter PC 
Konsequentes Chaos (Der deutsche QL) 
Akustikkoppler für C 64 

Ascom-Koppler jetzt auch für Atari 

Ein Anschluß unter dieser Nummer (Mailbox Nummern) 


Träume werden wahr (Schneider-Neuheiten aus England) 
Mac Inker, der sparsame Drucker 

Commodore-Floppy auf Trab gebracht 
Diskettenlaufwerk für den Sharp MZ-800 

ie Floppy-Alternative (MSX) 


Der Billig-l 

CP/M mit MSX-Computer: so geht's 

Ein komplettes System von Philips 

Flotter Dreier (Sanyo, Goldstar und Canon) 


Mix 
Mit dem fliegenden Teppich auf Erfolgskurs 
Bücher zur DFÜ 

Bücher zum Denken (KD) 


Messeberichte 

Die neuesten Heimcomputer (Winter-CES) 

Funkausstellung in Berlin: MSX war Trumpf 

Kampf der Kolosse (Winter-CES — Teil 1) 

Sommer-CES 1985: Weiche Welle in Chicago — Teil | 

Software-Jackpot (Winter CES — Teil 2) 
Software-Super-Show in London (PCW-Show) 

Künstliche Intelligenz in Wiesbaden (Al Europa) 

Musikmesse Frankfurt: Midi marschiert 


Interviews 
David Crane (Ghostbusters Autor) 
Interview mit den »Print Shop«-Machern 
Jack Tramiel (Chairman Atarı) 


Hardware-Tests 
Bewußt robust (Europrint K 6311 FT) 


een 
das sich lohnt (Homeword/C 64) 
Dei Drake im Test (STX 80. Gemini 10X, CP-80X) 
(Nachhall auf Seite 149 in 4/85) DWX 308: Schönschrift 
zum Niedrigpreis 

Eine heiße Verbindung (EP 22, EP 44, EXD 10) 
Kompakt und leise: Matrixdrucker GLP 


Spectrum mit starken je 9009) 
Zwei Drucker für den Schneider (NLO 401, GP 500 CPC) 
Chinese mit britischem Paß (Triton 64) 

Der Musik Maestro (Yamaha CX-5) 

Der Neue: Commodore PC 128 

Der »neue« Spectrum 

Ein »Einsteiger« aus Taiwan (BIT-90) 

Joyce — Schneiders in die Welt der PCs 
Quantensprung im be ee (QL dt. Version) 
Koreaner mit Deutsch-Talent (Ce-Tec/MSX) 

Schneiders neue Dimension (CPC 6128) 


Wer ist wer? (Atari 820 ST+ und 260 ST) 
Wie musikalisch ist mein Heimcomj 
3-Zoll-Erfahrungen (MCD-1-Floppy 


Paar (Spectrum — VIC 1841 Interface) 


;pectrum jer: Sprint) 
Ein billiger Speicher für alle (Recorder MC 3810) 
DFÜ auch mit dem TI (RS 232 für TI 99/4A) 
wunikation mit dem Spectrum 
Spartanisch aber gut (Ascom Akustikkoppler) 
Computer steuert Modelleisenbahn 
Der andere Weg 


'ergleichstest) 
Roboter, Technologie der Zukunft (Fischertechnik) 
Starker Arm für Heimcomputer (Teach Robot) 
Tafelfreuden für Grafik-Gourmets (Atari Maltafel) 
Vom Piepmatz zum Mini-Orchester (Spectrum Sound) 


Software-Tests 
Ein Textprogramm, das sich lohnt (Homeword/C 64) 
Jedem seine Zeitung (The Newsroom) 
Schreiben ohne Frust 
Textverarbeitung für jedermann (Homewriter für MSX) 
re a a as Basic/C 64) 
Drei Assembler für iter im Vergleich 
Fortschritt rückwärts (CP/M-80 Emulator für 520 ST) 
Hisoft-Pascal jetzt Microdrive-kompatibel (Spectrum) 
Logo für den Atari 820 ST 
Mallard-80-Basic — ein starkes Stück 
Maschinensprache ist keine Zauberei (CPC 464) 


Zwölf Farben in Mode 2 (Color Star für CPC 464) 
Das das Programme macht (Progressor) 
Disketten-Doktor für den C 128 

Quicksave für Spectrum 


SM-Kit — Das Werkzeug für Lei u 


ü ‚ckprogramm) 
Die Maus bringt Farbe auf den Bildschirm (Apple) 
Grafik grandios (Malprogramm Blazing Paddles) 


..daß Sie jetzt bisher 
erschienene Happy- 
Computer-Ausgaben und 
Sonderhefte nachbestellen 
können? 


..daß es jetzt eine schöne 
und praktische Sammelbox 
für Ihre wertvollen Hefte 
gibt? 


Bitte benützen Sie für 
Ihre Bestellung nur diese 
Postscheck-Zahlkartel 


Übrigens... 

...die Happy-Computer- 
Sammelbox ist nicht nur 
praktisch für den eigenen 
Gebrauch, sondern auch 
ein heißer Geschenktip zu 
vielen Anlässen! 
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Bedienen Sie sich 
der Vorteile eines 


Dieses Formblatt können Sie auch als Postüberwei- 
sung benutzen, wenn Sie die stark umrandeten Fel- 
der zusätzlich ausfüllen. Die Wiederholung des Be- 
trages in Buchstaben ist dann nicht erforderlich. 
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Ihren Absender (mit Postleitzahl) brauchen Sie nur 
1. Abkürzung für den Namen Ihres Postgiroamts 


auf dem linken Abschnitt anzugeben. 


(PGiroA) siehe unten 
2. Im Feld »Postgiroteilnehmer« genügt Ihre 


Namensangabe 


3. Die Unterschrift muß mit der beim Postgiroamt 


Feld 
für 
postdienstliche 


Zwecke 


se 
a 
sä 8 


Berlin West 


Dortmund 
Essen 


hinterlegten Unterschriftsprobe übereinstimmen 
= Frankfurt 
am Main 


4. Bei Einsendung an das Postgiroamt bitte den 


Lastschriftzettel nach hinten umschlagen 
Abkürzungen für die Ortsnamen der PGiroÄ: 


BlnW= 
Dimd = 
Esn 
Fim 
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Töne aus dem Atari 
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ZX81-Utility: Nützliches für Aufsteiger (C 64) 
30 tolle Maschinencode-Routinen (Spectrum) 


Grundlagen 

Daten am laufenden Band 

Daten auf der schnellen Scheibe 

Floppy gegen Kassette 

Selbst geschraubt ist halb gespart 

So arbeitet das 1080-Laufwerk von Atari 

So liest und schreibt die 1841 
Endlosband 


Tips, Tricks und Todsünden 
Wohin in Zukunft mit Bits und Bytes 
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und nicht mehr lieferbar! 
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SONDERHEFT 16: SCHNEIDER 7 
Das Super-Programm CPC-Giga-Cad: 
Dreidimensionales Zeichnen plus animierte Grafik. 


SONDERHEFT 17: SPIELE-TESTS 
Ausgewählte Spieleneuerscheinungen vorgestellt und 
kritisch unter die Lupe genommen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 08/85) auf dem Bestellab- 


schnitt der hier eingehefteten Bestell-Zahlkar- 


te ein. 


Die in diesem Sonderheft 
abgedruckten Listings gibt 
es auf Diskette: 


1 Diskette für Schneider- 
Best.-Nr. 25718 


Unverbindliche 
Preisempfehlung 


Verwenden Sie dafür 


nur die nebenstehende 
Postscheck-Zahlkarte. 


Bestellungen in der Schweiz 
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$ richten Sie bitte an: 

8 Markt & Technik 

5 Vertriebs AG, 
Kollerstrasse 3, 6300 Zug, 
Tel. 042/415656 


Bestellungen aus Österreich 


Ueberreuter Media Handels- 
und Verlagsges. mbH 


Alser Str. 24, 1091 Wien, 

Tel. 0222/48 1538-0 
Microcomput-ique E. Schiller, 
Fasangasse 24, 1030 Wien, 
Tel. 0222/785661 
Bücherzentrum Meidling, 
Schönbrunner Straße 261, 


Tel. 0222/833196 


Alle anderen Markt & Technik- 
Produkte erhalten Sie bei 
Ihrem Buchhändler oder bei 
unseren Depot-Händlern. 


Am besten gleich 
mitbestellen: 


ie Happy-Computer- 
Sammelboxen 
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lle Leser, die »Happy 
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»n, sammeln oder im 
ınement beziehen, 

as ein interessantes 
ce-Ängebot: die Hap- 
omputer-Sammelbox! 


lieser Sammelbox 
ren Sie nicht nur 
ung in Ihre wertvol- 
lefte, sondern schaf- 
ich gleichzeitig ein 
=... 2ssantes und attrakti- 
ves Nachschlagewerk. Ein 
kompletter Jahrgang (12 
Ausgaben) paßt in eine 
der praktischen Sammel- 
boxen! 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 
und Bekannte zu vielen 
Anlässen. 
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Sie jetzt IhreC 
Schaffen Sie sich eiı 
interessantes Nachs 
gleichzeitig ein weı 


Gebühr für die Zahlkarte 
(wird bei der Einlieferung bar erhoben) 
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über 10 DM (unbeschränkt) 


Einlieferungsschein/Lastschriftzettel 
(nicht zu Mitteilungen an den Empfänger benutzen) 
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Kennen Sie alle »Happy Computer«-Au 
Testbericht? Oder haben Sie einen Tei 
einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihı 
Seiten eine Zusammenstellung aller v 
Und so kommen Sie schnell an die ge 
Ihrer Sammlung noch fehlt, oder welc! 
dieser Ausgabe und das Erscheinung: 
eingehefteten Bestell-Zahlkarte ein. Di 
Rechnungsbetrag beim nächsten Post: 
eingang umgehend zur Auslieferung c 
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Mk _ Mukmene Pankl Mi manc Baehsn adäE E35 | 
Interviews = - a 5 f | 
Denon u dan re BnopeMlschern Se | 
en »| it [3 
Jack Tramiel (Chairman Atarı) Für Mitteilungen an den Empfänger F 
as Perg en ropd KEN FT) ra Be Service Wichtig: Lieferanschrift (Rückseite) & 
a nicht vergessen! R 
Software- 
Textverarb. ZT eiereeemen, Aus DE Hl Biene 6 Bestell-Nr. Tarzan] x Einzelpreis = Gesamtpreis © 
Qachball auf Bote 146 In 4/89) DWX 306; Schönschrift a 
Eine heiße Verbindung (EP 22, EP 44, EXD 10) 2 
Kompakt und leise: Matrixdrucker GLP (Centronics) 2 
— wie gedruckt (Okimate 20) o 
Schön oder schnell (Horizon HX 80) 13 
Spectrum mit starken Typen 2 
Zwei Drucker für den Schneider (NLO 401, GP 500 CPC 7 
Computer Chinese mit britischem Paß (Triton 64) B 
Der Musik Maestro (Yamaha CX-5) 5 
Der Neue: Commodore PC 128 
Der »neue« Spectrum [7 
Ein »Einsteiger« aus Taiwan arrs0 EN, E3 
— Schneiders Einstieg ler 
Quantensprung im Schnecken! (QL dt. Version) 2 
Korennas m mit a ee Summe bitte. Ki 3 
a Teer ze Vorderseite übertragen. Gesamtsumme: S 
plus oder Spectrum minus 3 
Viel Computer für wenig Geld (Schneider CPC 864) se Games 11 13378 Prima Werkzeug Programmieı 
Y : Femnöstlicher Biedermann (MSX Computer) 20/2 Super Pipeline II 141/8 den gemacht re Tao 
Wer ist wer? (Atari 820 ST+ und 260 ST) 16/12 The Ancient Art ol War 149/65 Proportionalschrift für den Spectrum 94/8 
Wie musikalisch ist mein Heimcomputer? 148/11 The Fourth Protocol 168/11 Protokoll auf dem Drucker (CPC 464) 18/8 
Laufwerke 3-Zoll-Extahrungen (MCD-1-Floppy für Spectrum) 22/1 ne Hitchhiker’s Guide to the Gelzy Ben: RAM-Disk für Atari 800XL 1911 
(Discovery/Spectrum) Little Computer a Projel den Userport (C 64) 
Ein ungleiches Paar (Spectrum — VIC aa Interface) 21/4 The Way of exploding Fist 169/10 Ronumber 64 (C 64) er Fr 
Lauf, Floppy, lauf! (SpeedDos plus/C64 45/12 Tour de France 170/11 Nachhall auf Seite 117 in 8/88 
Breswerte Spact um Floppyapsem scout Sem) un Where in the World is Carmen San Diego a Rock me Amadeus (C 64) 66/11 
Spectrum Diskettensystem Whistler's Brother RSX-Befehle ohne »@« (Schneider) 73/12 
VC 1841 wird zur Rennfloppy 42/4 White Lightning 148/1 Schilderwald (Plakatschrift/‘ / 
Recorder Der Spectrum Sprinter (Datenrecorder: Sprint) 28/1 Winter Games 164/12 Schluß mit der Eintönigkeit Cr m 
Ein billiger 'her für alle (Recorder MC 3810) 30/5 World Championship Boxing 170/12 Nachhall auf Seite 80 in 13/88 
DFÜ DFÜ auch mit dem TI (RS 232 für TI 99/4A) 25/8 ZimSalaBim 14173 COPY besser nutzen / 
Spectrums 83/10 
Kommunikation on Ka BAR ws 1 Spectrumtasten mit Funktionen belegt (Spectrum) 9/1 
Spartanisch aber gut (Ascom Akustikkop) Spiele Spectrum Tips & Tricks 106, 
Sonstiges Computer steuert Modelleisenbahn 178/11 ‚Abenteuer im Weltraum 182/8 Commodore-Basic (C 64) PYu 
ee Amazon u Super-Merge für Commodore 54/8 
Faszination 'echnik (Fischer Tecl Roboter) Aztec Challenge ‚hhall auf 160 in 9/1 
Famose Formel für den C64 (Formel 64) “12 Aztec Tomb 14774 SuparSarun 89 nr sro 
Grafpad Supergrafik für den Spectrum 16/3 Aztec Tomb 173/10 Uhr (Atari) 8/1 
Haltet den Dieb (Alarmanlage für C 64, VC 20) 29/1 Beach Head 85/1 Tasword 464 mit DIN-Tanatur (CPC 464) 73/10 
Ohren oder Tasten? (Voice Command Mod [5 wo Death in the Caribbean use Texte auch im Grafikmodus (Atari) 9/5 
Peripherie Plotter, 3%-: Death in the Caribbean 12 Tippen mit dem Plotter (C 64) Em 
Joysticks im V: 's Revenge 142/8 Tricks ‚hneider 
‚Roboter, Technologie der Zukunft (Fischertec! 45/4 Everyone’'s a Wally 173/10 as Ga hisl er FH 
Starker Arm Men (Teach Robot) ws 140/3 Variablendump für Atari (Atari) 83/2 
Tafeltreuden für Grafik-Gourmets (Atari Maltafel) Ghostbusters 147/4 Variablen-Transfer (Spectrum) 123/11 
Vom Piepmatz zum Mini-Orchester (Spectrum Sound) 1872 Ghostbusters 182/5 Verflizter Listschutz (© 64) FA) 
nn u a ne 12/88 
Software-Tests Heros ol Kam 'om Maschinencode zum Basic-Programm (C 64) 66/10 
Textverarb. Ein Textprogramm, das sich lohnt (Homeword/C 64) 17a Hexenküche 173/12 Wie die Bilder laufen lernten (Atari) 86/2 
Jedem seine Zeitung (The Newsroom) 118/8 Hobbit 146/3 Zeilenakrobatik Pete eerd 78/8 
Schreiben ohne Frust 4/2 Hulk 143/8 Zwei SCREEN$ im schnellen Wechsel (Spectrum) 73/8 
- er Kun Hunch Back am. ZUBI Delkr: Nützliches für Aufsteiger (C 64) 81/1 
Sprac] Basic-Erweiterung Spartarif (Aztec Basic. Karateka tolle Maschinencode-Routinen (Spectrum) 98/3 
Drei Assembler für Atari-Computer im Vergleich 30/3 Lode Runner 174/11 
Fortschrit rückwärts (CP/M-80 Emulator für 620 ST) 138/11 Lode Runner 174/12 Grundlagen 
Tom mr dan Auarı 830 ST Ko ne an es ren an 
m Daten auf der schnellen Scheibe 30/8 
Mallard-80-Basic — ein starkes Stück 28/11 Mindshadow 174/11 Floppy gegen Kassniie 38/8 
'hinensprache ist keine Zauberei (CPC’ 464) 107/8 Miner 2049er 147/4 Selbst geschraubt ist halb gespart 39/8 
Prozessor-Welt en Ga er un Pirate Adventure IR So arbeitet das 1080-Laufwerk von Atari 36/8 
Basic an Pitfall So liest und schreibt die 1841 34/8 
Welches Basic für meinen 48/2 Pitfall II 144/8 Speichermedium Endlosband 28/ 
om EimeimBeegeee ii Bee ar TE an 
mac] Wohin in Zukunft mit Bits und Bytes 24/8 
n-Doktor für den C 128 42/12 Sands of Egypt 173/11 Monitore Farbmonitore — buntes Fenster zum Computer 137/8 
Quicksave für Spectrum 137/4 Sands of Egypt 174/12 Monitore: Richtig geplant, gekauft und genossen 133/8 
SM-Kit — Das Werkzeug für Le! und Meister (C 64) 138/1 Schloß des Grauens 152/56 Drucker Blitzsaubere Schrift mit Laserlicht (Laserdrucker) 147/10 
Software-Knackern darwischenge ht (Apple ID 21/3 Secret Mission 173/11 Die »heißen« Drucker (Thermodrucker) 139/10 
Grafik Beeindruckend (Print Shop — Druckprogramm) 50/2 Ship of Doom 173/12 Farbspiele für Farbdrucker 135/10 
Die Maus bringt Farbe auf den Bildschirm (Apple) 53/2 Spelunker 144/8 Mit leisen Tönen (Tintenstrahldrucker) 128/10 
Grafik grandios (Malprogramm Blazing Paddies) 28/3 Strip Poker 182/5 Scharfe Nadel, spitze Typen (Matrix und Typenrad) 148/10 


Stichwort Titel Seite/Ausgabe 


a mes: er Auch die bisher Am besten gleich 


Befehlserweiterung für = ZIUEE 464) 34/10 


Fenater; n die Zukunft Bas Basic auf dem 520 ST 19912 hi N d h ft itb | . 
'enster in a lem 
ee ee Yon ersanienenen S3ondernerfte mitbestellen: 
oro Boguite aus der ner 01 M B ® 
fe aus der 

er eine Hi k S Die Happy-Compute 
a Deienbertragung m schnellen Claichachtt karıı onnen 3le ıe na -Lompuier- 
Sonst Das Imerface | ROM und seine N 10 >. . 
Jonstiges In! e seine Nutzung 

Der Commodore 64 kann einfach alles 89/4 4 + d kt b tell S Ib 

Der Commodore 84 kr E28 jetzt gıre estelle ummeinoxen 

Ein großes Abenteuer: Das Adventure 128/2 

Messen + Steuern = Regeln 148/11 

Schnittstellen — was sind das eigentlich 36/4 

So bauen die Spiele-Baukästen 32/5 

Vom Traum zum Heimcomputer (68000 Prozessor) 20/11 

Weiche Hardcopy er) 714/12 

Weicher Computer spielt am besten? 188/12 

2,3 — Kalkulieren mit der Hand ist nun vorbei 80/8 


SONDERHEFT 01/84: SINCLAIR 


' Allgemeine Themen Unentbehrliche Informationen zu den Sinclair 
ze er 118/10 Computern ZX81 und Spectrum. 
Kal Keine Angst vor DFÜ 183/3 
kostige u en u SONDERHEFT 01/85: SPECTRUM 
Gomputer ala Briefträger var Anwendungsbezogene Listings und Tips& Tricks 
Ein tures Vergnügen (DFO-Kosten) 9 für alle Spectrum-Fans. 
Hekmzonpuier a aus zwei Hand roresı : 1ayıa en a ee m 1 
eg ee e wertvoller Beiträge und Listings 
Software (as) gs en id für alle Schneider-Anwender. 
Serware Voller ' a SONDERHEFT 03/85: SPIELE 
Spiele auf der schwarzen Liste 160/11 Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
va Helmeompua Freak zum EDV-Bperielinten 2 100 Spielen im Test und großer Marktübersicht. 
on 148 SONDERHEFT 01/86: SCHNEIDER 2 
Te en a Anyoean sun Later Noch mehr Tips und Tricks für Einsteiger und Fort- 
Kon, a — 18077 geschrittene mit vielen interessanten Programm-Listings. 
r ent er lan a ern ee 
SONDERHEFT 02/86: ATARI 1 
logo Teil! Der Einstieg für Einsteiger 40/3 Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 
er TED Se rin Sachsen 1894 ‚Anwendungs- und Spiele-Listings sowie Informationen. 
j SEI Buß BORENENE EUER: Penene: & 
a ec fassende Informationen zur neuen Computer- 
ce Musik mi Foke und Pool rg Er Generation und eine große Vergleichstabelle, die im 
Musik m Boke und ef ER & Hi Detail über alle 68000er informiert. 
Lemen Sie Ihren Commodore 64 kennen/Teil 4 48/8 SONDERHEFT 04/86: SCHNEIDER 3 
Damen ge Dumm ommaden jenen tel a Eine Erweiterung für alle Schneider-Anwender, Super. 
Ohne Fleiß kein Kreis/Teil } 48/12 Listings und großer Einsteiger-Teil. 
mu en E: | | TEE 
kin s 
_— Zugubermachung ei Eombuter/Teu 3 is Fuß fassen in »Pascal«, »C« und »Forth« mit jeweils ei- 
Bastel nem grundlegendem Kurs und vielen Anwendungs- 
‚Atari 820 ST auf Abwegen 23/12 Listings. 
ne ea | | en 
Ts : 
Gut Verbindung mit demSch Schneider (PIO-Interface) ao Umfangreicher Listingteil, viele Informationen, Tips 
Multitalent für den Joystickanschluß (Spectrum) 3072 und Tricks für Anwender der 68000er-Computer. es . 
Hana she rn 18 rt Laufwerk (C 64) 62/10 SONDERHEFT 07186: SCHNEIDER 4 Ra Für alle Leser, die »Happy 
Mit den Schwerpunkten Joyce und CP/M plus, Rat- on: 
Nie wieder Angst je C 64) 48/3 4 : 5 5 
Sehen au en Im En un Gehirn) wo schlägen zur Vortex-Karte und vielen Tips & Tricks. Com puter« reg elmä Rig 
m mit ‚maschine: it 
SONDERHEFT 08: COMPUTER ALS HOBBY ° 
Schreibschutz Schalter Alan 1080 Mepp) ara Wissenswertes für Einsteiger und zusätzliche Informa- kaufen sammeln oder ım 
Sieben auf einen Port (7 Segment Anzeige/Spectrum) 24/2 fü Fe; ‚hsend: c fi it ’ 
Sparen am richtigen ‚Drucker Ende, Gina) 2 ionen zur Fernsehsendung Computerzeit. . 
ne az SONDERHEFT 09: 680008 8°  _ || Abonnement beziehen, 
Marktübersichten Mit den Schwerpunkten Sound- und Videodijgitalisie- ri pr Ri 
me Bi &} | | rungundSpielprogrammierung gibt es ein interessantes 
kunst Jede Menge Software 182/11 SONDERHEFT 10/86: SCHNEIDER 5 : i 
Sermum Anschluß gesucht, Peripherie fir ZXBI und Spectrum 48/1 Der neue Schneider-PC wird vorgestellt. Wieder viele Service-Ängebot: die Hap- 
Der Computer mit dem großen Zubehör 56/4 Hilfestellungen und Kurse. 
m #0 | | SONDERMEFT 11786: sPIEL-TESTS py-Computer-Sammelbox! 
Nachhall auf Seite 80 in 12/85 : = H 
Menitore Marktübersicht Monitore 136/85 Alles über aktuelle Spieletests, Computerprogramme, pP 
Nacik Rachhallau Se 30 u sinn Grafik- und Musik-Software. 
m re 1Bor1a SONDERHEFT 12/86: 68000er 4 
Ve - Ausführliche Testreihe aller Grafikprogramme für Mit dieser Sammelbox 
AtariST, Amiga und Sinclair QL sowie viele Grund- Pi s R 
Kat Akon Rein R an lageninformationen zu diesen Computern. bringen Sie nicht nur 
Jösı U 1 
Autbrung Bidergalre lache) 14272 SONDERHEFT 13: SCHNEIDER 6 
a Diskettengrundlagen-Kurs. Reiche Auswahl an Pro- 1 ea 
kind" Der Camper ls Steuermann an grammen für CPE Schneider CPC oder PC: Fakten Ordnung in Ihre wertvol 
Aufösung _ Derschönste Titel von 1984 18878 und Vorteile. 
Kiwne  Diksteneiemiß, ide ren len Hefte, sondern schaf- 
Auflösung Happy Computer Leserwettbewerb 20/12 2. . . . ”s N r 
hatt Ihr Einsatz (Die beste Anwendung) 1a Der Softwareführer 1987 für Ihre optimale fen si ch 1 ei chz eiti ein 
Bi ee DT a — g g 
ufösung les 
Steno mit dem Computer 41/5 SONDERHEFT 15: HARDWARE-TESTHEFT . a 
ng ae Babenälle u . zu Geräte für optimale Hardware-Auswahl Interessantes und attrakti- 
. . 
Fr Ian SONDERHEFT 16: schnee? |, ves Nachschlagewerk. Ein 
Basicode-2 für MZ-700 712 Das Super-Programm CPC-Giga-Cad: 
Bee ie an (c69) 16018 Dreidimensionales Zeichnen plus animierte Grafik. kompletter Jahrgang (12 
Ingubenele beim Spectrum speichern 110,8 SONDERHEFT 17: SPIELE-TESTS i . 
rap 1 Ausgewählte Spieleneuerscheinungen vorgestellt und Ausg aben) paßt ın eine 
Joystickprobleme beim VC kritisch unter die Lupe genommen. 
LPRINT III — Fehlerloses Drucken auch ohne EPROM 169/12 . 
Pe a de 2m 00 Bau der praktischen Sammel- 
neh au ia 
FE ei en boxen! 
VC 20 und Videokamera am Monitor 103/1 


Übrigens: Die Sammelbox 
ist nicht nur ein prakti- 
sches Aufbewahrungs- 
mittel: Sie eignet sich 
auch hervorragend als 
Geschenk für Freunde 


Die Ausgaben 
6/85, 7/85 und 9/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Tragen Sie die Nummer des gewünschten 5 

Sonderheftes (z.B. 08/85) auf dem Bestellab- | und Bekannte zu vielen 

schnitt der hier eingehefteten Bestell-Zahlkar- se 
ESEL on. Anlässen. 
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LOCATE 45,5:PRINT" WEICHEN... " 
LOCATE 45,6: FRINT"<{12>";CHR$ (24) 
LOCATE 45,9:PRINT"Zweiweg- oder Dre 
iwegweiche ?42>72/3>" 
at=INKEY£ 

OR a$>"3" THEN 1298 

THEN f#f#=2Z :G60TO 1788 ELS 


LOCATE 45,9:FRINT STRING$ (36," "Is 
OCATE 45,9:PRINT'"ZWEIWEGWE 
LEHE. »:5* 

LOCATE 1,5: INFUT"Impedanz des Tieft 
oeners :",‚rt# 

IF LEN(rtf)>3 OR rtt=""THEN LOCATE 
1,5: FRINT STRING$ (3Q+LEN (rt$)," ")5 
:G0TO 1338 

IF ASC(LEFT$(rt$#,1))<48 OR ASC(LEFT 
£irt#,1))>57 THEN LOCATE 1,5:PRINT 
STRINGF (3B+LEN(rt#)," ");5:60TO 13380 


IF LEN(rt#)=3 THEN x$=LEFT#(rt$,2): 

x£=RIGHT£ (x#,1): IF x*<>"." THEN LOC 

ATE 1,5:FRINT STRING$ (38+LEN (rt#)," 
"):60T0 1338 

IF rt$="8" THEN LOCATE 1,5:FPRINT ST 

RINGE (30," ")s3:GOTO 1332 

IF LEN(rt#)>=4 THEN LOCATE 1,5:FRIN 

T STRINGE (3Q+LEN (rt) ," "):GOTO 133 

[") 

IF RIGHTf(rt#,1)="." THEN LOCATE 

S:FRINT STRINGF (3B+LEN (rt$),," 

0OTO 1338 

rt=VAL (rt#) 

IF rt“2 OR rt:32 THEN LOCATE 1,5:PR 
INT STRINGF (ZO+LEN (rt#)," ")3:G0T0O 
132@ 

LOCATE 1,7: INFUT" Impedanz des Hocht 

oeners :",‚rh# 

IF LEN(rh#)>Z3 OR rh#=""THEN LOCATE 
1,7:PRINT STRING# (30+LEN(rh&$)," "); 
:GOTO 1428 

IF ASC(LEFTF(rh#,1))<48 OR ASC(LEFT 

#(rh#,1)) >57 THEN LOCATE 1,7:FRINT 

STRING$ (3®+LEN (rh$) ," ");3:6G0TO 1428 


IF LEN(rh#)=3 THEN x$=LEFT#F(rh$,2): 
x#=RIGHT$ (x$,1): IF xF#i>"." THEN LOC 
ATE 1,7:FRINT STRING$ (3®+LEN (rh&$),," 
"):G0OTO 1428 
IF rh$="@8" THEN LOCATE 1,7:PRINT ST 
RINGF(38," ")3:GOTO 1428 
IF LEN(rh$) >=4 THEN LOCATE 1,7:FRIN 
T STRING (TQ+LEN ({rh£) ," "):GOTD 142 
[7 
IF RIGHT$ (rh#,1)="." THEN LOCATE 1 
7:FRINT STRINGF (30O+LEN(rh#)," ");: 
OTO 1428 
rh=VAL (rh#) 
IF rhi2 OR rh>32 THEN LOCATE 1,7:PR 
INT STRING$(38," ");:60T0O 1428 
LOCATE 1,9: INFUT"Uebernahmefrequenz 
in Hz :",#1f:IF LEN(f1$):5 THEN LO 
CATE 1,9:PRINT STRINGE (3QB+LEN (fi1$), 
"):60T0 1518 
IF #1$="" THEN 15548 ELSE xF=fift:yt= 
RIGHT$(f1#,4): IF ASC(LEFTE(x#,1))i4 
8 OR ASC(LEFT$(x#,1))>57 THEN LOCAT 
E 1,9:FRINT STRING$ ({38+LEN(f1$)," " 
):GOTO 1512 
»$=LEFTF(y#$,1) zo y$=RIGHTF(f1F, 3): IF 
ASCILEFTE(XF,1))<48B OR ASC(LEFTE(HE 
‚1))>S57 THEN LOCATE 1,9:PRINT STRIN 
G$ (3B+LEN{F1#)," "):GOTO 1518 
x#=LEFTF(y$, 1): y#=RIGHT# (fi, 2): IF 
ASL (LEFTF(HF,1)ILA4B OR ASC(LEFTE(KE 
‚1))>57 THEN LOCATE 1,9:PRINT STRIN 
G$3B+LEN(F1$)," "):GOTO 1518 
x$=LEFTF(y$,1) 2 y$=RIGHT$ (f1$,1): IF 
ASC (LEFT$(x$,1))<48 OR ASC(LEFT$ (HK 
‚1))>57 THEN LOCATE 1,9:PRINT STRIN 
G$ (3B+LEN (f1#)," "):GOTO 1518 
x$=LEFT$(y$,1):IF ASC(x$)<48 OR ASC 
(x$#) >57 THEN LOCATE 1,9:PRINT STRIN 
G$(38+LEN(f1$)," "):GOTO 1518 
IF RIGHTF(f1$,1)="." THEN LOCATE 1, 
9:PRINT STRING$ (SQO+LEN (f1$)," "):GO 
TO 1518 
IF f1$="" OR VAL(f1$)=B THEN LOCATE 
1,9:PRINT STRING$(3Q+LEN(fi1$)," ") 
:G0TO 1518 
f1=VAL (1%) 
IF f1<5@ OR #1>5@0@ THEN LOCATE 1,9 
:PRINT STRING$ (SB+LEN (f1$)," "):GOT 
0 1518 
FRINT 
REM 2-weg 6 dB/Okt. 
1t2&db=188Q*rt/ (2*3.1415927%*#1) 
ch2&4db=1999999/ (2*3.1415927%*f1*rh) 
LOCATE 1,13:PRINT"Zweiwegweiche mit 
&dB/Okt" 


y 
G 


LA9CE]I 
[ES16] 


[SAFC]I 
LEDA4] 
L[E648] 
LESD&] 


[ABCS] 
[C856] 


[LB3QE] 


[1R44] 


[AFB2] 


[1AD2]I 


[E884] 


[4053C] 
[BS8C1 


[EB98] 
[3936] 


[8&2CA] 


[1B88] 


[&6D3E]I 


[BEBE] 


[2458] 


[9218] 


LEB&E] 
[8ODA2] 


[D74&6] 


[817C] 


[421C] 


£[981CI 


[D6ö1C] 


[C8ECI 


£[D792] 


[E912] 
[3B64] 


[9678] 
[CA4EA] 
[B66C)] 
[7BE2] 
£[31C2] 


[5154] 


LOCATE 1,15:PRINT"Lt = "3:PRINT USI 
NG"####. ##"; 1t26db; :PRINT" mH" 
LOCATE 1,17:PRINT"Ch = ";:PRINT USI 
NG" ####.##"; ch26db; :PRINT " "+CHR$( 
ISSIF*E" 

1lt=1000*rt*1.4142/ (2#3.1415927##1) 
ct=10090999/ (2*3.1415927#f1%*rt#1.414 
2) 

1h=19898@*rh*1.4142/ (2*3.1415927##1) 
ch=1999999/ (2*x3.1415927*f1*rh*1.414 
2) 

LOCATE 49,13:PRINT"Zweiwegweiche mi 
t 12dB/Okt." 

LOCATE 48,15:PRINT"Lt = ";:PRINT US 
ING" #HHH.##"; 1t;: PRINT" mH" 

LOCATE 48,17:PRINT"Ct = ";:PRINT US 
ING" ####.##"; ct; :PRINT" "+CHR$ (183) 
+"pn 

LOCATE 498,19:PRINT"Lh = ";3:PRINT US 
ING" ####.##";1h; : PRINT" mH" 

LOCATE 48,21:FRINT"Ch = ";:PRINT US 
ING" ####.##"; ch; :PRINT" "+CHR$ (183) 
+"F" 

GOTO 2528 
LOCATE 45,9:PRINT STRING$(35," "):L 
OCATE 45,9:PRINT'TDREIWEGWE 
ICHE.. ." 

LOCATE 1,5: INPUT"Impedanz des Tieft 
oenersi5>: ",‚rt# 


IF LEN(rt$) >3 OR rt$=""THEN LOCATE 
1,5: FRINT STRING$ (Z1+LEN(rt$)," ")5 
:GOTO 1798 

IF ASC(LEFT£(rt£,1))<48 OR ASC(LEFT 
&(rt$#,1))>57 THEN LOCATE 1,5:PRINT 
STRING$ (Z1+LEN(rt$)," ");3:GOTD 1798 


IF LEN(rt$)=3 THEN x$=LEFT$(rt$,2): 
x»£=RIGHT£(x$,1): IF x$<>"." THEN LOC 
ATE 1,5:PRINT STRING$(31+LEN(rt$)," 
"):G0TO 1798 

IF rt$="8" THEN LOCATE 1,5:PRINT ST 
RING$ (335," ")3:60T0O 1798 

IF LEN(rt$) >=4 THEN LOCATE 1,5:PRIN 
T STRING$ (3Z1+LEN(rt$)," "):GOTO 179 


[") 

IF RIGHT$ (rt$,1)="." THEN LOCATE 1, 
S:PRINT STRING$ (S31+LEN(rt$)," ")5:6G 
0OTO 1798 

rt=VAL (rt$) 

IF rt<2 OR rt>32 THEN LOCATE 1,5:PR 
INT STRING$ (38," ")5;:G60TO 1798 
LOCATE 1,6: INPUT"Impedanz des Mitte 
ltoeners<3>: ",‚rm$ 

IF LEN(rm$#) 3 OR rm$=""THEN LOCATE 
1,6:PRINT STRING$(31+LEN(rm$)," "): 
:60T0 1880 

IF ASC(LEFT#F(rm$£,1))<48 OR ASC(LEFT 
£irm$,1))>57 THEN LOCATE 1,6:PRINT 
STRING# (Z1+LEN(rm$) ," ");:GOTO 1888 


IF LEN(rmt)=3 THEN x#=LEFT$(rm$,2): 

»£=RIGHT$ (x$,1): IF »$<>"." THEN LOC 

ATE 1,6:FRINT STRING£(Z1+LEN(rm$)," 
"):GOTO 1888 

IF rm&="8" THEN LOCATE 1,6:PRINT ST 

RING$(33," ");:GOTO 1888 

IF LEN(rm$)>=4 THEN LOCATE 1,6:FRIN 

T STRINGF (3Z1+LEN(rmf)," "):GOTO 188 

8 

IF RIGHT$(rm#,1)="." THEN LOCATE 1 

&:PRINT STRING$ (31+LEN(rm$) ," ")5: 

OTO 1888 

rm=VAL (rm$) 

IF rm£“2 OR rm>32 THEN LOCATE 1,6:FR 

INT STRING$ (38," ");:60TO 1888 

LOCATE 1,7: INFUT" Impedanz des Hocht 

oenersiS>: "‚rh$:PRINT 

IF LEN(rh$) 53 OR rh£=""THEN LOCATE 

1,7:FRINT STRING$ (31+LEN(rh$) ,„" ")5 

:G0TO 1978 

IF ASC(LEFT$(rh$,1))<48 OR ASC(LEFT 

£(rh£,1))>57 THEN LOCATE 1,7:PRINT 

STRING$ (Z1+LEN(rh$) ,„" ")5:60TO 1978 


’ 
G 


IF LEN(rh$)=3 THEN x»#=LEFT$(rh#,2): 
x»$=RIGHT$ (x$,1): IF x#<>"." THEN LOC 
ATE 1,7:FRINT STRING$ (31+LEN(rh$) ,„" 
"):GOTO 1978 

IF rh$="8" THEN LOCATE 1,7:PRINT ST 
RING$(35," ")53:6G0TO 1978 

IF LEN(rh$) >=4 THEN LOCATE 1,7:PRIN 
T STRING$(3Z1+LEN(rh$) ," "):GOTO 197 
[7] 


IF RIGHT$ (rh#,1)="." THEN LOCATE 1 
7:PRINT STRING$(31+LEN(rh$) ,„" "5: 
0TO 1978 

rh=VAL (rh$) 

IF rh{i2 OR rh>32 THEN LOCATE 1,7:FR 
INT STRING$ (38," ");:G0OTO 1978 
LOCATE 1,97: INPUT"1. Uebernahmefrequ 


j 
6 


[4D40] 


[4964] 
[1738] 


[A848] 
LE7FA] 


[CABA] 
[SF&C] 
[8C46] 


[FDSA] 
[Ba22] 


[8224] 
[5762] 


[BOCAs] 
LADAA] 


[SF26] 


[825C] 


[FCIA] 


[AZEE] 


[269C] 


LABS4] 


[CEAB] 


LOCQ&] 
LEIEC]I 


[8818] 


CBA34] 


[8172] 


[9IDE2]I 


[4882] 


[DC3A] 


[1884] 


[SCEC]I 
[5818] 


[D1F4] 


£[182A] 


[D644] 


[55C8] 


L175SE] 


[3816] 


LöBSE] 
[64C8] 


CONIPUTER 


enz in Hz<2>: ",‚fi$ 
IF f1$="" THEN 2868 ELSE x$=f1$:y#+= 
RIGHT£(f1#,4): IF ASC(LEFTE(x$,1))<4 
8 OR ASC(LEFT$(x#,1)) >57 THEN LOCAT 
E 1,9:FRINT STRING$ (31+LEN(f1$)," " 
):GOTO 2848 
x£=LEFT$£(y$,1)zy#=RIGHT#(f1$,3): IF 
ASC(LEFTE(R$,1))<4B OR ASC(LEFT$(x$ 
,13)>57 THEN LOCATE 1,9:FPRINT STRIN 
G# (Z1+LEN(f1$)," "):GOTO 2848 
x»#=LEFT$(y$,1)zyF=RIGHT$ (f1$,2): IF 
ASC (LEFT$(x$,1))<48 OR ASC(LEFTE(K$ 
‚1?2)>57 THEN LOCATE 1,9:FPRINT STRIN 
GE (Z1+LEN(FI$)," "):GOTO 29040 
xF=LEFT$(y$,1)zy$=RIGHTF(f1$,1): IF 
ASC(LEFTE(RF,1))<4B OR ASC(LEFTE(X$ 
‚1))>57 THEN LOCATE 1,9:PRINT STRIN 
GE (Z1+LEN(f1$)," "):GOTO 2940 
IF LEN(f1$)>=4 THEN x$=LEFT$(y$,1): 
IF ASC(x#)<48 OR ASC(x#)>57 THEN LO 
CATE 1,9:PRINT STRING$ (31+LEN(f1$), 
" "):G0TO 2868 
IF f1$="" OR VAL(fi$)=Q THEN LOCATE 
1,9:PRINT STRING$ (Z1+LEN(F1$)," ") 
:G0TO 29648 
f1=VAL(fi$) 
IF #1<57 OR #1>5@8@ THEN LOCATE 1,9 
:FRINT STRINGF(F1+LEN(FI1$)," "):60OT 
0 2848 
LOCATE 1,18: INFUT"2. 
uenz in Mz<2>: „#28 
IF #2$="" THEN 2040 ELSE x$=f2#: y$= 
RIGHT$ (28,4): IF ASC(LEFTF£(x$,1))<4 
8 OR ASC (LEFT$ (x$,1)) >57 THEN LOCAT 
E 1,18:PRINT STRING$ (Z1+LEN(#2$) „" 
"):G0OTO 2158 
x$=LEFT$(y$,1):y$=RIGHT$ (f2$,3): IF 
ASC (LEFT$(x$,1))<48 OR ASC(LEFTE(x$ 
‚1))>57 THEN LOCATE 1,18:FRINT STRI 
NG£(S1+LEN (f2$) ," "):GOTO 2158 
xt=LEFT£(y$,1):y$=RIGHT$ (#2$,2): IF 
ASC(LEFT$(X$,1))<AB OR ASC(LEFTS(KS$ 
‚1))>57 THEN LOCATE 1,18:PRINT STRI 
NG$& (31+LEN(#2$)," "):GOTO 2158 
x$=LEFT$(y$,1):y$=RIGHT$ (f2$,1): IF 
ASC (LEFTE(xt,1))<48 OR ASC(LEFTE$(K$ 
‚1))>57 THEN LOCATE 1,18:PRINT STRI 
NG$& (Z1+LEN (2) ," "):GOTO 2158 
IF LEN(f2$)>=4 THEN x$=LEFT$(y$,1): 
IF ASC(x$)<£48 OR ASC(x$) >57 THEN LO 
CATE 1,18:PRINT STRING$(S1+LEN (f2#) 
‚" "):GOTO 2158 
IF #2$="" OR VAL (f2$)=B THEN LOCATE 
1,18:PRINT STRING$(F1+LEN (#2) ," " 
):GOTO 2158 
+2=VAL (#2) 
IF f2<15@ OR #2>2800@ THEN LOCATE 1 
„1B:PRINT STRING$ (S1+LEN(F2#)," "): 
GOTO 2150 
IF #1>#2 THEN a=fi:f1=f2:#2=a 
1t36db=19QWB*#rt/ (2*3.1415927%*#1) 
1m36db=19@Q@*rm/ (2*3.1415927*#2) 
cm3ödb=1000099/ (2*3.1415927%*rm#f1) 
ch36db=198900999/ (2*3.1415927#rh*f2) 
LOCATE 1,13:PRINT"Dreiwegweiche mit 
&dB/Okt." 
LOCATE 1,15:PRINT"Lt = ";3:PRINT USI 
NG" HH. #4": 1t36dbz; PRINT" mH" 
LOCATE 1,17:FRINT"Lm = ";:PRINT USI 
NG"’#4##H#. #4"; Im36dbz : PRINT" mH" 
LOCATE 1,19:FRINT"Cm = "3:PRINT USI 
NG" #4 cmSödbz = PRINT" "+CHRE$ (1 
BZ) +"F" 
LOCATE 1,21:PRINT"Ch = "z3:FRINT USI 
NG'’####. ##" ;ch36dbz :PRINT" "+CHR$ (1 
BF) +H"F" 
REM dreiweg 12dB/okt 
1t=1009*rt%*1.4142/(2%*3.1415927%##1) 
ct=1000099/ (2*3. 
t) 
cm=1B0B3009/ (2*3.1415927##1*1.4142#r 
m) 
12=19000*1.4142*rm/ (2*3.1415927*#1) 
lm=1808*rm#1.4142/ (2#3.1415927%*#2) 
c2=10000009/ (2*3.1415927%*f2*rm#1.414 
2) 
1h=12908*rh*1.4142/ (2*3.1415927%*#2) 
ch=1209099/ (2*3.1415927*f2*rh*1.414 
2) 
LOCATE 48,13:PRINT"Dreiwegweiche mi 
t 12dB/Okt." 
LOCATE 49,15:PRINT"Lt = 
ING" ###.##";1t; :PRINT" 
LOCATE 48,16: FPRINT"Ct = 
ING" ###.##"; ct; :PRINT" 
pn 
LOCATE 48,17:PRINT"Lm = 
ING" ###.##" 3; 1m; : PRINT" 
LOCATE 48,18:PRINT"Cm = 
ING" ###.##" cm; : PRINT" 


Uebernahmefregq 


1415927##1%*1.4142%*r 


"z:PRINT US 
mH " 

"s:PRINT US 
"+CHR$ (183) + 


"SPRINT US 
mH " 

"::PRINT US 
"+CHR$ (183) + 


[&B52] 


TEE7A] 


[9922] 


CAF22] 


[AB1B] 


[2358] 


[8384] 
[4852] 
[F18A] 
[BBE&] 


[9FD2]I 


[9E76] 


[4076] 


[E276] 


[31A4] 


[355A] 
[D656] 


LEFBE] 
[997C] 
[2SE2] 
[B1iCA] 
[47D8] 
[68608] 
[9A7CI 
[CB32] 


[871C] 
LAF3®] 


tEB1BI 
[S9F4] 
L4B2E] 
[BASE] 
tES24] 
[34A2] 
E[7FiC] 


[82A4] 
[7DFA] 


[2BaA] 
[2334] 
LBCFE] 


[F11@1] 
[68EA] 


2938 
2940 
2958 
2968 
2978 


pn 
LOCATE 48,19:PRINT"L2 = 
ING” ###.##",12; :FRINT" 
LOCATE 48,28:FPRINT"C2 = 
ING" ###.##"5c2; :PRINT" 
ug 

LOCATE 48,21:FRINT"Lh = ";:PRINT US 
ING" ###.##",1h; :FRINT" mH" 

LOCATE 48,22:FRINT"Ch = ";:PRINT US 
ING" ###.##";ch; :PRINT" "+CHR#£ (183) + 


"::PRINT US 
mH" 

"S:PRINT US 
"+CHR$ (183) + 


DENE 68,24: PRINT"Neue Berechnung 


Locare 68,25:PRINT"Zum Hauptmenue2 
SEIEN 

awb$=INKEY$: IF awb$="" THEN 2548 

IF awb$="2" THEN 288 

IF awb£<>"1" THEN IF awb$<>"2" THEN 
LOCATE 48,25:PRINT STRING$(29," ") 
:G0TO 2538 

GOTO 1238 

END 

RI 

ar Dritter Teil ** 
HIHI 

** Daten drucken *%* 
RI 
MODE 2: IF ausgabe=1 THEN WINDOW#1 ,1 
‚88,5,24 ELSE MODE 1:605UB 5648 

IF ausgabe=1 THEN file=1:60T0 2788 
ELSE file=8 

LOCATE 5,18:PRINT"Drucker vorbereit 
en..." 
PRINT#file,CHR$ (15) ; CHR$ (27) CHR$ (51 
)CHR$(3B) ; 

FOR u=1 TO 2@B8B:NEXT:LOCATE 5,18:PR 
INT STRING$(29," ") 

IF ##ff=1 THEN 2728 

LOCATE 5,18:PRINT"Bitte Namen einge 
ben..." 

LOCATE 5,14: INPUT name# 

rand=INT ( (48-LEN (name$) ) /2) :PRINT#f 
ile,TAB(rand) ;:FRINT#file,CHR$(14)C 
HR& (27) CHR$ (45) CHR£ (1) name$; CHR$ (28 
);CHR$ (10) 

IF fff#=1 THEN 2778 

FOR u=18 TO 15:L0CATE 1,u:PRINT STR 
ING$ (35," ")SNEXT:LOCATE 5,24: FRINT 
"Nicht mehr als 25 Zeichen „...":LOC 
ATE 1, 5: INPUT"Bezeichnung Tieftoene 
r<2>: ",‚tieff 

IF f##=3 THEN LOCATE 1,7: INPUT"Beze 
ichnung Mitteltoener: " mittels 
LOCATE 1,9: INPUT"Bezeichnung Hochto 
ener« " hoch$ 

FOR us1 T0'2: PRINT#file,CHR$(1B) :NE 
xT 

IF file=1 THEN MODE 2:WINDOW#1,1,8® 
‚3,24: GOSUB 5648 

IF ww(1)=B THEN IF ww(2)=1 THEN 386 


<2>: 


a 
IF ww(1)=1 THEN IF ww(2)=B THEN 282 
[7] 
IF ww(1)=@® THEN IF ww(2)=B THEN 356 
a 


IF file=i THEN LOCATE 22,2:FRINT"in 
der Anzeige: "CHR# (24) name$CHR# (24 
); ELSE IF file=i THEN LOCATE 22,2: 
PRINT"im Druck: "CHR#$ (24) nametCHRE& ( 
24); ELSE IF file=8 THEN MODE 2:608 
UB 5660: LOCATE 22,2:PRINT"im Druck: 
"CHR& (24) nametCHR#$ (24); 
FRINT#file,CHR$ (27) CHR$ (45) CHR$ (1) " 
GSEHAEUSE. . .";CHR$ (27) CHR$ 
(45) CHR$ (®) 
IF file=8 THEN FPRINT#file,CHR$ (18) 
ELSE FRINT#file 
FRINT#file,"V(as) 
PRINT#file,"@tts) 
FRINT#file,"Q@ttg) 
z" 
IF file=8 THEN FRINT#file,CHR$ (19) 
IF #f=1 THEN PRINT#file:G0TO 2918 
FRINT#file,"Volumen bedaempft : 
FRINT#file, "USING" HH. #44" vg: : PRINT#F 
ile," Liter" 
IF file=8 THEN PRINT#file,CHR£ (11); 
ELSE PRINT#file 
eh in mmi2 
ei Mies st 
PRINTAfile,"Standhoehe aussen in cm 
H „auho 
PRINT#file,"Tiefe oder _Breite in cm 
: ",tibr 
PRINT#file,"Tiefe oder Breite<d>: " 
„ROUND (br2,2);" cm" 
IF file=8 THEN PRINT#file,CHR£ (18); 


- Wert<i3>: ";vas 
- Wert<3 "ıqts 
- Wert<3>:12>0.78 


»Boxenkit« (Fortsetzung) 


LA2FCI 
[2C@6] 


[E86] 
[F@C?2] 


[06&D4] 
[2E7A] 


[E354] 


C[BBS58] 
LAs&SA] 


[172E] 
[491A] 
[188C)] 
LAAB&] 
[1326] 
CAFFB]I 
[75A2] 
L1DFC] 
[1632] 
[A182] 
[7B64] 
[AD82] 


[OAE2] 
[9600] 


[42F8] 
[F46E] 


[92BE] 
[93C82] 


[9FCO] 
[B4DE] 
[CESQ] 
[94A2] 
[7B52] 
[2366] 
[LASSCI 


LAAsQ] 
[2026] 


EFSCC] 


[QADS]I 
[3214] 
LA7F2] 
[3D2C) 
[6628] 
[9I4AA] 
[F4E4] 
[526C] 
[6388] 
[&D730]1 
[BBF6] 
[7800] 


LIFAA]I 


101 


CHR$ (19) ELSE PRINT#file:PRINT#file 


FPRINT#file,CHR$ (27) CHR$ (45) CHR$ (1) " 
Zuschnittmasse..."3CHR$ (27) CHR# (45) 
CHR#$ (8) 

IF file=8 THEN PRINT#file,CHR# (18) 
ELSE PRINT#file 

PRINT#file,"2 Stueck ";:PRINT#file, 
USING" ###.##";seiwl1;:FRINT#file," c 
m * "s:PRINT#file,USING"###.##"; sei 
w2; :PRINT#file,"cm" 

FRINT#file,"2 Stueck ";:PRINT#file, 
USING" ###.##";depli1;:FRINT#file," c 
m * ";:PRINT#file, USING" HH. ##": dep 
12 ;:PRINT#file,"cm" 

FRINT#file,"2 Stueck ";:PRINT#file, 
USING" ###.##"; frpli1;:PRINT#file," c 
m * "s:FRINT#file, USING" #4. ##";frp 
125 :PRINT#file, "cm" 

IF file=1 THEN LOCATE &8,25:FRINT"b 
itte <Taste>...":CALL %BBB6:LOCATE 
68,25: FRINT"”<17>" 

FOR u=s1 TO 2:PRINT#file,CHR$ (19) :NE 
xT 

IF ww(2)=B THEN 208 

IF #ff=3 THEN 3278 
PRINT#file,CHR# (27) CHR$ (45) CHRE£ (1) " 
ZWEIWEGWETICHE. "CHR 
# (27) CHR$ (45) CHR$ (®) 

IF file=8 THEN PRINT#file,CHR# (18) 
ELSE FRINT#file 
FRINT#file,"Impedanz des Tieftoener 
s :"srt,tief$ 

PRINT#file,"Impedanz des Hochtoener 
s :";rh,hoch# 
PRINT#file,"Uebernahmefrequenz in H 
z 2tsf13 

PRINT#fi le,CHR$ (19) 

FRINT#file,CHR$ (27) CHR$ (AS) CHRE (1) " 
Zwei wegqweiche mit sdB/Okt. ";CHR# (27 
) CHR$ (45) CHRF£ (DB); 
PRINT#file,CHR# (18) 

FRINT#file,"Lt = ";:PRINT#file,USIN 
G'#HHH. #4", 1t26db; : PRINT#file,” mH" 


FRINT#file,"Ch = ";:PRINT#file,USIN 
G"As#H.##";ch2ödb; :FRINT#file," ur" 


Ei 

FRINT#file,CHR# (18) 

PRINT#file,CHR$ (27) CHR$ (45) CHR$ (1) " 

Zweiwegweiche mit 12dB/Okt.";CHRE (2 

7) CHR$ (45) CHR#$ (8) 

IF file=1 THEN FRINT#file 

FRINT#file,"Lt = ";:PRINT#file, USIN 

G'#HH#. ##"1t;:PRINT#file, mH" 

FRINT#file,"Ct = "z:PRINT#file,USIN 

GH. ##" ct; :FRINT#file," ur" 

PRINT#file,"Lh = ";:PRINT#file,USIN 

G'#atH#.##";1hr: PRINT#file," mH"” 

PRINT#file,"Ch = ";:PRINT#file,USIN 

G'####.4##";ch; :PRINT#file," ur" 

FRINT#file,CHR$ (18) ; CHR$ (1®) 

IF file=1 THEN LOCATE 60,25:PRINT"b 

itte <Taste>...":CALL %BB94:60T0 28 

[") 

IF fff=2 THEN 200 

PRINT#file, CHR (27) CHR$ (ASICHRE CL)" 

DREIWEGWEICHE... "CH 

R$ (27) CHR$ (45) CHR$ (B) 

FRINT#file,CHR$ (18) 

er RG des Tieftoener 
<5>2: "srt,tief$ 

PRINT##} le." Impedanz des Mitteltoen 

ers{3>: "srm,mittel#$ 

PRINT#file," Impedanz des Hochtoener 

s<5>: "srh,hochs 

PRINT#file,"i1. Uebernahmefrequenz i 

n Hz<£2>: "241 

PRINT#file,"2. Uebernahmefrequenz i 

n Hz<27: " 3#25 

FRINT#file,CHR$ (10) 

PRINT#file,CHR$ (27) CHR$ (45) CHR$& (1) " 

Dreiwegweiche mit &dB/Okt. "CHR# (27) 

CHR$ (45) CHR$ (9); 

PRINT#file,CHR$ (18) 

PRINT#file,"Lt = ";:PRINT#file,USIN 

Gast. ##",1t36db; : PRINT#file," mH"” 


PRINT#file,"Lm = ";:PRINT#file,USIN 
G"Has#. #4"; 1Im3ödb; :PRINT#file," mH" 


FRINT#file,"Cm = ";:FPRINT#file,USIN 
G'#HRH#. #4", cm36db; :PRINT#file," ur" 


PRINT#file,"Ch = ";:PRINT#file,USIN 
G"#H##.##" ;ch3ödb; :PRINT#file," ur" 


’ 

PRINT#file,CHR# (18) 

IF file=1 THEN LOCATE 68,25:PRINT"b 
itte “Taste>...":CALL %BBB6:LOCATE 
68,25:PRINT"<17> 


[610A] 


[789C] 
[911E) 


[7822] 


[F4D8] 


[7416] 


E2CCE]I 
[6490] 
[BOBECI 
L12EA] 
1 75B8] 
[BBRC]I 
[39B6] 
[FQ76] 
[32A2] 
[622A] 


[LSZAC] 
[FOZE]I 


[D2E8] 


[B218] 
[8F 34] 


[369A] 
[CAD2] 
[FC84] 
LEASE] 
[7858] 
[C242] 
[7BOC] 


[89B4] 
[D478] 


[E2FC)I 
LAC38] 
CDDFA] 
{DFF8] 
[7BEC] 
[25B8] 
[FF&C]I 
[9C32] 


CDAB8] 
CEE36] 


[44F2] 


[D4D8] 


[BAC2]I 


£[D414] 
[OFZE] 


[34D4] 


PRINT#file,„CHR# (27) CHR$ (45) CHRE 1)" 
Dreiwegweiche mit 12dB/Üükt. "CHR# (27 
I) CHRE (45) CHRE (BD); 

FRINT#file,CHRF (19) 

PRINT#file, "Lt = "3:PRINT#file,USIN 
G"###.##";1t;:FRINT#file," mH" 
FRINT#file,"Ct = ";:PRINT#file,USIN 
G'###. ##" ct; :PRINT#file," ur" 
FRINT#file,"Lm = ";:FRINT#file,USIN 
G'###.##": 1m; :FRINT#file," mH" 
FRINT#file,"Cm = ";:PRINT#file,USIN 
G"###.##"; cm; :FRINT#file," ur" 
FRINT#file,"L2 = ";:PRINT#file,USIN 
G"’###. ##": 125: PRINT#file," mH" 
PRINT#file,"C2 =. "3:FPRINT#file,USIN 
G"###.##",c2;:PRINT#file," ur" 
FRINT#file,"Lh = ";:FRINT#file, USIN 
G"'###.##";1h; :PRINT#file," m 
FRINT#file,"Ch = "szPRINT#file,USIN 
G'###.##";ch; :FRINT#file," ur”; 
FRINT#file,CHR#£ (12) ; CHR# (18) 

IF file=s1 THEN LOCATE 68,25:FRINT"b 
itte “Taste}...":CALL %BEQ6: fff=9:6 
oTO 208 

G0T0 298 

ELSs Kerne 10, 10: FRINT"K e in ei3> 
Date 

LOCATE 65, 24: PRINT"Bitte <ENTER>... 


CALL %BBB6:G0T0 288 

Me 22 
"*%* Vierter Teil ** 
EEE 
** Schaltplaene 2,3-weg *r* 
RR 
ar und Hardcopy-Routine *%* 
** fuer Epson-Drucker ** 
"** (c) by Happy-Computer *%* 

I 2 Ze 1 2 2 2 
MODE 1:50SUB 5648: LOCATE 8,5:FRINT 
CHR& (24); STRING£ (24," ");CHR# (24) 
LOCATE 8,6: PRINT CHR$ (24); "<6> SCHAL 


LOCATE 8,7:PRINT CHR$ (24) ;STRING$ (2 
4," ")SCHRS (24) 
LÖCATE, 8,1@: PRINT"2-weg mit &dB/Okt 


mit 12dB/Ok 
mit sdB/Okt 
mit 12dB/Ok 


wahl = INKEYS: IF wahl$="" THEN 3778 

IF wahl$="®" THEN RETURN ELSE LOCAT 
E 1,28: INPUT"Ist dieser Schaltplan 

auf der Diskette<i2>im aktiven Laufw 
erk vorhanden (j/n) ";ät:IF as<>"j" 
THEN RETURN 

IF wahl$="1" THEN MODE 2: INK 1,13:L 
DAD"Zwegädb.grf" ,%CB9B: GOSUB 56558:6 
OSUB S680:60T0 3848 

IF wahl$="2" THEN MODE 2: INK 1,13:L 
OAD"Zwegi2db.grf" ‚«CBBB: GOSUB 5668: 
GOSUB 5838:G0T0 3848 

IF wahl$#="3" THEN MODE 2: INK 1,13:L 
OAD"Zwegödb.grf" „KCOBB: GOSUB 5668:6 
OSUB 5938:G60T0 3948 

IF wahl$="4" THEN MODE 2:INK 1,13:L 
OAD"Zwegi2db.grf" „%CBBB: GOSUB S66B: 
GOSUB 698390:G0T0 38408 

IF wahl$<>"@" OR wahl$<>"1" OR wahl 
$<>"2" OR wahl$<>"3" OR wahl$<>"4" 

THEN 3778 

LOCATE 1,25:PRINT CHR$ (24); "<2>Hard 
copy 


P eu? 
Ihre Wahl bitte...?<2>";CHR$ (24); 


INK 1,1 
rwahl$= INKEY£: IF rwahl$#="" THEN 386 
{") 


IF rwahl#="1" THEN GOSUB 399@8:6GOTO 

3618 

IF rwahl$="8" THEN GOTO 3618 

IF rwahl#<>"1" OR rwahl$<>"@" THEN 

3868 

"*#%*%# HARDCOPY ##%* 

LOCATE 1,25:PRINT STRING£(80," "); 

LOCATE 1,25:PRINT"Bitte Drucker ber 
eitmachen dann <TASTE>":CALL %BBB& 

LOCATE 1,25:FRINT STRING$(808," "); 

!WHARDCOPY: RETURN 

i=409608 

Ka wert#: IF wert$="ende" THEN 398 


POEE i,VAL("&"+wert$) :i=i+1:G60T0 39 
& 
CALL ABB: RETURN 


[1268] 
[9C34] 


[BAACI 
LAAS&] 
CEB34] 
E311E] 
[8B4C] 
[6324] 
[F816] 
[6276] 
[A418] 
[SS6A] 
L72B®) 
[22FA] 
CB2D2] 
[8CC2) 
{C788] 
L4EBE)] 
[LABFAI 
[81DE] 
LIEFE] 
[606402] 
[D922] 
LEFS6] 
[8306] 
[1894] 
LDED2] 
[FED8] 
[7B7A] 
[8A8B] 
[A9BCI 
[5092] 
[DCCA]I 


[SB6E)] 
[4238] 


[F128)2 


[A&CA] 


[CöBA] 


L4EB8] 


[E9IB6] 


[7942] 


EFF9IE] 


[8400] 


UCF@®Q] 


LE&9A] 
[AS4E) 


[5144] 
[4352] 
EDFDE] 


EF7CCI 
CB3E2] 
[16C0)] 
[B134] 


[4786] 


[aC2@] 
[0682] 


DATA 01,09,AQ,21,17,AB,C3,D1,BC,BE, 
AB,C3,1B,A@,48,41,52,44,43,4F ,58,D9 
‚20,020,00,00,00,CD,0B,BC,22,4C,Al,C 
D,11,BC,32,4£,A1,21,5F,A1,3D,28,09, 
21,57,A1,3D,28,03,21,63,Al,21,08,00 
‚11,4F ,Al,ED,B®,ED,73,6£,Al,3A,4&,A 
1,87,FE,@1,CE,20,87,32,66,A1,@E,@D 
DATA CD,37,A1,8E,0A,CD,37,A1,3E,82, 
CD,AD,AQ,3E,7F,32,65,A1,2A,4C,A1,7C 
‚F6,C8,67,86,1D,05,28,85,3E,78,32,6 
5,A1,24,C5,CD,C2,AB,3A,4E,Al,FE,@2, 
CC,C2,A®,11,08,08,A47,ED,52,7C,F6,3F 
‚3C,28,88,11,B0,3F,19,7C,F6,F8,67,8 
E,2A,CD,37,A1,8E,@D,CD,37,Al,E5,3E 
DATA 42,CD,1E,BB,C2,47,Al,E1,C1,1@, 
C9,3E,83,21,78,A1,4E,23,06,80,89,3D 
‚28,F8,46,23,4E,23,CD,37,Al,18,F9,C 
9,E5,21,78,A1,3A,4E,Al,FE,82,28,85, 
4E,23,06,00,09,CD,B8,AQ,E1,3A,4E,Al 
‚FE,82,86,28,28,82,86,580,05,E5,11,6 
7,A1,3E,807,ED,AQ,2B,21,20,08,09,38 
DATA 8A,01,50,C0,89,47,7C,E6,C07,67, 
78,3D,28,EA,21,4F,Al,3A,66,A1,47,C5 
‚11,67,41,86,87,1A,13,A6,FE,@1,3F,C 
B,11,180,F6,3A,65,A1,A1,4F,CD,37,Al, 
ZA,4E,A1,A7,CC,37,A1,C1,23,18,DD,Ei 
‚C1,7C,E6,F8,4F,23,7C,E6,807,B1,67,1 
8,AB,C9,79,CD,2B,BD,D8,C5,E5,3E,42 
DATA CD,1E,BB,E1,C1,28,F0,ED,7B,6E, 
A1,C9,28,20,00,08,20,00,00,20,00,08 
‚22,80,40,20,10,08,04,02,01,88,44,2 
2,11,AA,55,20,00,08,00,00,208,00,00, 
02,00,28 
DATA 04,1B,4C,40,01,84,1RB,4B,48,01, 
@3,1B,41,87,03,1B,41,@C 


S5® DATA ende 


MAPP 


:ONRUTER 


Me ee 

"*r* Fuenfter Teil *%* 

I 2 ea ee ee 

"*%* Programm beenden ** 
RBB 

LOCATE 198,25:FRINT"wirklich beenden 
3/n " 

wahll1$=INKEY$: IF wahll$#="" 

1") 

wahl1$=UPFER$ (wahll1#) 

IF wahli$="N" THEN 288 ELSE IF wahl 

1£="J" THEN FOR u=si1 TO 1888: NEXT:CL 

S: END 

IF wahll$<>"N" 

THEN 41208 

Me 2 2 2 a 7 

** Sechster Teil *r* 

I 2 777 

*%* Hinweise zu ** 

"*#* erforderlichen Daten *%* 
I 2 a a 1 1 1 7 77 

WINDOW#1,1,808,4,25:CLS5#1 

LOCATE 1,6:PRINT"Unter dem Menuepun 

kt ‘2° werden Sie da- zu“2>aufgefor 

dert, einen V(as)-Wert ein- zugeben 


THEN 412 


THEN IF wahl1$<>"J" 


FRINT 
LOCATE 1,18:PRINT"Dieser V(as)-Wert 
ist ein Mass fuer die Nachgiebigke 
it der Lautsprechermembrane und gib 
t an, welche Menge£2>an<2>Luft<2>in 
einem Behaelter<2>gleicher<2>Grund 
flaeche ebenso nachgiebig ist, wie 
Z>die Membran in ihrer Aufhaengung. 


PRINT 

LOCATE 1,17:FRINT"Hersteller<2>qgute 

r<2>lLautsprechersysteme{i2>geben die 
sen Wert in ihren Datenblaet-tern m 
it an oder teilen ihn<2;Ihnen“2>auf 
<3zAnfrage gerne mit." 

LOCATE 25,24:PRINT"bitte <ENTER>":C 
ALL %BBO&6 

CLS#1 

LOCATE 1,&6:PRINT"Der angeforderte @ 
(ts)-Wert ist<2>ebenso in guten Dat 
enblaettern aufgefuehrt. Er ist ein 
e dimensionslose rein technische Gr 
oesse, deren Ermittlung aufwendig i 
st und hier nicht naeher erlaeutert 
werden soll." 

PRINT 

LOCATE 1,13:PRINT"Als£2>Anhaltspunk 
t<2>sei22>angemerkt, dass bessere L 
autsprecher Qt(ts) Werte<2>unter 0.3 
5 besitzen und gute sogar Wertei2>u 
n- ter 8.26 und weniger aufweisen k 
oennen. Auch diesen Wert erhalten<2 
2Siei2>}aus Da- tenblaettern oder au 
f Anfrage." 

LOCATE 25,24:PRINT"Bitte <ENTER>":C 
ALL %&BB®6: RETURN 

I 2 22 2 2 2 nn 1 2 

** Siebter Teil *%* 


[1B44] 


[356E] 


[DDFE)] 


[6D28] 


[76A6] 


[7CB6] 
LF37E] 
[86F A] 
[4BBE] 
[öCFE] 
[7F64] 
[ACF®] 


TA6&A4] 


[D2CB) 
(S5S53C] 


[31CC] 


LAAF2] 
[CCAFC]I 
[7A94] 
[25908] 
[61D®] 
[299A] 
[2DF4] 
CFED®) 


[3508] 
L[AEEE] 


[FA48] 
EBBF2] 


[2084] 


[BBOQ) 
[CA4AI 


[994C]I 
[D5SEA]I 


[4030] 


[DDEC]I 
CBAFC]I 
[28EE)] 


45008 
4518 


4528 
4538 


4549 
4550 
4568 


4578 
4588 
4598 
4608 
4618 
4628 
4630 
4648 
4658 
46568 
46708 
4588 
4690 
4788 
4718 
4728 
4738 
47408 
4758 
4768 
4770 
4788 
4798 
4808 
4818 
4828 
4938 
4848 
4850 
4868 
4878 
48808 
4890 
4988 
4918 
4928 
4930 
4948 
4958 
4968 
4978 
4988 


4998 


lu] 
sB1® 
5228 
sa38 
5040 
saSßa 
el. 121") 
5978 
S5a80 
52978 


RE 

** Daten speichern *%* 

I 2 2 2 a 1 7 27 

CLS:GOSUB 5648 

LOCATE 11,5:PRINT STRING$ (17,CHR$ (1 

43)):LOCATE 11,6:PRINT CHR£(24)" DA 

TEN SFEICHERN "CHR$ (24) :LOCATE 11,7 
:PRINT STRING# (17,CHR#(143)) 

LOCATE S,18:FRINT"Auf welchem Laufw 

erk ? (A/B)" 

ast=INKEY$:LOCATE 28,15:PRINT"DRIVE 
.. "UPFER£( aa$):aa$=UPPER$(aa$): IF 
aas="" THEN 4418 ELSE IF aa$="A" T 

HEN :ıA ELSE :B 

FOR u=1 TO 29888: NEXT:LOCATE 5,18: PR 
INT STRING$ (29," "):LOCATE 5,15:PRI 

NT STRING$ (29," ") 

LOCATE 8,18: PRINT"Bitte Namen einge 

ben..." 

LOCATE 8,14: INPUT name$:name*+=name# 

+" box" 

OFPENOUT name$ 

PRINT#9 ,name$ 

PRINT#9I,fff 

FOR u=18 TO 16:L0CATE 5,u:PRINT STR 
ING$ (34," ")=2NEXT:LOCATE 5,24:PRINT 
"Nicht mehr als 25 Zeichen „...":LOC 

ATE 1, 18: INPUT"Bezeichnung Tieftoen 
eri2>: ‚tiefs 

IF fff=3 ’THEN LOCATE 1, 12: INPUT"Bez 

eichnung Mitteltoener: ‚mittel 

LOCATE 1,14: INPUT"Bezeichnung Hocht 

oener<2>: ",hoch# 

GOTO 4568 

"IF ww(1)=@ THEN IF ww(2)=1 THEN 45 

s@ 


IF ww(1)=1 THEN IF ww(2)=Q THEN 456 
17) 


IF ww(1)=@ THEN IF ww(2)=B THEN 498 


[”) 

FPRINT#9 ,tief$:PRINT#9 ,mittel$#:PRINT 
#9 ,hoch$ 

PRINT#9 ,ww (1) 

FPRINT#9 „ww (2) 

FRINT#9,vas 

PRINT#9 ,qts 

PRINT#9,qtg 

FRINT#9,vg 

PRINT#9,mast 

PRINT#9,auho 

FPRINT#9,tibr 

FRINT#9,br2 
PRINT#9,frpli1:FRINT#9,frpl12 
FRINT#9,depl1:PRINT#9,depl2 
PRINT#9,frpli:PRINT#9,frpl2 


PRINT#9,rt 
PRINT#9,rh 
PRINT#9,#1 
PRINT#9,1t26db 
PRINT#9,ch26db 
PRINT#9 ,ct 
PRINT#9,1h 
PRINT#9,ch 


PRINT#9,rt 

FRINT#9,rm 

FRINT#9,rh 

PRINT#9,#f1 

FRINT#9,f2 

FRINT#9,1t36db 

FRINT#9 ,1m36db 

FRINT#9,cm3ödb 

FRINT#9,ch3ödb 

FRINT#9,1t 

FRINT#9,ct 

FRINT#9,1m 

FRINT#9,cm 

PRINT#9,12 

PRINT#9,ch 

FPRINT#9,1h 

FRINT#9,ch 

CLOSEOUT: GOTO 2988 

FOR u=18 TO 22:LOCATE 5,u:FRINT STR 
ING$(34," "):NEXT: LOCATE 10, 10: PRIN 
T'"Ke in e<i3>D at e 

LOCATE 65,24: Pi PRINT"Bitte” <ENTER>.... 


CALL %BBB&6:CLOSEOUT:GOTO 2988 

EEE 
*%* Achter Teil *%* 
MG 2 2 ee 2 ee 2 2 7 
"** a. Daten einlesen und *%* 
"** b. ausgeben *%* 
Me ea ee 
"** b.i Bildschirmausgabe ** 
"** b.2 Druckerausgabe *%* 
RER 


»Boxenkit« (Fortsetzung) 


[2308] 
[D&D4] 
[C984] 
[2BF&] 


[CC34] 
[6424] 


LAFS8] 


CDAFB] 
[4994] 


[A748] 
CDCEFA]I 
{FD92] 
[3B6E] 


[aD28] 
[572C] 


LF97E]I 
[6026] 


[92B2] 
LEE68] 
[7C74] 


LAECE] 
[4AEA] 
EB&EE)] 
[82A2] 
[38AE] 
LEF9B] 
[25BC] 
[öAGE) 
CAD68] 
[BAHA] 
ECDE16] 
[E840] 
[C186] 
[3244] 
[9624] 
[B4CE] 
[12B8] 
[L6A34] 
[SB24] 
CABFC] 
C2DBA] 
[82B6] 
[SSAS] 
CBF36] 
[SiCE] 
[45C2] 
[C9BA] 
[8136] 
£[C93A] 
[7D2A] 
[CDIE] 
L8BDE)] 
[6EB6] 
[2DD4] 
[2BB2] 
[62B8] 
[4DAB] 
[AB46] 
[73A2] 
[78B6] 
£L13A6] 
[BSQE] 


[D5S1C] 


[B2ED] 
L7OFC] 
LAZF2] 
[SSF6] 
[AUF&] 
[CC9A] 
[7426] 
[21FC] 
CBO2A] 
[DASC) 
[6582] 


103 


CLS: GOSUB 5648 

LOCATE 11,5:PRINT STRING$ (17,CHR$ (1 
AZ))=LOCATE 11,6:FPRINT CHR$(24)" DA 
TEN<Z>EINLESEN "CHR$ (24): LOCATE 11, 
7:FRINT STRING#$ (17,CHR$(143)) 
LOCATE 1,15:PRINT STRING$S(39," ")3: 
LOCATE 28,24:FRINT STRING#$(19," "); 
GOSUB 5648 

namet=qwe$ 

LOCATE 5, 10: ; PRINT" Von welchem Laufw 
erk ? (A/B) 

d$=INKEY#: LOCATE 28,15:FRINT"DRIVE. 
.. "UPPER& (d$) :d$=UPPER&$ (d#) : IF dt=" 
" THEN 5168 ELSE IF d$="A" THEN ıA 
ELSE :!B 

WINDOW#3,1,408,5,25:CLS#3 

ERNT 8, ılı :PRINT"Directory auslese 


:FRINT"Zum Hauptmenue... 
‚a 


af= INKEVSLIF af="" THEN 5218 
a=INT (VAL (af)):IF a<® OR a>1 THEN S 
178 

IF a=® THEN RETURN 

MODE 2:GOSUB 5648 

IF a=i THEN PRINT:PRINT:PRINT:PRINT 
: CAT 

IF VAL(at)=@ THEN RETURN 

LOCATE 5,5: INFUT"Name des BERgeTSEN 
ten Files (ohne Extension) : " 

$: IF namet=swe#+ THEN RETURN ELSE en 
met=name++".box" 
name$=nameft: IF name$="" THEN RETURN 
WINDOW#1,1,88,7,25:CLS#1:LOCATE 1,5 
:FRINT STRING$ (79, " ")SLOCATE 1,37 :P 
RINT"Gelesen wird : "names: WINDOW 
SWAF 8,1 

OFENIN namef$ 

WHILE NOT EOF 

INPUT#9 ,‚name$: INPUT#9,fff 

INPUT#9 ,tieff: INPUT#9 ,mittel#: INPUT 
#9 ,hoch# 

INPUT#9 „ww (1) : INPUT#9 „ww (2) 

INPUT#9, vas: INFUT#9 ,qgts: INFPUT#9,qtg 


INPUT#9, vg: INFUT#9 ‚mast : INFUT#9,auh 
o: INFUT#9,tibr 

INFUT#9 ,br2: INPUT#9 ,seiwi1: INFUT#9,s 
eiw2: INFPUT#9,depl1:INPUT#9,depl12:IN 
FUT#9,frpl1: INFUT#9,frpl2 


INPUT#9 ,rt: INPUT#9,rh: INPUT#9, fi 
INPUT#9,1t26db: INPUT#9 ,ch2ö6db: INPUT 
#9 ,ct: INPUT#9,1h: INPUT#9,ch 
INPUT#9 ,rt: INPUT#9 ,rmh: INPUT#9,rh=1I 
NPUT#9, #1: INPUT#9, +2 
INFUT#9, 1t36db: INPUT#9, 1m36db: INPUT 
#9, cm36db: INFPUT#9, ch3&db 
INPUT#9,1t: INPUT#9 ,ct: INPUT#9,1m: IN 
FUT#9 ,cm: INPUT#9 ,12: INPUT#9,ch: INFU 
T#9,1h: INPUT#9,ch 

"IF a=2 THEN ausgabe=8: ffff=1:G60T0 
5490 
ausgabe=1 
WEND: CLOSEIN 
MODE 1:G60SUB 5648 
LOCATE 11,5:PRINT STRING£ (17,CHR#£ (1 
43)):LOCATE 11,65:PRINT CHR$(24)" DA 
TEN<2>EINLESEN "CHR$ (24) :LOCATE 11, 
7:FRINT STRING# (17,CHR$(143)) 
LOCATE 8,11: : PRINT "Ausgabe auf Bilds 


a$-INKEY$: ir as="" 
=INT (VAL (a$)) 

IF a@® OR a>2 THEN CLS#3:60T0 5498 
IF a=B THEN RETURN 

IF a=1 THEN ausgabe=1 ELSE ausgabe= 
B:fff#=1 

GOSUB 2648: RETURN 

RR EEE 

ar Neunter Teil *%* 
EEE 

** Kopfzeile MODE 1 *%* 

** Kopfzeile MODE 2 *%* 
REIHE 
LOCATE 1,1:PRINT STRING#$ (48,CHR#$ (15 

4)),;"Boxenkit 4.324>(C) 198& byi2’G 
AL AC O";s:FRINT STRING$ (48,CHR$( 
154)); 

RETURN 

FRINT STRING$ (88 ,CHR£ (154) ) ; "Boxenk 


THEN S553@® ELSE a 


[19D6] 


[76Bö] 
[24B®] 
[SEBA] 


[7FS6] 


LEEBA] 
[6BDC] 


[68036] 
L1C38] 


[22D6] 
[6&3E8] 


EZASE] 
L136C] 
[c81A] 


[749A] 
[a822] 


[CAsB] 
[BE68] 


LACACI 
[S42C] 
EDEDA] 
[1596] 


CBDD8] 
[8BöE] 


CDI2EI 
[C7D8] 
[9588] 
[272E] 
LFCOS] 
[SBSC] 
[2308] 
[1812] 


[8F54] 


CB2D8] 
[9568] 
[CACB] 
[8B1E] 


L74EA] 
[14CE] 
[2776] 
[7C2C] 
[2BEB] 


[a7F4] 
17358] 
[A676] 


LE822] 
CBEEE] 
L[ABBAI 
[8622] 
[2BFC] 
[7674] 
[A278] 
[A182] 


LSFSE] 
[91AQ] 


60808 
a7 


6180 
6110 


6128 
6138 


6148 
68152 


6168 


it 4.3<44>(C) 1986 byi2>56 ALACO 
"3:PRINT STRING$ (88 ,CHRF(154)) 5 
RETURN 
REIHE 

"** Zehnter Teil *%* 
OHREN 

*%* Daten in Schaltplaene #* 

** einbinden *% 
ER 


RER 

#* Zweg &db *%* 
HI 

IF fff=2 OR ftff=2 THEN 5798 ELSE 5 
820 

IF name$<>"" THEN LOCATE 28,2:PRINT 
"zu den Daten von : "CHRF(24)nametC 
HR# (24); ELSE LOCATE 28,2:PRINT CHR 
$(24)"zur momentanen Berechnung"CHR 
$(24);5 
LOCATE 48,9:PRINT"lt =";:PRINT USIN 
G'’###. ##" 7 1t26dbz PRINT" mH" 
LOCATE #8,18:PRINT"ch =";:FRINT USI 
NG'"###. ##";ch26db: : PRINT " "+CHR# (1 
BZ) H"F" 
RETURN 
EEE 

*r Zweg 12db *%* 

Ma a 2 2 Ze ee 2 e7 

IF #ff=2 OR ftff=2 THEN 5878 ELSE 5 
920 

IF names“ >"" 
"zu den Daten von : 
HR£ (24); ELSE LOCATE 
$(24)"zur momentanen 
(24); 
LOCATE 48,9:PRINT"1t =";:PRINT USIN 
G"#H#.##";1t;:PRINT" mH" 
LOCATE &8,18:FRINT"ct =";:FRINT USI 
NG"###.##";ct;:PRINT " "+CHR$(183) + 
pn 
LOCATE 68,11:PRINT "lh =";:FRINT US 
ING" ###. ##" 3 Ihz PRINT" mH" 
LOCATE 58,12:FRINT"ch ="3:PRINT USI 
NG" ###. ##";ch;: PRINT " "+CHR$ (185) + 
ng 
RETURN 
EEE 

*%* Sweg &db ** 
RBB 

IF fff=3 OR ffff=3 THEN 5980 ELSE 6 
0228 

IF names#<>"" THEN LOCATE 28,2:PRINT 
"zu den Daten von : "CHR$(Z4)name$C 
HR$ (24); ELSE LOCATE 28,2:FRINT CHR 
£(24)"zur momentanen Berechnung"CHR 
+(24); 
LOCATE 56,7: FRINT"lt ="5 PRINT USIN 
G'#H#. ##" 2 1t36dbz; : PRINT" mA" 
LOCATE 66,18:FRINT "lm =";3:FRINT US 
ING" ###. #4"; 1Im36db; : PRINT" mH'" 
LOCATE 65,11:PRINT"cm ="::FRINT USI 
NG"###. #4"; cm36dbz; : PRINT " "+CHRE (1 
BZ) +"F" 
LOCATE 66,12:FRINT "ch =";:FRINT US 
ING" ###. ##":ch36db; : PRINT "H+CHRE( 
LOI)+"F" 
RETURN 
EEE 

** Zweg 12db *r* 
BR 

IF f#f#f=Z OR ffff=3 THEN 6888 ELSE & 
168 

IF name#ti >"" 
"zu den Daten von : 
HR# (24); ELSE LOCATE 
#(24)"zur momentanen 
#(24)5 
LOTATE 56,9:FRINT"lt =";:FRINT USIN 
G'aHH.##";1t3: PRINT" mH" 
LOCATE &6,18:PRINT "ct =";:FRINT US 
ING"###.##"3ct::PRINT " "+CHR# (183) 
+"pn 
LOCATE 66,11:FRINT "lm =";3:PRINT US 
ING" ###. #4" Im; : PRINT" mH" 
LOCATE 66,12:FRINT"cm ="::PRINT USI 
NG"###. ##" cm; = FRINT " "+CHR$ (1835) + 
gu 
LOCATE 66,13:FRINT"12 ="; 
NG'###. ##"; 23ı1PRINT" mH" 
LOCATE 66,14: FRINT"cC?2 =";:PRINT USI 
NG"###. ##"3c2; PRINT " +CHREL1BF)+ 
"Fu 
LOCATE 685,15:PRINT"lIh =";:FRINT USI 
NG" ###. ##"; 1h5:PRINT" m mH'" 
LOCATE 55,16:FRINT "ch ="5:PRINT US 
ING" ###. ##" ch; : PRINT " "+CHR# (183) 
zupi 
RETURN 


THEN LOCATE 28,2:FPRINT 
"CHR# (24) name$C 
280,2:FRINT CHR 
Berechnung "CHR 


THEN LOCATE 28,2:FRINT 
"CHR# (24) name#C 
28,2:FRINT CHR 
Berechnung "CHR 


:FRINT USI 


»Boxenkit« (Schluß) 


[7232] 
[8DA4] 
[S48C] 
[Sc22 

[83FE] 
[C766] 
£[C712] 
C[1F@4] 
[BE2E] 
CBDQ8] 
CDF24] 
[2BaC] 


[2B5@] 


[BS526] 
[86BA] 
i517A] 
[BS9IE] 
[B1Q6] 
[8853C] 
CB7BA] 


[CB4E]I 


[6424] 
[D3BE) 


[ 7DSE)] 
[a512] 
[DD24] 
LASAB] 
[CF3B8] 
[3126] 
[512C] 


[3E48] 


C[BF26] 
[F72A] 
[8DABI 


LEFBE] 


[CDBE] 
[C598] 
[C8i1F8] 
t4F38] 
[SBFC]I 


[4132] 


tZE16] 
LARBCI 


[339C] 
[5924] 


[7136] 
[DC3B] 


[E352] 
[ESED] 


[3872] 
[a49A] 


»Shares« hilft jedem, die Kursentwicklung seiner 
diversen Aktien im Auge zu behalten und damit 
immer eine Übersicht zu haben. 


mmer mehr Menschen legen ihren Spargroschen nicht 

unters Kopfkissen, sondern setzen auf die eventuell 

hohe Rendite von Wertpapieren. Im Laufe der Zeitsam- 
melt sich so ein ziemlicher Haufen Papier an, der verwaltet 
sein will. Das übernehmen zwar im allgemeinen Banken, 
man selbst möchte sich aber oft auch einen kurzfristigen 
Überblick verschaffen. »Shares« nimmt Ihnen nun diese 
Arbeit ab und verleiht Ihnen Übersicht über die Kursent- 
wicklung jedes einzelnen Papiers. Die Bedienung gestaltet 
sich dank der weitgehenden Joysticksteuerung sehr benut- 
zerfreundlich. Eingaben erleichtert außerdem eine deut- 
sche Tastaturbelegung. Die Arbeit mit Shares erfolgt über 
ein Menü, dessen Unterpunkte mit Hilfe eines Pfeilsymbols 
anzuwählen sind. Dazu richten Sie den Pfeil mit dem Joy- 
stick auf den Punkt und drücken die Feuertaste. 
- Laden vorhandener Daten 

Lädt den Inhalt der Datei »SHARES.DAT« zur Bearbei- 
tung in den Arbeitsspeicher. Sie besteht aus bis zu zehn 
Datensätzen für je ein Wertpapier. 

- Dateieninhaltsverzeichnis 

Zeigt nicht etwa Directory des angeschlossenen Mas- 
senspeichers an, sondern für welche Wertpapiere sich 
Daten im Speicher befinden, und wieviele Kursnotierungen 
für jedes Wertpapier vorliegen. 

- Neuanlage einer Wertpapierdatei 

Solange nicht bereits zehn Wertpapieradressen im Spei- 
cher sind, läßt sich eine Datei für ein weiteres Wertpapier 
neu einrichten. Dazu müssen Sie den Namen des Wert- 
papieres, den Zeitpunkt der ersten Kursnotierung und 
diese Kursnotierung selbst eingeben. 

- Aktualisierung einer Wertpapierdatei 

Geben Sie neue Kursnotierungen für ein bereits gespei- 
chertes Wertpapier ein. Wählen Sie das gewünschte Wert- 
papier mit dem Joystick, geben Sie den Zeitpunkt und die 
neue Kursnotierung an und legen Sie fest, ob der Kurs iin die 
Kursstatistik des Wertpapiers einbezogen werden soll. 

- Kursdaten eines Wertpapiers 

Ausgabe sämtlicher gespeicherter Kursnotierungen 
eines Wertpapiers. 

- Kursentwicklung eines Wertpapiers 

Die Ausgabe beschränkt sich auf die Kursnotierungen, 
bei deren Eingabe Sie angegeben haben, daß sie in die 
Kursstatistik einfließen sollen. Zu jeder dieser Notierungen 
erscheint außerdem die prozentuale Veränderung zur vor- 
hergehenden und zur ersten gespeicherten Kursangabe. 
- Kursgrafik eines Wertpapiers , 

Einen besonders deutlichen Überblick über die Kursent- 
wicklung eines Papiers bietet die grafische Darstellung auf 
dem Monitor, die sämtliche gespeicherten Kursnotierun- 
gen einbezieht. Durch eine Rechts- oder Linksbewegung 
des Joysticks können Sie jeden Punkt der Kurve (entspricht 
einer Kursnotierung) mit Hilfe eines kreisförmigen Cursors 
ansteuern, wodurch Shares den Zeitpunkt und Kurswert 
des jeweiligen Kurvenpunkts am unteren Rand des Bild- 
schirms anzeigt. Durch Druck der Feuertaste gelangen Sie 
zurück ins Hauptmenü. 

- Datensicherung 

Damit Sie nicht nach jedem Start des Programms alle 
Daten neu eingeben müssen, lassen sich die Daten aller 
Wertpapiere als Datei »SHARES.DAT« speichern. 
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SHARES 
Ein Programm zur Kursbeobachtung von Wertpapieren 

Bitte wählen Sie: 
Laden vorhandener Daten 
Dateieninhaltsverzeichnis 
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Aktualisierung einer Wertpapierdatei 
Kursdaten eines Wertpapiers 
Kursentwicklung eines Wertpapiers 
Kursgrafik eines Wertpapiers 
Datensicherung 
Programm beenden 
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Kursgrafik eines Wertpapiers 


Zeitpunkt: Kurs: REBEHESG) 
Die Kursentwicklung ist auch grafisch darstellbar 
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- Programm beenden 

Verlassen Sie Shares in jedem Fall nach der Datensiche- 
rung über diesen Menüpunkt, denn er beendet die Pro- 
grammausführung normal und löscht das Programm dabei 
nicht, so daß Sie bei einem versehentlichen Ende mit 
»GOTO 100« das Programm ohne Datenverlust neu starten. 


(W. Meier/ja) 


REM "SHARES" — Programm zur Kursbeoba 
chtung von Wertpapieren [BE24]1 
REM (c) Wolfgang Meier, Schinkelstr.2 
6, D-334@8 Wolfenbuettel [4928] 
REM Tel. 85331/72418 [6E46] 
? [8256] 
INK 8,8: INK 1,24:PAPER B:BORDER B:PEN 

1:DIM a$(9,308,1):dz=B:ri=@8:DIM S(1) 
:SYMBOL AFTER 64:0N ERROR GOTO 1318 CDF48] 
SYMBOL 94,%X1111@0,%X11@0B119,&X110001 
18,&X11B8B110B,%X11WB111B,%X11B@0110,% 
X11011109,0:SYMBOL 54,8,%X11@2110,0,% 
X1120112,%X110B110,&X110B1190,%X111110 
‚8:SYMBOL 124,&X1108119,8,%X1100110,% 
X1100118,%X1100110,&X110B11B8,%X111108 


[') 

y 

SYMBOL 91,&X1100112@,8,%X111100Q,%&X11 
BO,&X1111100,&X110B11QOB,&X111011Q:SYM 
BOL 123,&X11@0W110,&X110B@,&X111100,%&X 
11@011@,%&X1111110,&X11AQ11Q,%&X11AQ11@ 
‚„B:SYMBOL 93,&X110@110,8,&X111100,&X1 
1BOQ11Q,&X11B0110,%&K1100110,%&X111100,0 


SYMBOL 125,%X118@0110,%X111B00,%X11B1 
190,L&:.X110W911B,%X11BBB110,%X1121100,% 
X11190988,0:5YMBOL 251,%&X190180,%X1B018 
„aX1DO1,&X111,%X1001,%X100198,%X100108 
‚8:5YMBOL 252,&X10000000,%&X1BB0002Q,%X 
120000 ,255,%X190909900,%X1000009,128,80:5 
YMBOL 253,8,08,8,255,80,8,8,@ [F138]1 
SYMBOL 254,2,1,8,255,8,1,2,8:S5YMBOL 2 
55,8,128,%X11100000,%X11111200,&X1118 
20000,128,98,8:p$=CHR$ (251) +CHR$ (252) +C 
HR$ (253) +CHR$ (254) +CHR$ (255) :pl=1:0PE 
NOUT”"X":=MEMORY HIMEM-1:CLOSEOUT [26806] 
19@ MODE 2 [9C50] 
118 LOCATE 29,1:PRINT"S H AR E S":LOCAT 
E 16,3:PRINT"Ein Programm, zur Kursbe 
obachtung von Wertpapieren" [99FB8] 
128 LOCATE 23,5:PRINT"Bitte w[hlen Sie:" 


CACDB] 
138 LOCATE 21,7:PRINT"Laden vorhandener 
Daten" [3A12] 
148 LOCATE 21,9:PRINT"Dateieninhaltsverz 
eichnis” [846E] 
15@ LOCATE 21,11:PRINT"Neuanlage einer W 
ertpapierdatei" LASZE]I 
168 LOCATE 21,13:PRINT"Aktualisierung ei 
ner Wertpapierdatei” [4EA4] 
178 LOCATE 21,15:PRINT"Kursdaten eines W 
ertpapiers" [1856] 
188 LOCATE 21,17:PRINT"Kursentwicklung e 
ines Wertpapiers"” [189A] 
198 LOCATE 21,19:PRINT"Kursgrafik eines 
Wertpapiers" [D432] 
288 LOCATE 21,21:PRINT"Datensicherung" [7776] 
218 LOCATE 21,23:PRINT"Programm beenden" 
[AA8B] 
228 LOCATE 11,pl1*#2+5:PRINT p$:SOUND 2,38 
‚38,7:WHILE (JOY(B) AND 16)<>16:FOR 
t=1 TO 88:NEXT t [FF6Q] 
238 IF (JOY(®) AND 1)=1 AND pl>1 THEN LO 
CATE 11,p1#2+5:PRINT"<S5>":pl=pl-1:L0 
CATE 11,pl*2+5:PRINT p$:SOUND 1,pl#2 
8+190,180,5 ELSE IF (JOY(@ AND 2)=2 A 
ND pl1<9 THEN LOCATE 11,p1#2+5:PRINT" 
<5>"zpl=pl+1:LOCATE 11,pl*2+5:PRINT 
p$:SOUND 1,pl*28+198,18,5 [5S5SC]I 
WEND [35C8] 
SOUND 2,78,1@8,7:BORDER 26:FOR t=1 TO 
5@:NEXT t:BORDER 8:0ON pl GOSUB 270, 
290,3380,580,760,890,1820,1170,1208 [BE68] 
G0TO 198 [D144] 
CLS:ERASE A$:DZ=9:DIM A$(9,308,1):L0 
CATE 1,2:PRINT p$; "<4>Laden vorhande 
ner Daten":LOCATE 18,4:PRINT"Bitte s 
tellen Sie sicher, ob Ihre Datencass 
ette":LOCATE 18,5:PRINT"auf den rich 
tigen Z[hlerstand gebracht ist !":PR 
INT LEAYE]I 
PRINT TAB(18);"Dr@cken Sie PLAY, dan 
n ENTER. ":WHILE INKEY$<>CHR$ (13) :WEN 
D: OPENIN" !shares. dat": INPUT#9,DZ:FOR 
zi=8 TO dz-1: INPUT#9,A$(Z1,8,8):INP 
UT#9,A$(Z1,0,1):FOR Z2=1 TO VAL(A$(Z 
1,8,1))+2: INPUT#9,A$(Z1,2Z2,8): INPUT# 
9,A$(Z1,22,1) [1262] 


[@B62] 


C2BE6] 


Computer: 
Checksummer: 


558 
568 
578 


588 
5978 


608 
618 


Programm: 


Datenträger: 


NEXT Z2,Z1:CLOSEIN: RETURN 
CLS:G0OSUB 1218:LOCATE 1,2:PRINT p$;" 
<4>Dateieninhaltsverzeichnis":PRINT: 
IF dz=® THEN PRINT TAB(1B);"Es sind 
keine Dateien vorhanden. ":60T0 328 
FOR z=@ TO dz-i:PRINT TAB(18); "Name: 
"sa$(z,8,@); TAB(44);"Gr]*e: ";USING 
"444"; VAL(a$(z,8,1));:PRINT" Element 
"s:IF a$(z,Q8,1)<>"1"THEN PRINT”e" 
NEXT z 
WHILE INKEY$="":WEND: RETURN 
CLS:GOSUB 1219:L0OCATE 1,2:PRINT p$;" 
<4>Neuanlage einer Wertpapierdatei": 
IF dz<1® THEN 34@ ELSE LOCATE 18,4:P 
RINT"Leider ist der Speicherplatz vo 
llstI[ndig belegt,":PRINT TAB(19);"so 
da” keine weiteren Dateien mehr ang 
elegt werden k]Innen." 
PRINT:PRINT TAB(18);"Sollen daher di 
e vorhandenen Daten gellscht werden 
? "32 1INPUT"",j$:IF LOWER$(j$)=" ja"TH 
EN ERASE a$:DIM a$(9,308,1):dz=@ 
IF INKEY$=""THEN S5® ELSE RETURN 
LOCATE 18,4:PRINT"Bitte geben Sie de 
n Namen des neu zu registrierenden W 
ertpapiers ein.":PRINT:PRINT TAB(1®) 
s:INPUT"", a$(dz,8,B):IF LEN(a$(dz,® 
‚B))=B THEN RETURN 
IF LEN(a$(dz,8,8))>28 THEN a$(dz,B,® 
)=LEFT$(a$(dz,8,8) ,20) 
PRINT:PRINT TAB(18);"Bitte geben Sie 
den Zeitpunkt des ersten zu registr 
ierenden Kurses ein." 
PRINT TAB(1@);:INPUT"", a$(dz2,3,@):1 
F LEN(ta$(dz,3,8))=® THEN PRINT CHR&$( 
11);5:60T0 398 
IF LEN(a$(dz,3,8))>15 THEN a$(dz,53,® 
)=LEFT$(a$(dz,3,8),15) 
a$s(dz ,1,8)=a$(dz2 ,3,B):a$(dz,2,@)=a$( 
dz,3,Ö) !PRINT:PRINT TAB(1@)} "Bitte gq 
eben Sie den ersten zu registrierend 
en Kurs ein. '":PRINT 
PRINT TAB(1B);SPC (78) 
PRINT CHR$(11); TAB(1@);:INPUT"", e$: 
IF LEN(e$)=Q8 OR e$="B" THEN PRINT CH 
R$(11);5:G0TO 428 
z1=8:22=8:FOR z=1 TO LEN(e$): IF MID$ 
(e$,z,1)="." THEN zi=z1+1:G0T0 478 
IF MID$(e$,z,1)>="®" AND MID$(e$,z,1 
)<="9" THEN z2=22+1:G60T0 478 
PRINT CHR$(11);5:60TO 428 
NEXT z 
IF z1>1 OR z2<1 THEN PRINT CHR$ (11); 
:G0OTO 428 
a$(dz,1,1)=e$:a$(dz,2,1)=e$:a$(dz,S, 
1)zse$+"c":a$(dz,8,1)="1":dz=dz+1:RET 
URN 
CLS: IF dz=® THEN RETURN ELSE GOSUB 1 
218:WINDOW#@,1,88,4,25:FPAPER#@,@:PEN 
#0,1:WINDOW#1,1,80,1,3:PAPER#1 ,@:PEN 
#1,1:LOCATE#1,2,2:PRINT#1 ,p$; "<3>Akt 
ualisierung einer Wertpapierdatei":M 
OVE 8,399:DRAWR 6439,8:DRAWR B,-47:DR 
AWR -539,8:DRAWR 8,47:G0SUB 1228 
GOSUB 1218: LOCATE#1 ,58,2:PAPER#1,1:P 
EN#1,B:PRINT#1 ,n$:PAPER#1,B:PEN#1,1 
IF ri=1 THEN ri=B:RETURN 
IF VAL (a$(dn,@,1))<298 THEN 568 
PRINT TAB(18);"Die Kapazit[t dieser 
Datei ist bereits voll ausgenutzt,": 
PRINT TAB(18);"so da“ fer dieses Wer 
tpapier keine Daten mehr eingegeben 
werden klInnen." 
IF INKEY$=""THEN 558 ELSE RETURN 
PRINT 
PRINT TAB(1®8);"Bitte geben Sie den Z 
eitpunkt des neuen Kurswerts ein.":P 
RINT 
PRINT TAB(1B) : INPUT"" ‚,f$ 
IF LEN(f$)=@ THEN PRINT CHR$(11);5:G0 
TO 588 
IF LEN(#f$) >15 THEN f$=LEFT$(#$,15) 
a$s(dn,VAL (a$(dn,B,1))+3,@)=F$:PRINT: 
PRINT TAB(18);"Bitte geben Sie den n 
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euen Kurswert ein.":PRINT 
PRINT TAB(18);SPC (78) :=PRINT CHR$(11) 
;TAB(18) ;: INPUT"",e$: IF LEN(e$)=B OR 
e$="B" THEN PRINT CHR$(11);5:G60T0 42 
® ELSE z1=8:z2=B:FOR z=1 TO LEN(e$): 
IF MID$(e$,z,1)="." THEN zi=z1+1:G0T 
0 658 
IF MID$(e$,z,1)>="@8" AND MID$(e$,z,1 
)<="9" THEN z2=22+1:G60T0 458 
PRINT CHR$(11);:G0TO 628 
NEXT z 
IF z1>1 OR z2<1 THEN PRINT CHR$ (11); 
:GDOTO 628 
a$(dn,VAL (a$(dn,B,1))+3,1)=e$ 
IF VAL (e$) >VAL(a$idn,1,1)) THEN a$(d 
n,1,8)=f$:a$(dn,1,1)=e$:SOUND 1,38,5 
8,7:PRINT:PRINT TAB(18); "Neuer Hlchs 
tkurs !" ELSE IF VAL(e$)<VAL (a$(dn,2 
‚1)) THEN a$(dn,2,B)=f$:a$(dn,2,1)=e 
$:SOUND 1,488,5@0,7:PRINT=:PRINT TAB(1 
8);"Neuer Tiefstkurs !" 
PRINT:PRINT TAB(18);"Scoll der neue K 
urs in die Kursstatistik einbezogen 
werden ?":PRINT:PRINT TAB(1@); 
k$=LOWER$ (INKEY$) = IF k$="j"THEN PRIN 
T"ja":G0OTO 71@ ELSE IF k$="n" THEN P 
RINT"nein":GOTO 728 ELSE 708 
a$(dn,VAL (a$(dn,B,1))+3,1)=a$(dn,VAL 
(a$(dn,B,1))+3,1)+"c" 
a$(dn,d,1)=STR$ (VAL (a$(dn,B,1))+1):P 
RINT=:PRINT"Wollen sie fer dieses Wer 
tpapier weitere Daten eingeben, dr@c 
ken Sie ENTER,<S>andernfalls die Feu 
ertaste" 
IF INKEY$=CHR$ (13) THEN CLS:60T0 538 


IF (JOY(@) AND 16) <>1& THEN 738 

RETURN 

CLS: IF dz=@8 THEN RETURN ELSE GOSUB 1 

218:WINDOW#@,1,88,6,25:PAPER#B8,@:PEN 

#Q,1:WINDOW#1,1,80,1,5:PAPER#1,8:PEN 

#1,1:LOCATE#1, ‚2, 2: PRINT#1 „p$3 "<3>Kur 

sdaten eines Wertpapiers":MOVE 0,399 
:DRAWR 639,8:DRAWR B,-47:DRAWR -639, 

@: DRAWR 0,47: G0SUB 1220 

GOSUB 1218 

IF ri=1 THEN ri=®:RETURN 

PAPER#1,1:PEN#1,8:LOCATE#1,48,2:PRIN 
T#1,n$: PAPER#1, d: PEN#1,1: MOVE 48,341 
: TAG: PRINT"Datum"z: MOVE 216,341: TAG 
:PRINT"Kurswert"; :MOVE 408,341: TAG:P 

RINT"Kommentar "; : TASOFF : MOVE 0,325:D 

RAW 639,325: 1c=@: HIN=@: TIN=9:0=VAL (a 

*$(dn,®,1)) 

FOR z=1 TO VAL (a$ (dn ,@,1)) :PRINT TAB 
(Mya$s(dn,z+2,8);:PRINT TAB(28) ;USIN 
ERETTTT #4"; VAL (a$(dn, z+2,1)); 

IF VAL (a$ (dn,z+2, 1))=VAL(a$(dn, 1,1)) 
AND HIN=® THEN PRINT TAB (52) 5 "Hichs 

tkurs"3:HIN=1 ELSE IF VAL (a$(dn,z+2 
‚„1))=VAL(a$(dn,2,1)) AND TIN=QB THEN 

PRINT TAB(52) ; "Tiefstkurs";:TIN=1 
lc=1c+1 

IF 1c=2@8 AND 0<>z THEN 1c=@: DATEN 
‚78,2:PRINT#1,"enter ?":SOUND 1,48, 

ö, 7:WHILE INKEY$< >CHR$ (13) sWEND:? Loca 

TE#1, 7@,2:PRINT#1,"<7>" 

IF (JOY{®) AND 16)=1& THEN 888 

NEXT z 

LOCATE#1 ,64,2:PRINT#1 , "Ausgabeende": 
SOUND 1,290,30,7 

IF INKEY$=""THEN 8780 

RETURN 

ELS 

IF dz=® THEN RETURN 

GOSUB 1218: WINDOW#@,1,808,6,25:PAPER# 

@,8:PEN#Q,1:WINDOW#1,1,808,1,5:PAPER# 
1,8:PEN#1,1:LOCATE#1 ,2,2:PRINT#1,p$; 
"23>Kursentwicklung eines Wertpapier 
s":MOVE 8,399:DRAWR 6439,8:DRAWR @,-4 

7: DRAWR -839, ®:DRAWR ®, A7:G0SUB 1228 
:60SUB 1218 

IF ri=1 THEN ri=B:RETURN 

PAPER#1,1:PEN#1,8:LOCATE#1 ,45,2:PRIN 

T#1,n$:PAPER#1 ,B:PEN#1,1:MOVE 8,341: 

TAG: PRINT"Datum"; :MOVE 176,341: TAG:P 

RINT"Kurswert";:MOVE 288,341: TAG:PRI 

NT"Ver[nderung";:MOVE 416,341:TAG:PR 
INT"Gesamt ver [nderung" ; : TAGOFF : MOVE 

8,325:DRAW 639,325 

O=VAL (a$(dn,Q, 1) :1c=B:x$="":FOR z=1 
TO O0: IF RIGHT$ (A$(dn, z+2,1),1)<>"c 
THEN 988 

y$=a$(dn,z+2,1):PRINT TAB(2) ;za$(dn,z 
+2,8);:PRINT TAB (23) ; USING" #####.##" 
sVAL(y$);:IF x$<>""THEN PRINT TAB(364 
) ; USING" +4. HEHE" 5 (VAL (y$) /VAL(x$) - 
1)*#180; :PRINT"%"; 

PRINT TAB (53) ; USING" +#H4##4. #44"; (VAL 
(y$) /VAL(a$(dn,3,1))-1)*198; :PRINT"% 
"sex$=y$:lc= lc+Hlı IF 1c=2@ AND 0O<>z T 
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HEN 1c=B:LOCATE#1,780,2:PRINT#1,"ente 
r ?":SOUND 1,48, 30, 7:WHILE INKEY$<>C 
HR$ (13) :WEND: :LOCATE#1, 7@,2:PRINT#1, 
<72" 


978 IF (JOY(@) AND 16)=16& THEN 1918 
988 NEXT z 
998 LOCATE#1,67,2:PRINT#1 ,"Ausgabeende": 


SOUND 1,200,30, 7 
IF INKEY$="" THEN 1808 
RETURN 
CLS 
IF dz=® THEN RETURN 
GOSUB 1218:PRINT p$; "<4>Kursgrafik 
eines Wertpapiers":605SUB 1229: GOSUB 
1218: IF RI=1 THEN RI=@:RETURN 
CLS:PRINT P$; "<4>Kursgrafik eines W 
ertpapiers":PAPER 1:PEN B:LOCATE 58 
‚1:PRINT A$(dn,®B,B):PAPER B:PEN 1:0 
RIGIN 3,4@:MOVE -1,-2:DRAWR 635,8,1 
:DRAWR 8,338:DRAWR -635,8:DRAWR B,- 
338: ec=VAL (a$(dn,B,1)):tk=VAL (a$(dn 
‚2,1))zhk=VAL (a$(dn,1,1)) 
ERASE s:DIM s(ec):FÜOR z=1 TO ecıs(z 
)=VAL(a$(dn,2+z,1)):NEXT z:IF EC>i 
THEN xd=6533/ (EC-1) 
yd=(hk-tk) 7335 
IF yd=B THEN yd=1:TK=S(1)-166 
PLOT B,ROUND((s(1)-tk)/yd):FOR z=2 
TO ec:DRAW ROUND ((z-1)*xd) „ROUND ((s 
(z)-tk)/yd)=NEXT z:LOCATE 1,24:PRIN 
T"Zeitpunkt: ":LOCATE 41,24:PRINT"K 
urs: ":PRINT CHR$ (23) 5; CHR$ (1); :5x=1 
:PAPER 1:PEN 8:G60T0O 1118 
IF (JOY(@B) AND 4)=4 AND sx>1 THEN G 
OSUB 1168:sx=sx-1 ELSE IF (JOY(BD) A 
ND 8)=8 AND sx<ec THEN GOSUB 11648:s 
x=sx+1 ELSE 1158 
GOSUB 1168 
SOUND 1,498,10,6 
LOCATE i2, 24: PRINT" "SUSING"\<15>\" 
ja$ (dn,sx+2,0 
LOCATE 37 ,2MR PRINT" "USING" HHHHH. # 
#";5(sx) 
IF (JOY(B) AND 16)<>16 THEN 1188 EL 
SE PRINT CHR$ (23) ;CHR$(B®) ;:PAPER B: 
PEN 1:RETURN 
gx= ROUND ((sx-1)#xd) -1:gy=ROUND ( (st 
sx)-tk)/yd)+6:PLOT gx,gy:PLOTR 1,8: 
PLOTR 1,8:PLOTR 1,-2:PLOTR 1,-2: PLO 
TR @,-2: :!PLOTR @,-2:3PLOTR -1,-2:PLOT 
R -1,-2:PLOTR -1,8: PLOTR -1,8:PLOTR 
-1,2:PLOTR -1,2:PLOTR 8,2:PLOTR @, 
2:PLOTR 1,2:RETURN 
ELS:LOCATE 1,2:PRINT p$; "<4>Datensi 
cherung" :LOCÄTE 18,4:PRINT"Bitte st 
ellen Sie sicher, ob Ihre Datencass 
ette":LOCATE 10,5: PRINT"auf den ric 
htigen Z[hlerstand gebracht ist !" 
PRINT:PRINT TAB(18);"Dr@cken Sie RE 
C und PLAY, dann ENTER." 
WHILE INKEY$<>CHR$ (13) :WEND:SPEED W 
RITE 1:OPENOUT"!shares.dat":PRINT#9 
‚„dz:FOR zi=® TO dz-1:PRINT#9,a$(zi, 
@,@):PRINT#9,a$(z1,8,1):FOR z2=1 TO 
VAL(a$(z1,8,1))+2:PRINT#9,a$(z1,z2 
‚„@):PRINT#9,a$(z1,z2,1):NEXT z2,z1: 
CLOSEOUT : RETURN 
ELS:GOSUB 1218:LOCATE 1,2:PRINT p$; 
"<4>Progr amm beenden": PRINT: PRINT:P 
RINT:END 
IF INKEY$<>""THEN 1218 ELSE RETURN 
PRINT:PRINT TAB(18);"Bitte w[hlen S 
ie das gew@nschte Wertpapier:":PRIN 
T:pe=1:PRINT TAB(4);:PRINT TAB(11); 
p$;:j=VPOS(#B®)-1:FOR z=@ TO dz-1:PR 
INT TAB(21);5a$(z,8,8):NEXT z:PRINT 
TAB (21) ; "HAUPTMEN! " 
WHILE (JOY(@) AND 16)<>1& 
IF (JOY(B®B) AND 1)=1 AND pe>i THEN L 
OCATE 11,pe+j:PRINT"<5>":pe=pe-1:L0 
CATE 11,pe+j:PRINT p$:SDUND 1,pe*28 
+38,1@0,5 
IF (JOY(@8) AND 2)=2 AND pe<dz+1 THE 
N LOCATE 11,pe+j:PRINT"<5>":pe=pe+1 
:LOCATE 11,pe+j:PRINT p#:SOUND 1,pe 
*20+30,10,5 
FOR t=1 TO SO:NEXT t 
WEND 
IF pe=dz+1 THEN ri=1:60T0 1388 
dn=pe-1:n$=a$(dn,@,B) 
CLS: RETURN 
CLS 
ON ERROR GOTO 1318 
GOSUB 1218:SOUND 1,58,28,6:MODE @:L 
OCATE 3,12:PRINT"Speicher voll !":F 
OR w=1 TO 1588:NEXT w 
In INKEY$="" THEN 1348 ELSE RESUME 
198 


»Shares« verwaltet Ihr Vermögen (Schluß) 


[14A8] 
[D6404)] 
[2434] 
[98D8] 
L72CA] 
[8784] 
LOFBA] 
L8C5AI 


[890C] 


LEBBE) 


[DDD8) 
C&45F8] 
[83A2] 


[9F16] 


[F894] 
[4296] 
[927A] 
[235A] 


[61F8] 


[CB86A] 


L[öCFB] 


[8A1AI 
LCASCI 


[1286] 


[0934] 
[L1DA2] 


[ö5EC] 
[433C] 


[Q4DC)] 


LEEEC] 
[DE4E] 
[1838] 
CBBEA] 
[B12E] 
[3ECQ] 
L1EBE) 
USFD6] 


EDCSCI 
LS@BCI 
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Datenexpreß 


Eine Speichererweiterung als RAM-Floppy ist 
schon etwas Feines. Ohne geeignetes Programm 
nutzt sie jedoch herzlich wenig. 


ine Speichererweiterung ist Retter in der Speicher- 
= platz-Not, sofern sie über ein intelligentes Betriebs- 
system verfügt. Aber auch dann gilt der Grundsatz: 
Ohne Software nutzt die leistungsfähigste Hardware rein 
gar nichts. Aus diesen Überlegungen heraus entstand das 
Programm »RAMDISK« für die Vortex-Speichererweite- 
rungen. 
Eigentlich besteht »RAMDISK« aus einem ganzen Pro- 
grammpaket: »RAMDISK.BAS« (Listing 1) aktiviert das 
. Bank-Basic und enthält auch die Dokumentation. (Diesen 
Teil dürfen Sie weglassen, wenn Sie vor dem Laden des 
zweiten Teils mit »IBOS« manuell umschalten.) »RAM- 
DISK.BOS« (Listing 2) übernimmt die Definition des deut- 
schen Zeichensatzes, Tastaturbelegung und Farbzuord- 
nung. »RAMDISK.RAM« besteht aus den beiden Teilen 
»RAMDISK.BKI1« (Listing 3) und »RAMDISK.BK0« (Listing 4). 
Diese zwei letzten Listings geben Sie zusammen ein und 
speichern sie mit »A$= "RAMDISK.RAM”: SAVE, @ A$«. 
Bei der Arbeit mit der Datei müssen Sie beachten, daß 
Sie immer das erste Datenfeld jedes Datensatzes beschrei- 


18... RBB 
[828C] 
20 0% MULTI — RAM DISK **% 
[4818] 
3B + *%* 
LE7CCI 
48 '*** Fuer SCHNEIDER CPC mit *r*%* 
[159C] 
SB '*#** VORTEX RAM-Erweiterungen *r%* 
LESC2]I 
68 '#*%* SP&64/M und SP&44-512 *rr 
[2CD6] 
78. BRRBRRHRRHIRIHIIIIETETE IE 
[C818] 
880 '*%** (c) Karlheinz Battermann *r%* 
[6326] 
98 88% Weissdornweg 28 **%* 
[FS1E] 
100 '#*%*%* 3422 Bad Lauterberg — 1 ##* 
£[77A2] 
11B '#.%* Tel. 05524/2538 *r*% 
[4682] 
120 EEE 
LF238] 
158 CDFB&6] 
1A RENNER 
LFA34] 
150 '#%%* RAMDISK.BAS “+ 
L9ES5B]I 
160. SRH 
LAA38] 
178 [@O3BE] 
188 '*** Bank-BASIC BOS 1.8 ein- *r% 
[LZAC&] 
198 '*** schalten .... **%* 
[67BE] 
200 ° [CE4B2] 
218 :!BOS [F226] 
220 ° [B6B6] 
238. RBB 
EEE 
*rr [59708] 
240 '#%%* Progr amm-Dokumentation 
*r% Variablen-Tabelle 
“+ CB2CA] 
2 ER 
De a a ee 
*r** [33584] 
2680 '*** Variable * Benutzung in Prog 
ramm RAMDISK.RAM fuer .... 
*r** [8058] 
ZI EEE EEE 
EREREHTTHEEHEEEERR 
*r* CADBB]I 
2808 ' c Die Zeilen 138/14 
® duerfen nur einmal durchlaufen wer 
den [SEBE] 


ben. Wenn Sie später einzelne Datensätze aus der Datei 
löschen wollen, dürfen Sie keinesfalls versehentlich diese 
Löschung doppelt vornehmen. Bei der Suchfunktion ist es 
nicht nötig, den Suchbegriff exakt vorzugeben. Mit der Ein- 
gabe »Dampf« finden Sie so beispielsweise nicht nur die 
Dampflok, sondern auch die Dampfmaschine. Auch sta- 
tistische Auswertungen sind machbar, da das Programm 
Summen berechnet. Nach jedem Speicher-Vorgang wird 
automatisch ein »CAT« ausgeführt, so läßt sich bei Verwen- 
dung eines Kassettenrecorders als Speichermedium die 
korrekte Datenaufzeichnung überprüfen. 

Noch ein kleiner Hinweis zur Eingabe der beiden »RAM- 
DISK.RAM«-Teile: »RAMDISK.BK1« kommt in die Bank 1 
(vorher mit »IBANK,1« aktivieren) und »RAMDISK.BKO« in 
Bank 0. Beim Speichern mit der oben erwähnten Befehls- 
folge entstehen dann daraus die Dateien »RAMDISK. 
RAM«, »RAMDISK.BK1« und »RAMDISK.BKO«. 

(Karlheinz Battermann/ja) 


„Steckbrief 
RAMDISK 
CPC 464/664 


Kassette, Diskette 
nur mit Vortex-Speichererweiterung 


298 ' c#$ COMMON-Variablen- 
Definition [3052] 
seB ' t Zeitschleife [8D9A] 

31a ' t$ Tastatur (INKEY) 
- Abfrage L4EA2] 

320 " e$,f$,g$,h$,i$s Text fuer Window 
2 [B448) 

338 ‚P Eingabe von Progr 
amm-, Dateikarten-,Spalten Nr. [2ZEBB] 

348 ‘ rd Ram Disk noch fre 
i? nein/ja [5968] 
350 ' n$ Dateiname CD1F2] 
368 ' das Dateidatum [3256] 

370 's Anzahl der Dateis 
palten [5SES6] 

388 ss Anzahl der Dateis 
palten (Schutzvariable) [7F&E)] 

398 ° bi — b15 Anzahl Buchstaben 
pro Dateispalte [4DD2] 

400 ° x Eingabe Anzahl Bu 

chstaben pro Spalte ueber Monitor/Ca 
ss. [SSAE]I 

418 ' r Buchstabensumme a 

ller Dateispalten fuer :ramopen-Befe 
hl [L19A6] 

4208 ' d Anzahl der moegli 
chen Dateikarten (rec-i) [3DösA] 
430 ' z Dateikarten Nr. L[S2E4] 

448 zi hoechste eingegeb 
ene Dateikarten Nr. [3FBA]I 

458 ' s Hilfsvariable fue 
r Dateikartenbearbeitung C&B4AC] 

48 ' a Anfangsnummer (Ei 

ngabe in Dateikarten Suchen ,‚Drucken) 
[33BA] 

470° e Endnummer (Ei 

ngabe in Dateikarten,Suchen ,‚Drucken) 
[3D76] 
488 ds Dateneingabe [2244] 

498 ' bb Kontrolle der Dat 

eneingabelaenge (Buchstaben pro Spal 
te) [44D4] 

508 ° di$ - di15$ Daten der einzeln 
en Dateispalten [8C3A]I 

sıa ' d Hilfsvariable im 

WINDOW 2 -— INPUT (Zeilenansteuerung) 
[8B3C6] 

5280 ' ds Dateisicherung er 
forderlich? nein/ja [6440] 

530 ° b#$(s) Feld fuer Bezeich 
nungen [D3F&6] 

540 ' Bezeichnungen ein 
gegeben? nein/ja [7FE&] 

55a ° d11(18,2) Feld fuer geloesc 
hte Dateikarten L[893A] 

568 ' 1z Zaehler fuer Feld 
di L52EB]I 

578 ' z2 Zaehler beim Such 


en geloeschter Dateikarten 
" si$ Mass-Einheit der 
Inventarsummen 
" k$,k1$,k Inventareinheit ( 
DM,kg,m usw) 
r sts ‚sti$,st Stueckzahl 
: Inventarsummen we 
char Dateispalte ermitteln 
‘ sz Stueckzahlen welc 
her Dateispalte ermitteln 

su Inventarsumme (k# 
st) 

sw,swi,sw2 Laenge des Suchwo 
rtes 

sw$ ,‚swi1$,sw2$# Name des Suchwort 
es 


UI 
"**r* MULTI - RAM DISK *** 
ar%r **%* 
"#*##* Fuer SCHNEIDER CPC mit *r*%* 
"*##* VORTEX RAM-Erweiterungen *r* 
"*##%* SP64/M und SP&44-512 *rr 
RT 
"#*** (c) Karlheinz Battermann *r% 
"+ Weissdornweg 28 *r%* 
rr* 3422 Bad Lauterberg - 1 ##* 
"+ Tel. 85524/2538 **%* 


RRHERHUEHHHHR RN HH HH HERR 


. 


RER 
rr RAMDISK.BOS *r%* 


RR NN HR 


u. deutsche Zeichen ###* 

SYMBOL 91,198,16,56,188,198,254,198, 
SYMBOL 92,102,56,188,198,198,188,56, 
SYMBOL 93,182,8,102,182,102,102,60,8 
SYMBOL 123,182,08,120,12,124,204,118, 
EYMBOL 124,1802,0,60,102,102,102,60,8 
SYMBOL 125,182,80,1902,1@82,102,1@2,59, 
SvmBaL 126,128,198,198,252,198,198,2 
48,192 

KEY DEF 17,1,123,91 


KEY DEF 19,1,124,92 
KEY DEF 22,1,125,93 


RER 


2.202 MULTI — RAM DISK *r% 


RER HH RR 


RR HN HH HH 


*%* RAMDISK.RAM **% 
"%% Bank 1 **%* 


EEE HHHHRRRRRR 


'*** Initialisierung ##%* 


e$="Programmziffer oder >ENTER< dr}c 
ken! ":h$="{2 SPACE}--> Taste 24< dr 
>cken!":i$=" Bitte warten .... 

di$=""„d2$="":d3$="".:d4$=""2d5s=""2d 
6$="":d7$=""2dB8$="":d9$="":d1ßds="":d 
11$=""2d12$="":d13$=""2d14$="":d15$= 


L62BCJ 
[9D44] 


ECöF8] 
[C3SC2] 


[1D48] 
[3996] 
[1D46] 
[D6öB2] 
[8536] 


[820C] 
[4818] 
LE7CCI 
£159C] 
LESC2] 
[2CD6] 
[CB18] 
[6326] 
[FS1E] 
[772] 
[4682] 


L[F238] 
EDFBö6] 


E[FAS34] 
[945C] 
LAA3B] 
[BSBE] 
[B3S2E] 
[85C2] 
LA11C] 
[7606] 
L1ES6] 
1[85A2] 
LES36] 
LA9AA4]I 
[442A] 
EFB9IC]I 


[BBA&] 
[4CAQ] 


[820C) 
[4810] 


[8418] 
[C896] 


[4E14] 
[5844] 
[BBEE) 
[F11A] 
[CEAB] 


[4408] 
CDDB2] 


[2202] 


[8832] 


Suchwort gefunden 


Suchwortdurchlauf 

bei 2 Suchwoertern 
' zz Zeilenzaehler bei 
m Dateiausdruck 

698 ' s2 Hilfsvariable bei 
m Ausdruck einer Datei mit 4-18 Spal 
ten 

788 ' dz Leerzeile nach Da 
teikartenausdruck? nein/ja 

TI EEE HR 
RER 
“+ 


Listing 1. Information für Wissensdurstige 


KEY DEF 26,1,64,i126 


"#*#*#* Die "TAB"-Taste zusammen ##* 
"*#** mit SHIFT gedrueckt er- *r%* 
"*** gibt den Befehl zum *r% 
"*#** "LISTEN" des Programmes! ##+* 


KEY 141,"MODE 2:PEN 1:PAPER @:CLS:LI 
ST"+CHR$ (13) 


"*** Die "TAB"-Taste zusammen 
"*** mit CTRL gedrueckt 

"*##* #fuehrt nach einem BREAK 
"##* usw. ohne Datenverlust 
"*#** zum Hauptmenue zurueck! 


KEY 142,"G0TO 18"+CHR$ (13) 
KEY DEF 68,8,9,141,142 


"**#* Initialisierung ###* 


MODE 2:BORDER @: INK B,1:INK 1,15 
WINDOW 1,88,1,3:PEN B:PAPER 1:CLS:LO 
CATE 22,2:PRINT"* #{2 SPACEIM UL T 
It2 SPACE}-{2 SPACE}R A M{3 SPACE}D 
I S K{2 SPACE}* #" 

WINDOW 1,88,23,25:CLS:PRINT:PRINT"Pr 
ogr amm{2 ’SPÄCE}* RAMDISK.RAM *{2 SPA 
SEIWErG geladen! {2 SPACE}Bitte warte 
WINDOW 1,80,4,22:PEN 1:PAPER B:CLS:L 
OCATE 1, A: PRINT STRING$ (88,"-") :LOCA 
TE 1,14: PRINT STRING$ (88, "-") 

LOCATE 19,7:PRINT"Ein universelles D 
atei-Programm mit RAM DISK” 

LOCATE 8,9:PRINT"f}r SCHNEIDER CPC m 
it VORTEX RAM-Erweiterungen SP&4/M u 
nd SP&4-512" 

LOCATE 25,13:PRINT"(c) 1986 by kabas 
oft-computing" 


"#** Programm > RAMDISK.RAM < #%*%* 
"*##* nachladen .... *r% 
"**#* Programm > RAMDISK.BOS < ##* 
"**%* wird hierbei geloescht! *r% 


WINDOW 27,608,28,28:CLS:p$="RAMDISK.R 
AM”: ! RUN ‚aps 


Listing 2. Nun »spricht« Ihr CPC deutsch 


!RAMWRITE,@,@d1$,@d2$ ,@d3$,@d4$ ,@d5$ 
‚@d6$,@47$,@d8$ ,@d9$ ,@d18$,@d11$,@di1 
2$,@d13$,@d14$,@d15$ 

!RETURN 


"##%# RAMREAD Daten lesen +#%%* 


ON s-4 G0TO 298,218,220,230,240,250, 
240 ,270,280,290,308 

!RAMREAD,z ,@d1$,@d2$,@d3$ ,@d4$ ‚@d5$: 
RETURN 

!RAMREAD ,z ‚@d1$,@d2$,@d3$,@d4$,@d5$, 
@d6$: RETURN 

!RAMREAD,z ,‚@d1$,@d2$,@d3$,@d4$,@d5$, 
@d6$ „@d7$: RETURN 

!RAMREAD,z ,„@d1$,@d2$ ,@d3$,@d4$,@d5$, 
@d6$ ‚@d7$ ,@d8$: RETURN 

IRAMREAD ‚z ‚@d1$,@d2$ ,@d3$ ,‚@d4$,@d5$, 
@d6$ ,@d7$,, @d8$ ‚@d9$: RETURN 
!RAMREAD,z ,‚@d1$,@d2$,@d3$,@d4$,@d5$, 
@d6$ ,@d7$,,@d8$ ,@d9$ ,@d1B$: RETURN 
!RAMREAD ‚z ‚@d1$,@d2$ ,‚@d3$ ,‚@d4$ ,@d5$, 


Listing 3. Inhalt der Bank 1 


[28F8] 
CA4FA] 
LBFA2]I 


LFOCAI 
[9158] 


[7D8&] 


LEE96] 
CE1B6] 
[6EC6] 
[DSC6] 
CADB2] 
L[F4S5@] 
[8400] 


[SE46] 
LBAC4] 
£2DD4] 
[5928] 
LABE6] 
tEB22] 
[29B8] 
LE4BE] 
[B&CB] 
L4ECCI 
[ESC4] 
t471E] 
[B1C8] 
[4D78] 


L[FS8A] 


[E498] 


[D9BQ] 
[77E8] 


[6F7E] 
[B656] 
LESC6)] 
[7438] 
[3C2E) 
t402A] 
[B74E)] 
[BEBE] 


[SIEE] 


[74EC] 
[6724] 
[B4BC] 
[8774] 
[86009] 
[SBEB] 
[1D5A] 
[17B®] 
LE9IQ8] 
L1E62] 
[8CBE] 


[9DöA] 
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@d4$ ,@d7$ ,‚@dB$ ,@d9$ ,@d10$,@d11$:RETÜ 
RN 


ıRAMREAD ‚z ‚@d1$ ,@d2$ ,@d3$,@d4$ , @d5$, 
@d6$ ,@d7$ ,@edB$ ,@ed9$% ,‚edids,@di1i$,@di2 
$: RETURN 

IRAMREAD ‚z ,‚@di$,@d2$, @d3$,@d4$,@d5$, 
@db$ ,@d7$,@ed8$ ,ed9$ ,ed1ids,@edi1$,@d12 
$ @diss: RETURN 

!RAMREAD,z ,@di$, @d2$# ,‚@ed3$ ,@d4$ ,@d5$, 
@db$,@47$ ,@dB$,@d9$, edi1as, ‚edii$, e@edi2 
$,@d13$,@d14$: RETURN 

ıRAMREAD ‚z ,‚@d1$,@d2$ ,@d3$,@d4$,@d5$, 
@d6$ ,@47$ ,@d8$ ,@d9$ ,@ed1d$ ,@di1$,@d12 
$,@di5$,@d14$,@d15$: RETURN 

"*#** WINDOW 2 #%#%* 

WINDOW 1,88,23,25:CALL &BB9IC:CLS 
PRINT: PRINT f$ 
WINDOW 1,88,4,22:CALL &BB9IC 
RETURN 


"*##* WINDOW 2 — INPUT #%** 


WINDOW 1,80,23,25:CALL &BBIC:CLS 

PRINT:PRINT #$+" "; 

IF d=1 THEN LINE INPUT d$:IF LEN(d$) 
>20 THEN 418 ELSE 458 

INPUT""p 

WINDOW 1,88,4,22:CALL &BB9C: d=® 

RETURN 


###  INKEY — ABFRAGE #%*%* 


t$=INKEY$: IF t$="" THEN 588 
t$=UPPER$ (t$) 
RETURN 


"*##*#+ nach Suchwort suchen 


sw$=LEFT$(di1$,sw) THEN 
sw$=LEFT$ (d2$,sw) THEN 
sw$=LEFT$(d3$,sw) THEN 
sw$=LEFT$(d4$,sw) THEN 
sw+=LEFT$(d5$#$,sw) THEN 
sw$=LEFT$ (dö$,sw) THEN 
s<7 THEN 748 
sw$=LEFT$(d7$,sw) THEN 
sw$=LEFT$(d8$,sw) THEN 
sw$=LEFT$ (d9$,sw) THEN 
s<1@ THEN 748 
sw$=LEFT$(d1B$,sw) THEN 
sw$=LEFT$(di1$,sw) THEN 
sw$=LEFT$(d12$,sw) THEN 
s<13 THEN 748 
sw$=LEFT$(d13%$,sw) THEN 
sw$=LEFT$(d14$,sw) THEN 
sw$s=LEFT$(d15$,sw) THEN 
swa=8: swd=@: RETURN 
swa=1:IF pi1<>2 THEN RETURN 
IF swd=B THEN sw=sw2: sw$=sw2$:swd=1: 
GOTO 568 
swd=@: RETURN 


"*#*#%* Inventarkosten addieren +++ 


IF ki$="*" THEN k$="1":G0OTO 988 
DON si GOTO 839,849,859,849,870,880,8 
90,900,910,920,730,740,750,760,770 
k$=d1$:G0T0 

k$=d2$:G0T0 

k$=d3$:G60TO 

k$=d4$:GOTO 

k$=d5$:60T0 

k$=d6$:G0T0 

k$=d7$:G0TO 

k$=d8$:GOTO 

k$=d9$:G0TO 98 

k$=d18$:G60T0 988 

k$=d11$:60T0 988 

k$=d12$:60T0 988 

k$=d13$:60TD0 988 

k$=d14$:G0T0 988 

k$=d15$ 

IF st1$="*" THEN st$="1":G0T0 1158 
ON sz GOTO 1808, 1018,1828,1830,1048, 
1058, 1060,1070,1080,1890,11@0,1110,1 
128,1130,1140 

st$=d1$:G0T0 115@ 

st$=d2$:60T0 115® 

st$=d3$:G60T0 1158 

st$=d4$:60TD 1158 

st$=d5$:60T0 115@ 

st$=d4$:60T0 1158 

st$=d7$:G0T0 1158 

st$=d8$:60T0 1158 

st$=d9$:60T0 1158 

st$=d18$:60T0 1158 

st$=d11$:G60T0 1158 

st$=d12$:G60T0 1158 

st$=d13$:G0T0 1158 


[2818] 


£78C8] 


[637A] 


[B42E] 


[13D2] 
LE1B6] 
[F384] 
EDFBA] 
[73AB] 
[L1C6C] 
EFF®4] 
[A634] 
[BACA) 
[BCOC] 
[88B6] 
[769C] 
[CCEFC] 


£531C] 
[C658] 
[911A] 
[A934] 
LESCA]I 
C[B@68] 
[B1C8) 
[2768] 
[B148] 
LAAZE] 
[B7BE] 
[5336] 
LE1C2]I 
LFESE] 
[SB62] 
[8066] 
[196A] 
[285C] 
[C368] 
[B1AE]I 
[A566] 
L1C6A]I 
[6B&4E] 
LEEBA] 
E2FC2] 
[57C6] 
EF7CA] 
[7AB6] 
[BöBE] 
[D2C2] 
LEEC&] 
[SF@4] 
[BODF4] 


[4784] 
[C926] 
[B2CC) 
[A134] 
[1BBE] 
[2DöSE] 


C&6FD4] 
[4AEB] 
[SSEC]I 
[OCF®] 
£[37F4] 
L16F8] 
L1i1FC] 
[F9OB] 
[33F2] 
[B4F6] 
[BF48] 
CBDACI 
[53580] 
£[C154] 
[7758] 
EFSF4] 
LFEBA] 


[3@B8] 
£[1D78] 
£[717C] 
[2588] 
[FD84) 
£[5D88] 
£[918C] 
[2D98] 
EFD9I4] 
[3D98] 
[S1EA] 
£47DC] 
[L36EB] 
[5S5E4] 


st$=d14$:G0TD 1158 

st$=d15$ 

k=VAL (k$) :st=VAL (st$) :su=su+k#st 
RETURN 


'*** Datei-Inventarsummen ermittel 
n #** 
CLS: ZDNE 23 
PRINT:PRINT,"Berechnung von Inventa 
rsummen" PRINT ,STRING$ (29,"-") 
PRINT:PRINT,"Es kinnen die Inventar 
summen, die" 
PRINT:FRINT, 
teispalte"” 
PRINT:PRINT,"stehen d}’rfen, berechn 
et werden!” 
LOCATE 1,11:PRINT,">1<{2 SPACE}nach 
1 Suchwort":PRINT:PRINT,">2<{2 SPA 
CE}nach 2 Suchwirtern":PRINT:PRINT, 
">3<{2 SPACE}der Gesamtdatei” 
f$=e$:G0OSUB 398:pi=p:IF pi<1 THEN |! 
RETURN ELSE IF p1>3 THEN 1268 
f$="Inventarsummen welcher Spalte e 
rmitteln?{2 SPACE}Nr.":GOSUB 39B: si 
=p:IF si<i THEN 1268 ELSE IF si>15 
THEN 1278 
f$="Inventarsummen der Spalte"+STR$ 
(si)+" sind in welcher Ma”einheit ( 
Dis Egsem! angeben?":d=1:G0SUB 398:s 
i$= 


"in jeder beliebigen Da 


f$="Gibt es zugehirige St}ckzahlen? 
"+h$:60SUB 328:G0SUB 488: IF t$<>"J" 
THEN sti$="#":G0TO 1318 
f$="Die zugehirigen St}ckzahlen ste 
hen in welcher Spalte?{2 SPACE}Nr." 
:G0OSUB 398:sz=p: IF sz<1 THEN sti$=" 
*" ELSE IF sz>s THEN 1308 
IF pi=3 THEN swa=1:60T0 1378 
f$="Bitte Suchwort eingeben! ":d=1: 
GOSUB 398: swi=LEN (d$) :swi$=d$: IF sw 
1$="" THEN sti$="":G60TO 1288 
IF pi=2 THEN f$="Bitte 2.Suchwort e 
ingeben! ":d=1:G0OSUB 398: sw2=LEN (d$ 
):sw2$=d$: IF sw2$="" THEN 1338 ELSE 
1358 
f$="Suchwort {2 SPACE}#* "+swi$s+" #{2 
SPACE}-{2 SPACE}Summen werden ermi 
ttelt'!"+i$:6G0OSUB 328:G60T0 1388 
g#="Suchwirter {2 SPACE}* "+swi$+" * 
{2 SPACE}und{2 SPACE}* "+sw2$+" *">r 
IF swi+sw2 >23 THEN 1368 ELSE f$=g# 
+"{2 SPACE}-{2 SPACE}Summen werden 
ermittelt! "+CHR$ (18) +CHR$ (13) +"Bitt 
e warten ....":GOSUB 328:60T0 1388 
+$=g$+CHR$ (18) +CHR$ (13) +"Summen wer 
den ermittelt'!"+1$:60SUB 328:G0T0 1 
388 
f$="Inventarsummen werden ermittelt 
!"+1$:G0OSUB 328 
FOR z=1 TO z1:60SUB 178:IF pi<S THE 
N sw=swi:sw$=sw1$:GOSUB 548 
IF swa=® THEN 1488 ELSE GOSUB 798 
NEXT=:LOCATE 1,18:PRINT CHR$ (28) ; CHR 
$(7) 
PRINT:PRINT,"Die Inventarsummen der 
Spalte";si:IF pi=1 THEN PRINT:PRIN 
T,"zum Suchwort {2 SPACE}* ";swi1$;" 
x" 
IF pi=2 THEN PRINT:PRINT,"zu den Su 
chwirtern":PRINT:PRINT,"* ";swi$;" 
*(2 SPACE}und{2 SPACE}* ";sw2$;" #*" 


PRINT:PRINT,"betragen insgesamt = " 

; USING" #444. #4"; su; :PRINT" ";si$ 

f$="Weiter?{2 SPACE}--> Taste dr}ck 

en!":GOSUB 328: su=@:CALL &BB18:LOCA 

TE 1,12:PRINT CHR$(2@):IF pi1<3 THEN 
1328 

sti$="":G60T0 1258 


"*#** St}ckzahlen ermitteln ##* 


CLS: ZONE 23 
PRINT:PRINT,"Ermittlung von St}ckza 
hlen":PRINT,STRING$ (26,"-") 
PRINT:PRINT,"Es kann die St}ckzahl 
zu jedem" 

PRINT:PRINT,"beliebigen Suchwort er 
mittelt werden." 

PRINT=:PRINT,">1<{2 SPACE}nach 1 Suc 
hwort": PRINT: PRINT,">2<1{2 SPACE}nac 
h 2 Suchwirtern" 

f$=e$:G0SUB 39@:pi=p:IF pi<1 THEN ! 
RETURN ELSE IF pi>2 THEN 1548 
f$="Bitte Suchwort eingeben! ":d=1: 
GOSUB 398: swi=LEN (d$) :swi$=d$: IF sw 
1$="" THEN 1548 

IF pi=2 THEN f$="Bitte 2.Suchwort e 
ingeben! ":d=1:G60SUB 398: sw2=LEN (d$ 


[SCE8] 
[4238] 
[81BA] 
[C690] 
[B428) 
CARE2] 
[B624] 
[F788) 
[SCBE) 
[9DC6] 
[98C2] 


[0848] 


[öFCBI 
[23B6] 


£CA72] 


[DABEI 


[7942] 


[69E6]1 
[6656] 


[A776] 


[8966] 


LCDCE)I 


LE7D4] 


[754A] 
L[7F72] 


[7D78] 
[BE&2)I 


LEEA6] 


[7308C] 


[4DAB] 
[4490] 


[L1DE6] 
[4204] 
[9324] 
[DD2E] 
LE128] 
[3696] 
L[BE88] 
[7B24]1 


L1DFC)I 


[A452] 
[14B8] 


[35EE] 


)esw2$=d$: IF sw2$="" THEN 1568 
f$="Gibt es zugehirige St}ckzahlen? 
"+h$:6GD5SUB 328: G0OSUB 488: IF t$="J" 
THEN ki1$="*#" ELSE k1$="":G0T0O 1598 


f$="Die zugehirigen St}ckzahlen ste 
hen in welcher Spalte?{2 SPACE}Nr." 


:G60SUB 359@:sz=p: IF sz<i1 THEN 1578 E 
LSE IF sz>s THEN 1588 
IF pi=1 THEN f$="Suchwort {2 SFACE}* 
"+aw1$+" #{2 SPACE}-{2 SPACE}St}CK 
zahl wird ermittelt!"+i1$:60TO 1618 
ELSE g#="Suchwirter{2 SPACE}* "+swi 
$+" *{2 SPACE}und{2 SPACE}* "+sw2$+ 
”" #{2 SPACEI-{2 SPACE}" 
IF swi+tsw2 <19 THEN f$=g$+"St}ckzah 
len werden ermittelt! "+CHR$ (18) +CHR 
$(153)+"Bitte warten ...." ELSE f$=g 
$+CHR$ (18) +CHR$ (13) +"St}ckzahlen we 


RR HH ERIK 


r* MULTI 


- RAM DISK **% 


RER HN HH HH HR HR HERR 


Ma 2 02 2 02 02 2 722 12 12 72 2 12 SZ 2 2 2 272 2727272 2 7272272 22 2 22277 


"ar%* RAMDISK.RAM *r% 


"#RR 


Bank 8 *r%* 


I 2 2 1212 122 12372 122 12 12 12 2 2 12 272 72 12 122 12 1 1 2 2 Zn 2 2 2 22 


"*#*%* Initialisierung ##* 

IF c=1 THEN 2288 

OPENOUT"RD" : MEMORY HIMEM-1:CLOSEOUT 

DIM di (18,2) :e#="Programmziffer oder 
>ENTER< dr>cken! ":h$="{2 SPACE}I--> 
Taste >J< dr}cken!":i$=" Bitte wart 

en „...."ıc$="s,z": ıCOMMON,@c$: !iFAST: 

c=1:60TD 2288 


"##%* RAMWRITE Daten schreiben 


*r%* 
ds=1:0N s-4 GOTO 199,2808,210,220,238 
‚240,2590,260,270,280,298 

ı!RAMWRITE ,z ,‚@d1$,@d2$#,@d3$# , @d4$ ,@ed5$ 
: RETURN 

!RAMWRITE,z ,@d1$,@d2$ ,ed3$ ,@d4$ ,@ed5$ 
‚@dö$: RETURN 

!RAMWRITE ,z ,@d1$,@d2$ , @d3$ ,@d4$ ,@ed5$ 
‚ed6$ ,‚@d7$: RETURN 

!RAMWRITE ,z ,@d1$ ,@d2$ ,‚@ed3$ ,@d4$ ,@ed5$ 
‚@dö$ ,‚@d7$# ,@d8$: RETURN 

IRAMWRITE,z ,@di$#,@d2$ ,ed3$ ,@d4$ ,@ed5$ 
„eds$ ,@d7$,@d8$ ,@ed9$: RETURN 
!RAMWRITE ,z ,@di1$ , @d2$ , @d3$ ,@d4$ ‚@d5$ 
‚edö$,@47$% ,@d8# ,@d9$ ,@ed18$: RETURN 
IRAMWRITE ,z ,@d1$#,@d2$ ,ed3$ ,@d4$ ,@ed5$ 
„@edös$,@d7$,@d8$ ,@ed9$ ,ed1d$,@di1$:RET 
URN 

!RAMWRITE,z ,@d1$,@d2$ ,@ed3$,@d4$ ,@ed5$ 
‚edös$,@d7$ ,@edB$,@d9$ ,ed1Bd$ ,@edi1$,@di 
2$: RETURN 

ıRAMWRITE,z ,@di1$,@d2$,@d3$ ,@ed4$ ,@d5$ 
‚edös$,@d7$ ,@d8$ ,@ed9$ ,ed19$ ,edi1$,@di 
2$ ,@d13$:RETURN 

IRAMWRITE ‚,z ,@ed1$ ,@d2$ , @d3$, @d4$ ,@ed5$ 
‚@edö$,@d7$,@d8$ ,@ed9$ ,edi@ds ,@edii$,@di 
2$ ,@d13$,@d14$: RETURN 

IRAMWRITE ,z ,@d1$,@d2$ ,@d3$ ,@d4$ ,@d5$ 
‚@edös$,@47$,@d8$ ,@d9$ ,ed1iB$,@di11$,@di 
2$ ,@ed13$,@d14$ ,@d15#: RETURN 

"*###* RAMREAD Daten lesen ##* 

ON s-4 GOTO 349,358,3648,370,380,398, 
4080,410,428,430,440 

ıRAMREAD ‚z ‚@d1$ ,@d2$ ,@d3$, @d4$ ,@d5$: 
RETURN 

!RAMREAD ‚z ‚@d1$ ,@d2$ ,‚ed3$ ,@ed4$,@d5$, 
@d6$: RETURN 

IRAMREAD ‚z ‚@d1$,,@d2$ ,@d3$ ,@d4$ ,@d5$, 
@dös$ ,@ed7$: RETURN 

ı RAMREAD ‚z ,‚@d1$,@8d2$ ‚@ed3S$ ,@d4$,,@ed5$, 
@d6$ ,@d7$ ,@d8$: RETURN 

ı RAMREAD ‚z „@d1$ ,@d2$ ,‚@ed3$ ,@d4$,,@d5$, 
@db$ ,@d7$ ,@ed8$ ,‚@d9$: RETURN 

ıRAMREAD ‚z ‚@d1$ ,@d2$ ,‚@ed3$ ,@d4$ , @d5$, 
@db6$ ,‚@d47$ , @d8$ ,‚@d9$ ,@d1B$: RETURN 
!RAMREAD ‚z ‚@d1$,@d2$ ,‚@d3S$, @ed4$,@d5$, 
RUE WATER BABES BAT BALBE BOLIARRETI 


!RAMREAD ‚z ‚@d1$ ,@d2$ ,@d3$ ,‚@d4$ ,@d5$, 
@d6$,@d7$ ,@dB$,@d49$ ,@d1Bs,@d11$.@d12 


[FA16] 


[633A] 


[BEDA]I 


E{FFD8] 


[220C] 
[48181 


[8418] 
[C896] 


[4E14] 
[5844] 
tEIECI 
[F11A]J 
[CEAB] 
[4408] 
CDDB2] 


[96CC]I 
[6402] 


[6&B54] 
[E1BA] 
[A548] 
[@O3BE] 
[SIEA] 
[6848] 
1[548C] 
[71E4] 
[293E] 
£[C19A] 


[3D46] 


[3EF4] 


[OAA4] 


[7456] 


[280A] 


[C9CQ]I 
[CE2B4] 
[DS6C] 
LEBBB] 
ti1FE]I 
[BE64] 
[97BA] 
[4812] 
[AE&C] 
[&DC8] 


L7A74] 


[9218] 


1668 


rden ermittelt'!"+i$ 
GOSUB 328:FOR z=1 TO z1:G605SUB 170:s 
w=swil:swf=sw1#:GDSUB 548 
IF swa=1 THEN IF ki$="#+" 
798 ELSE su=ssu+i 
NEXT=:PRINT CHR#(7):LOCATE 1,14 
IF pi=1 THEN PRINT,"Die St}ckzahl z 
um Suchwort {2 SPACE}* ";swi1$;" #*" E 
LSE PRINT,"Die St}ckzahl zu den Suc 
hwirtern":PRINT:PRINT,"#* "+swi1$+" * 
{2 SPACE}und{2 SPACE}# "+sw2$+" *" 
PRINT:PRINT,"betr{gt insgesamt = "; 
su; "St}ck.":f$="Weiter?{2 SPACE}--> 
Taste dr’cken!":GOSUB 32@:CALL &BB 
18:LOCATE 1,14:PRINT CHR$ (28) 
su=8:k1$="":G60T0 1558 


THEN GOSUB 


Listing 3. Inhalt der Bank 1 (Schluß) 


420 


430 


440 


458 
468 
470 
488 
498 
SsoB 


518 


528 
5358 
548 
55ß 
568 
578 
588 
5978 
688 
618 
628 
658 
648 
658 
660 


678 
688 
698 
788 
7ı@8 
728 
738 
748 
758 
768 
778 


788 


798 
808 


818 
828 
838 
848 
858 
848 
878 
888 
898 
9728 
918 
920 
938 
9408 
958 
968 
978 
988 
998 


$: RETURN 

IRAMREAD ‚z ,‚@d1$,@d2$ , @d3$ ,@d4$,@d5$, 
@d6+,@d7$,@d8$,@d9$ ,@d1d$,edi1$,@d12 
$,@d13$: RETURN 

IRAMREAD ‚z ‚@d1$ ,@d2$ ,‚@d3$,@d4$ ,@d5$#, 
@d6ö$,@d7$ ,@dB$ ,@d9$ ,@d1Bd$,@edi1$,@di12 
$,@ed135$,@d14$: RETURN 

!RAMREAD ‚z ,‚@d1$ ,@d2$ ,@d3S$,@d4$,@d5$, 
@db$,@d7$, @d8$,@d9$,@d1Bd$ ,@di11$,@d12 
$,@ed13$,@d14$,@d15$: RETURN 

RETURN 
'"##%* WINDOW 1 #**%* 

WINDOW 1,88,1,3:PEN B:PAPER 1:CLS 
LOCATE 22,2:PRINT"* *{2 SPACE}M U L 
T It{2 SPACE}-{2 SPACE}R A M{3 SPACE} 
D I S K{t2 SPACE}I* #" 

PRINT" Datei: {2 SPACE}";USING"\{18 S 
FACE} \"3n$; :PRINT" vom ";USING"\{8B 5 
PACE}\"3da$; :PRINT"{&6 SPACE}###16 SP 
ACE}Dateikarten:";dk 

WINDOW 1,88,4,22:CALL &BB9C 

RETURN 
"*#*# WINDOW 2 x##%* 

WINDOW 1,88,23,25:CALL &BBP?C:CLS 
PRINT:PRINT f$ 

WINDOW 1,88,4,22:CALL &BB9YC 
RETURN 


#r%* 

WINDOW 1,88,23,25:CALL &BB9C:CLS 

PRINT:PRINT #$+" "; 

IF d=1 THEN LINE INPUT d$:IF LEN(d$) 
>2® THEN 648 ELSE 688 

INPUT"",p 

WINDOW 1,88,4,22:CALL &BB9C: d=B 

RETURN 


WINDOW 2 — INPUT #%** 


"**# INKEY — ABFRAGE ##%* 
t$=INKEY$: IF t$="" 
t$=UPPER$ (t$) 


RETURN 


THEN 738 


"*##* Daten den einzelnen RAM — ##** 


er RR 


Stringvariablen }bergeben 


DN si G0TO 819,820,830,840,8580,848,8 
70,880,890,708,710,720,930,940,958 
d1$=d$:bb=b1:RETURN 

d2$=d$:bb=b2: RETURN 

d3$=d$:bb=bS: RETURN 

d4$=d$: bb=b4: RETURN 

d5$=d$:bb=b5: RETURN 

d6$=d$:bb=b&: RETURN 

d7$=d$:bb=b7: RETURN 

d8$=d$:bb=b8: RETURN 

d9$=d$: bb=b9: RETURN 
d18$=d$:bb=b1@: RETURN 
d11$=d$:bb=b11:RETURN 
d12$=d$:bb=b12:RETURN 
d13$=d$:bb=b13: RETURN 
d14$=d$:bb=b14:RETURN 
d15$=d$:bb=b15: RETURN 


arr “rt 


Zeichen pro Spalte 


ON s-4 GOTO 1288,1B1B,1929,1030, 1842 
‚1858,1868,1@78,1088, 1290, 11@@ 


1882 INPUT#x ,b1,b2,b3,b4,b5:G0T0 111@ 
1218 INPUT#x ,b1,b2,b3,b4,b5,b6:60T0 111@ 


Listing 4. »Futter« für Bank 0 


[s8CC9 
ECDEF2] 


LESBö] 
CDCDA] 


£[D798] 


[9BBCI 
[SD36] 


[4200] 
[BS72] 
[F626] 


[4BDC) 
CABS3S2] 
LE2C2] 
[A7BE] 
[7806] 
L[F384] 


LAFBA]I 


[8DFE] 
[BFB@] 
[CC3B] 
[E2CB] 
[A2BE] 
[E4CA] 
CBBAA] 
[EB7&] 
[24QE] 
[9B2C] 
[BDBCI 
[C1841 
LOFCO] 
[8AA6] 
[8206] 


LABZA] 
“+BBSA] 
[4224] 
[B13E] 
[@ABCI 
[8158] 
[B8CH] 
[8a37C] 
[9852] 
[BES38] 
LE4CB] 


[16B2] 


LEECB] 
L7ICE] 


[8D48] 
[873E] 
[5844] 
[814A] 
LAS] 
[3356] 
[945C] 
[7D62] 
[6668] 
[7F&E] 
[64FE] 
[B194] 
[&DaA] 
[2518] 
[AS16] 
[891C] 
CBACC]I 
[7446] 
LE&DB] 


LICFA] 
[SE4E]I 


111 


INPUT#x ,b1,b2,b3,b4,b5,b6,b7:G0T0 1 
118 
INPUT#« ‚b1,b2,b3,b4,b5,b6,67 ,bB:G0T 

1118 
INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9: 
GOTO 111®@ 
INPUT#x ‚,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18:60T0 1118 
INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11:G60T0 1118 
INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12:60T0 1118 
INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12,b13:G60T0 1118 
INPUT#x ‚,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12,b13,b14:60T0 111® 
INPUT#x ,b1,b2,b3,b4,b5,b6,b7,b8,b9, 
b18,b11,b12,b13,b14,b15:60T0 1118 
r=b1+b2+b3+b4+b5 
F s>5 THEN r=er+bö 

s>6 THEN r=r+b7 

s>7 THEN r=r+bB 

s>8 THEN r=r+b9 

s>9 THEN r=r+bi® 

s>18 THEN r=er+biil 

s>11 THEN r=er+b12 

s>12 THEN r=r+b13 

s>13 THEN r=r+b14 

s>14 THEN r=r+b15 


"*##* RAM DISK oeffnen und struktur 
ieren +#+%* 


IRAMOPEN,r:ıON s-4 GDTO 1268, 1278,12 
80,1299,1300,1310,132@,133@,134@,13 
5B,1368 

!RAMFIELD,b1,b2,b3,b4,b5:G60T0 137@ 
IRAMFIELD,b1,b2,b3,b4,b5,b6:60T0 13 


78 
!IRAMFIELD,b1,b2,b3,b4,b5,b6,b7:60T0 
1378 
!RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8:6 
0TO 1378 
IRAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9:60T0 1378 
IRAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b10:60T0 1378 
IRAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11:60T0 137@ 
!RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11,b12:60T0 1378 
IRAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b18,b11,b12,b13:60T0 137@ 
!RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11,b12,b13,b14:60T0 137@ 
!RAMFIELD,b1,b2,b3,b4,b5,b6,b7,b8,b 
9,b1@,b11,b12,b13,b14,b15:G0T0 137@ 


IRECORDS: dk=erec-1:rec=® 
RETURN 
"##** Bildschirmanzeige #%*# 


CLS: ZONE 22:PRINT CHR$(7) 
PRINT">"5z;5"/{2 SPACE}1 <",b$(1),di 


PRINT“>"323 "702 SPACEI2 <",b$(2) ,d2 
PRINT" >"424"/02 SPACEI3 <",b$(3) ,d3 
PRINT" >"423 "762 SPACEI4 <",b$(4) ‚d4 
PRINT">"j23 "742 SPACEIS <",b$(5) ,d5 


IF s>5 THEN PRINT" >";2;5"/(2 SPACE}& 
<" ,b$ (6) „d6$ 

IF s>& THEN PRINT">"325"/12 SPACE}? 
<" ,b$ (7) ‚d7$ 

IF s>7 THEN PRINT">"5z3"/(2 SPACEIB 
<" ,b$ (8) „dB$ 

IF s>8 THEN PRINT">"52z3"/2 SPACEI9 
<" ,b$ (9) „d9$ 

IF s>9 THEN PRINT">"523"/ 10 <",b$t 
18) ‚di1@$ 

IF s>1@ THEN PRINT">"325"/ 11 <",b$ 
(11) ,d11$ 

IF s>11 THEN PRINT">"32;5"/ 12 <",b$ 
(12) ‚d12$ 

IF s>12 THEN PRINT">"325"/ 13 <",b$ 
(13),d13$ 

IF s>13 THEN PRINT">"3z5"/ 14 <",b$ 
(14) „d14$ 

IF s>14 THEN PRINT">"32;"/ 15 <",b$ 
(15) „d15$ 

RETURN 


"#*#* aus RAM DISK ausgelesene Date 
n sichern #%*#* 


LB7D8] 
LAB64] 
[DBF2] 
L1AB2] 
[DD62] 
[DE44] 
L2F28] 
LFZBEI 
[3CF6] 
LF2CE] 
[B64E1 
[8798] 
L3F9E] 
LAFA4] 
LSFAA] 
[D3FE] 
[99521 
[5ES8] 
L&3SE] 
[4752] 
[7658] 
[B718] 
[D4C6] 
L911C9 
LAFS6] 
[A798] 
[52221 
L&BAEI 
LCBSC] 
[2CBA] 
LAF9A] 
L207C] 
L7D681 
[3446] 
LE72E] 
LF@18) 
La27@] 
[B898] 
[BA28] 
[SCD8] 
LBA1A] 
LEC66] 
[3188] 
[7988] 
[9198] 
[8198] 
LF1AB] 
[5@B0] 
L99BA] 
LC8B2] 
L8BBC] 
[B478] 
LFBCB] 
[26D2] 
LESDCI 
[BCE6] 
[57F®] 
[BE9CI 
[BE2CI 


[3SCE] 
[BE1E] 


s>5 THEN dös$=dö$ 
s>& THEN d7$=d7$ 
s>7 THEN d8$=d8$ 
s>8 THEN d9$=d9$ 
s>9 THEN d18$=d1B$ 
s>18 THEN dii$=di1# 
s>11 THEN di12$=d12$ 
s>12 THEN d13$=d13$ 
s>13 THEN d14$=d14$ 
s>14 THEN d15$=d15$ 
RETURN 


"*##* nach Suchwort suchen ##%* 


sw$=LEFT$(d1$,sw) THEN 1938 
sw$=LEFT$(d2$,sw) THEN 1938 
sw$=LEFT$(d3$,sw) THEN 1938 
sw$=LEFT$#(d4$,sw) THEN 1938 
sw$=LEFT$(d5$,sw) THEN 1938 
sw$=LEFT$(dö$,sw) THEN 1938 
sw$=LEFT$#(d7$,sw) THEN 1958 
sw$=LEFT$#(d8*,sw) THEN 1938 
sw$=LEFT$(d9$,sw) THEN 19308 
sw$=LEFT$(d1B$,sw) THEN 19358 
sw$=LEFT$#(dil$,sw) THEN 1938 
sw$=LEFT$(d12$,sw) THEN 1938 
sw$=LEFT$(d13$,sw) THEN 1938 
sw$=LEFT$(d14$,sw) THEN 1938 
sw$=LEFT$(d15$,sw) THEN 1938 

swa=8:RETURN 

swa=1:RETURN 


"#*#** Dateinamen ausdrucken #%*# 


f$="Dateiname wird ausgedruckt !"+i$ 
:GOSUB 558 
PRINT#8,CHR$ (18) ; CHR$ (14) ; TAB (22-IN 
T(LEN(n$) /2)) n$:PRINT#8:PRINT#8:PR 
INT#8: zz=zz+4 

RETURN 


"*#** Spaltenbezeichnungen ausdruck 
en *%#%* 


f$="Spaltenbezeichnungen werden aus 
gedruckt !"+1$:G60SUB 55@ 

ZONE 22:PRINT#8,CHR$ (15); : IF s<i11 T 
HEN s2=s ELSE s2=1@ 
PRINT#8,TAB(12)"1fd.Nr.{4 SPACE}";: 
FOR si=1 TO S:PRINT#8,b$(s1),:NEXT: 
zz=zz+1 

IF s>5 THEN PRINT#8,TAB(22)" "3:FOR 
si=6 TO s2:PRINT#8,b$ (si) ,:NEXT:zz 
=zz+i 

IF s>1® THEN PRINT#8,TAB(22)" ";:FO 
R si=11 TO s:PRINT#8,b$(s1) ,:NEXT:z 
z=zz+1 

PRINT#8,TAB(12) STRING$(121,"-")ızz 
=zz+1 

RETURN 


'*#*%* Dateikarten ausdrucken #%#%* 
ZONE 22:PRINT#8,CHR$ (15); 
PRINT#8,TAB(12)"Nr."3z;3 TAB(22)" "sd 
1$,42$,43$ ,44$ ,‚d5$: zz=zz +1 

IF s>5 THEN PRINT#8, TAB (22) " "sdö$, 
d7$,d8$,49$ ,d1@$:zz=zz+1 

IF s>1B THEN PRINT#8,TAB(22)" "z;dii 
$,d12$,d13$,d14$ ,d15$:z2=zz +1 

IF dz=i THEN PRINT#8:zz=zz+1 

RETURN 


"*** Hauptmen} ##** 


s=ss:p1=@: ZONE 23:G0SUB 470: #$="":G 
OSUB 558 
CLS:PRINT:PRINT STRING$ (88,"-"):PRI 
NT,"* * #*{3 SPACEIHAUPTMEN] 
er au * *":PRINT=:PRINT STRING$ 
’ 
,„"> 1 <{t2 SPACE}Datei einlesen 


PRINT,"> 2 <{2 SPACE}Datei anlegen" 


PRINT,"> 3 <{t2 SPACE}Dateispalten b 
ezeichnen" 

PRINT,"> 4 <{2 SPACE}Dateikarten be 
schreiben" 

PRINT,"> 5 <{2 SPACE}Dateikarten {n 
dern/l'ischen" 

PRINT,"> 6 <t2 SPACE}Dateikarten an 
sehen,suchen usw." 

PRINT,"> 7 <t2 SPACE}Dateikarten au 
sdrucken" 

>PRINT,"> 8 <{2 SFACE}Datei sichern" 


PRINT,"> 9 <{2 SPACE}RAM DISK schli 
e”’en" 


[61AB] 
[AB4E] 
[CAS6] 
[7C5E] 
[A666] 
LCABBA] 
[4858] 
[5868] 
L1DSE] 
[4166] 
[71&4E] 
[8A96] 
[9726] 
LESIE]I 
[952A] 
[C828] 
E[FF2C]I 
[B238] 
[5C22] 
[FS26] 
te22A] 
[C72E)] 
[7032] 
[6936] 
[1988] 
£7D8C]I 
CBD9B] 
[9194] 
[7B86] 
LE78A] 
LEB7CI 
[5288] 
tES2A] 
TEABA] 
[252E] 


CABD2]I 
CA6&B8] 
[BCA6] 
CBA12] 


LSC2E] 
CBC16] 


[47C0] 
[SFA2]I 


LE2D6] 


[2F68] 


L9FBE)I 
[45C2] 
[FB9I6] 
£[BC14] 
[8298] 
[9A18] 
[&BCE] 
LAFCA] 
[BöFA] 
[BBBE] 
LFEEE] 
[C896] 
[2526] 
[3B8C] 
CBD18] 


ELFSDA] 


[BAB2] 
CEDD4] 
[AAE6] 
tEESA] 
LEB38] 
[8BBC) 
[BACE] 
[B97ABI 
[8918] 
[6656] 


ADD 


LOCATE 26,19: PRINT" (c) 1986 by kaba 
soft-computing" 

f$=e#$:GOSUB 528: IF p<i OR p>9 THEN 
2348 [S54E2] 
IF p>2 AND rd=@ THEN f$="Neue Datei 
anlegen?"+h$:G6D5UB 558:GOSUB 718:1 
F t$="J" THEN 2618 ELSE 2348 

ON p G0OTO 2389,2618,2820,2900,5070, 
3550,3970,4340,4810 


[A4BC]I 


U3BD2] 


[143C] 
[2726] 
"#** Datei einlesen #*%* [CFD4] 
i [992A] 
IF rd=1 THEN f#="RAM DISK belegt! N 
eue Datei wirklich einlesen?"+h$:60 
SUB 558:60SUB 71@: IF t$="J" THEN ER 
ASE b$ ELSE 2348 
n$="":da$="":rd=@:dk=@:b=9:GOSUB 47 
["} [7BI1E)] 
CLS: f$="Datei wird eingelesen!"+i$: 
GOSUB 558 
PRINT:OPENIN " 
LINE INPUT#9,n$:LINE INPUT#9,da$s: IN 
PUT#9,5s,2z1,1z:DIM b$(s):b=1 
FOR si=1 TO s:LINE INPUT#9,b$(s1):N 
EXT [F9D®] 
FOR z2=B TO 18: INPUT#9,d1(z22,1) ,di 
z2,2) NEXT 
x=9:G0OSUB 9780:x=9:G60SUB 478:LOCATE 
1,8 [A4A16] 
FÜR z=1 TO zi:LINE INPUT#9,d1$:LINE 
INPUT#9,d2$: LINE INPUT#?9, ds$: LINE 

INPUT#9 ,d4$: LINE INPUT#9 ,d5$ 

s>5 THEN LINE INPUT#9,d6$ 

s>6 THEN LINE INPUT#9,d7$ 

s>7 THEN LINE INPUT#9,d8$ 

s>8B THEN LINE INPUT#9,d9$ 

s>9 THEN LINE INPUT#9,d18$ 

s>1B THEN LINE INPUT#9,di1$ 

s>11 THEN LINE INPUT#9,d12$ 

s>12 THEN LINE INPUT#9,d13$ 

s>13 THEN LINE INPUT#9,d14$ 

s>14 THEN LINE INPUT#9,d15$ 
GOSUB 15@:NEXT:CLOSEIN:rd=1:ds=@: ss 
=s: !GDOSUB,1,1890:G60T0 2288 


[B16A] 


[C5BB] 
[D976] 


[DC2A] 


[8238] 


[9528] 
[2A22] 
[CA16] 
[831C] 
[A822] 
[7876] 
E[DSCA]I 
[85D8] 
EDCD6] 
[D2DC] 
LEBE2] 


ECBB4] 
[961E] 


'#** Datei anlegen #%*#+ [BBDA] 


STAUBSCHUTZHAUBEN 


aus Leinen/Kunstleder in handwerklicher Spitzenqualität 


FÜR HOMECOMPUTER x PCs * PERIPHERIE 


ATARI 130, 800, 1050 je DM 17,90 SCHNEIDER CPC 464, 6128 je 24,90 
" 600, 1010 / 314, 354 je 15,90 ” Monitore (alle) je 49,90 


" 260, 520, 1040, ... ST je 24,90 " Floppy DD-I 14.90 
"SM 124, SC 1224 u.a. je 49,90 " PC, Joyce Tastatur je 17,90 
"SH 204, SMM 804 je 27,90 " PC, Joyce Mon.+SysEh je 59,90 
COMMODORE CBM 8028 39,90 DRUCKER Star NL10, SG10 je 34,90 
" VC 20, C 64, 1541, 1571 je 17,90 ” Epson LX/FX/RX 80/85 je 2790 
" Datasette 15,90 " Epson EX/FX/LQ 800 je 39,90 
" Amiga+Systemeinheit 59,90 " Panason. KXP 1091/92 je 39,90 
" Systemeinh. + Sidecar 69,90 " Panason. KXP 1592 39,90 
" C 128-D, PC-10/20 T. je 17,90 " Taxan KP 810, Oki 192 je 34,90 
” C 128-D, PC-20 SysEh je 44,90 " Taxan KP 910, NEC P6& je 39,90 
" PC-20 Monitor 49,90 
" C 128, MPS-801 je 24,90 IBM-PC, Epson Handheld je 17,90 


BESTELLUNGEN (Bitte genaue Typen-Angabe) werden sofort bearbeitet! Für über 60 Geräte vorrätig 
(Info gratis!) Sonderanfertigungen und Hauben-Sets sowie Mengenrabatte auf Anfra- 
ge. Es gelten unsere AGB. Versandspesen: UKB 4,90 Vorkasse/7,50 NN (Ausland 10,—/20,—). 


RAUSCH & HAUB GbR Tel. > 0228/638313 


Vertriebsbüro (Kein Laden): Berliner Freiheit 16 # 5300 Bonn 1 
Abholung nur nach Terminvereinbarung während unserer Bürozeiten! 


LEITERPLATTENENTFLECHTUNG 
AUF DEM CPC 
Das Tool zum computergestützten Entflechten von Leiterplatten! 


Geben Sie nur die 
Bauteile und die Ver- 
bindungen ein und 
Ihr CPC macht dar- 
aus das fertige Lay- 
out, das Sie auf dem 
Drucker ausgeben 
und auf die Platine 
übertragen können. 


Diskette mit ausf. 
Handbuch 


CPC-Version 149,— 
PC-Version 269,— 


" [9422] 

IF rd=1 THEN #f$="RAM DISK belegt! N 

eue Datei wirklich anlegen?"+h$:605 

UB 558:60SUB 718: IF t$="J" THEN ERA 

SE b$ ELSE 2348 

n$="":da$="":rd=B: dk=B:b=B: z 1=B:605S 

UB 478:CLS: ZONE 17 

f$="Neue Datei anlegen. {2 SPACE}-{(2 
SPACE}Bitte Daten eingeben! ":GOSUB 
558 [SFAEI 

PRINT:PRINT,"Untermen} {2 SPACE}> NE 

UE DATEI ANLEGEN <":PRINT,STRING$ (3 

S,r=") [840E]1 

PRINT: PRINT,"Zum Anlegen der neuen 

Datei werden": PRINT, "folgende Angab 

en benitigt!" 

PRINT=:PRINT,"Datum ........ {4 SPACE 

3"32LINE INPUT das 

PRINT:PRINT,"Dateiname .... (4 SPACE 

3"3:LINE INPUT n$:IF LEN(n$) >2B TH 

EN PRINT CHR$ (11) ;CHR$ (11) ; CHR$ (28) 
;:GDTO 2598 

PRINT:PRINT,"Wieviel Spalten (5 bis 
15) soll die Datei haben";:INPUT s 

[98D8] 


[6674] 
[8CCB] 


L1E82] 
CBA00] 


[78F8] 
LEB2A] 


[DB9B] 


IF s<5 OR s>15 THEN PRINT CHR$(11); 
CHR$ (11) 3; CHR$ (28) ;:G60T0 2708 
PRINT:PRINT,"Wieviel Zeichen (1 bis 
28) soll jede Spalte haben?" 
PRINT,"(z.B. 290,16,18,108,7,7,6,20,4 
‚28 Y"LPRINT, "_25 "23 GOSUB ’970 
F$="RAM DISK wird ge!ffnet!{2 SPACE 
}Bitte warten ....":60SUB 558:n$=UP 
PER$ (n$):ss=s:DIM b$(s) 
CLS:LOCATE 22,4:PRINT"* *{2 SPACE}IM 
UL T It2 SPACE}-{2 SPACE}R A M{3 
SPACE}D I S K{2 SPACE}I* *" 
PRINT:PRINT:PRINT,"{2 SPACE}Datei:{ 
2 SPACE} "zUSING"\T18 SPACE}\"zn$; :P 
RINT" vom ";da$ 
LOCATE 168,9:PRINT"ist dimensioniert 
f}r"zdk; "Dateikarten mit";s; "Spalt 
en":LOCATE 21,11:PRINT"bei durchsch 
nittlich";CINT (r/s) 3 "Zeichen je Spa 
lte” CBA4FA] 


£[92D2] 


CEBö8] 


[B1B8] 


[97C2] 


Listing 4. »Futter« für Bank 0 (Fortsetzung) 


Public Domain... CPC, Joyce und C 128! 


Die Besitzer von Schneider CPC- und Joyce-Computern haben unser Ange- 
bot an Public Domain-Software begeistert aufgenommen. Jetzt bieten wir 
unsere Disketten auch fertig angepaßt für den Commodore 128 an! 
Bei uns bekommen Sie diese Programme mit deutschen Systemmeldungen 
und einem gedruckten Handbuch in deutscher Sprache - garantiert lauffä- 
hig auf Ihrem Schneider-CPC, Joyce und Commodore 128: 

Diskette 1: Pascal-Compiler JRT-Pascal - vollständiges Pascal mit Strings 
bis 64 KByte, EXTERN-Overlays und, und, und...” 

Diskette 2: Assembler-Paket mit Z80-Assembler, Editor, Linker, Debugger 
und intelligentem Disassembler 

Diskette 3: Künstliche Intelligenz - Interpreter für die Kl-Sprachen XLISP 
und E-PROLOG* 

Diskette 4: C-Compiler Small-C - verarbeitet sogar Fließkommazahlen und 
besitzt umfangreiche Bibliotheken* 

Diskette 5: Forth-83 - komplette Implementation von Forth mit Assembler, 
Decompiler, Screen-Editor, Kommentar-Screens... 

Diskette 6: CP/M-Utilities wie Dateikompressor (bis 60%), Diskmonitor, 
UNERA, Mehrspaltendruck, Super-Directory... 

Diskette 7: Alle Programme aus dem Großen CPC-Arbeitsbuch von Martin 
Kotulla und Lothar Miedel (Franzis-Verlag, nur Schneider-CPC) 

Diskette 8: Das Super-Adventure Colossal Cave - Suchen Sie Schätze in 
der riesigen Höhle! (englisches Programm, deutsche Beschreibung)* 


* auf dem CPC 464/664 nur mit Speichererweiterung (64 K genügen) 

Disketten 1-4 mit Wordstar-kompatiblem Editor 

Commodore 128: Disketten in von 1570/1571 lesbarem Format. Kein 1541-Format oder 
CP/M 2.2-Cartridge für C64! 


Immer noch gilt unser Superpreis: nur 30 Mark pro Diskette! Bitte geben Sie 
das gewünschte Diskettenformat (3 Zoll, Vortex 5,25 Zoll, 1570/1571) an. 
Nachnahme oder Vorauskasse. Keine Versand- oder Verpackungsgebühren! 


MARTIN KOTULLA 


Grabbestraße 9, 8500 Nürnberg 90, Telefon: 09 11/30 3333 


Weitere Bezugsquellen für CPC und Joyce: 

Techn. Büro Ingeborg Hochholzer, Erhard-Prunner-Straße 1, 8062 Markt Indersdorf, Telefon 
08136/1625 (auch 3,25 Zoll/Vortex) 

TESCO GmbH, Rüdenhausenerstraße, 8714 Wiesentheid, Telefon 09383/1237 

Weeske Computer-Elektronik, Potsdamer Ring 10, 7150 Backnang, Telefon 0 7191/1528-29 
Computerstore, Hochstraße 11, 8500 Nürnberg 80, Telefon 09111/289028 

Computer Solutions, Belgradstraße 9, 8000 München 40, Telefon 089/3088048 


Weitere Bezugsquelle für Commodore 128: 
TESCO GmbH, Rüdenhausenerstraße, 8714 Wiesentheid, Telefon 09383/1237 


Anfragen von Händlern, OEMs und VARs sind stets willkommen! 
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FOR t=1 TO 35@8@:NEXT:rd=1:!GOSUB,1, 
189:G60T0 2288 


"#*#** Bezeichnungen eingeben ###+ 
IF b=1 THEN f$="Bezeichnun 
schon eingegeben!":60SUB 5 
1 TO 15B8:NEXT:GOTO 2348 
f$="Bezeichnung der Dateispalte ein 
geben":GOSUB 558 

CLS: d$="":PRINT:FOR si=1 TO s 
PRINT"> "3 USING"##";s153:PRINT" <", 
:LINE INPUT d$: IF LEN(d$) >28 THEN 
PRINT CHR${11) 3; CHR$ (28); :60TD 2858 
IF si=1 AND d$="" THEN 2848 

IF d$<>"" THEN b$ (s1)=d$ 
NEXT:b=1:G60T0 2288 


en sind 
ıFOR t= 


"rr 
FOR z2=8 TO 1@:IF dl(z2,2)=@ THEN N 
EXT 

IF z2=11 THEN a=z1+1:e=dk:G0OTO 2958 


a=dl (z2,1)se=dl (z2,2) 

FOR z=a TO e:f$="Dateikarte Nr."+ST 
R$(z)+"{2 SPACE}-{2 SPACE}Bitte Dat 
en eingeben !":GOSUB 558 

CLS:PRINT:FOR si=1 TO s 

PRINT">"325"/ "ZUSING"##";s15 :PRINT 
"<",b$(si),:LINE INPUT d$:G60SUB 77 
8: IF di$="" THEN 2288 

IF LEN(d$) >bb THEN PRINT CHR$(11); 
CHR$ (28) :LOCATE 1,18:PRINT"Dateispa 
lte ist nur f}r"+STR$(bb)+" Zeichen 
dimensioniert'!'{2 SPACE}-{2 SPACE}B 
itte neu eingeben!":LOCATE 1,s1+1:6 

OTO 2978 

PRINT CHR$ (28) ; :NEXT 

GOSUB 168: IF di$>"" THEN IF z2=11 T 
HEN zi=zi+1 ELSE dl (z2,1)=z+1 
f$="Weitere Dateikarte anlegen?"+h$ 
:GOSUB S558:G60SUB 718: IF t$="J" AND 
di$>"" THEN NEXT 

IF z2=11 THEN 3848 

IF z>e THEN di (z2,1)=B:dl (z22,2)=B 
IF z>dk THEN #$="{5 SPACE}* * *#{2 5 

PACE}RAM DISK ist belegt!{2 SPACE}* 
* *":G60SUB 558:FOR t=1 TO 2889: NEX 

T:60T0 2288 

IF t$="J" THEN 2928 ELSE 2288 


> E[NDERN und L\SCH 


Dateikarten beschreiben ###* 


"*** Untermen} 
EN < *r%* 


CcLS 

PRINT:PRINT,"Untermen}{2 SPACE}> [N 

e. uns L\SCHEN <":PRINT,STRING$ (3 
’ 

PRINT:PRINT,"Was soll geindert oder 
elischt werden?" 

PRINT:PRINT,">1<{2 SPACE}Datum der 

Datei {ndern" 

PRINT:PRINT,">2<{2 SPACE}Spaltenbez 

eichnung {ndern" 

PRINT: PRINT ,">3<£2 SPACE}Dateikarte 
{ndern" 

PRINT:PRINT,">4<{2 SPACE}Dateikarte 
lischen" 

f$=e$:G60SUB 628: IF p<i1 THEN 2288 Ei 

SE IF p>4 THEN 3168 

ON p G0T0O 3199,3250,33290,3448 


"**%* 
CLS:f$="Datum der Datei wirklich {n 
dern?"+h$:GOSUB S558:60SUB 718 

IF t$="J" THEN f$="Aktuelles Datum 
eingeben!":d=1:G60SUB 628: da$=d$:605 
UB 478:ds=1 

GOTO 3898 


Datum der Datei {ndern ##** 


"*** Bezeichnung {ndern #%*#* 
CLS:PRINT:FOR si=1 TO s:PRINT"> ";U 
SING"##"; s1353:PRINT" <",b$(s1):NEXT 


f$="Welche Spaltenbezeichnung {nder 

n?{2 SPACE}Nr.":60SUB 628:si=p:IF s 
1<1 THEN 3978 ELSE IF si>s THEN 328 

[.} 

f$="Neue Bezeichnung der Spalte"+ST 

R$(s1)+":":d=1:605UB 628:b# (si)=d$: 

ds=1:PRINT CHR$(7) 

G0TO 3278 

'*** Dateikarten {ndern ##* 

CLS: f$="Welche Dateikarte {ndern?{2 
SPACE}Nr.":GOSUB 528:z=p:IF z<i TH 

EN 3878 ELSE IF z>zi THEN 3348 


L3ESCI 
[E132] 
[S85E] 
[C924] 


[8E24] 


[374C] 
[5SEB6] 


[6B5A] 
CAB14] 
LE22A] 
[7424] 
[A134] 
[6328] 
[2D26] 


[9CBO) 
[9614] 
[4A7C] 


L7EIA]I 
[6E86] 


[2456] 


£[DB581 
[4912] 


[F356] 
LE9BB] 


[772A] 
[A714] 


[SA1CI 
[F&C6] 
[9520] 
[3388] 
LBF24] 
[329C] 
[3242] 
[DSCC]I 
[6648] 
[8364] 
[F@92] 
[A464] 
[C7B@] 
tE27E] 
C[BD26] 
LA3SE] 
[9318] 
[C4BEA] 
[89280] 
[781A] 
[B728] 


[8B&2] 
[9524] 


[B866] 


C[B1A2] 


[5792] 
[8516] 
[9B1C) 
[FSS52] 
[9220] 


[556C] 


GOSUB 318:G60SUB 1688:G60SUB 1488 
f$="Dateikarte Nr."+STR$(z)+" wirkl 
ich {ndern?"+h$:60SUB 558:G60SUB 718 
sIF t$<>"J" THEN 3418 
f$="Welche Spalte {ndern?{2 SPACE}N 
r.":605UB 628:si=p: IF si<1 THEN 341 
@ ELSE IF si>s THEN 3378 
f$="Neue Dateneingabe Spalte"+STR$( 
si)+":":d=1:G0SUB 628:60SUB 778 
IF LEN(d$) >bb THEN LOCATE 1,18:PRI 
NT"Dateispalte ist nur f}r"+STR$(bb 
)+" Zeichen dimensioniert'!{2 SPACE} 
-{2 SPACE}Bitte neu eingeben!":60T0 
3388 
GOSUB 159:G60SUB 1488:G0T0 3378 
f$="Nichste Dateikarte Nr."+STR$(z+ 
1)+" {ndern?"+h$:60SUB 559:605UB 71 
B@: IF t$="J" THEN z=sz+t1:IF z<=zi THE 


N 3358 
ds=1:60T0 53078 


'*** Dateikarten loeschen ##** 
CLS:g$="Welche Dateikarte(n) lische 
n?{2 SPACE}Von Nr.":f$=g$:G0SUB 428 
sa=p:IF a<i THEN 3878 ELSE IF a>zi 
THEN 3468 

f$=g$+5TR$(a)+" bis Nr.":6GOSUB 628: 
e=p:IF e<a THEN e=a ELSE IF e>z1 TH 
EN e=zi 

g$="Dateikarten Nr. "+STR$(a)+" bis 
Nr."+STR$(e):sf$=g$+" wirklich l!sch 
en?"+h$:G0OSUB 558:G0SUB 71@: IF t$<> 
"J" THEN 3878 

f$=g$+" werden gel !scht!"+i1$:60SUB 
550:g$="" 

FOR z=a TO e:G0OSUB 318:d1$="":d2$=" 
"sd3$="":d4$="",d5$=""2döose"":d7$=" 
":d8$="":d9$="":d1Q$=""Sdi1l$=""2di12 
$="":d15$="":d14$=""2d15$="":G0O5SUB 
168: NEXT 

IF e=zi THEN zi=a-1:60T0 3878 
di(12,1)=a:dl (12,2)=e:lz=1z+1: IF 1z 
>18 THEN 1z=8 

G0TO 3978 


"##* Untermen} 
und EXTRAS < ##* 


CLS: ZDNE 28 

PRINT:PRINT,"Untermen}{2 SPACE}> AN 

SEHEN, SUCHEN und EXTRAS <":PRINT,S 

TRING$(41,"-") 

PRINT:PRINT,">1< Dateikarten nach N 

r. ansehen" 

PRINT:PRINT,">2< Dateikarten nach 5 

uchwort ansehen 

PRINT:PRINT,">3< Inventarsummen der 
Datei ermitteln" 

PRINT:PRINT,">4< St}ckzahlen der Da 
tei ermitteln" 

f$=e$:60SUB 628: IF p<1 THEN 2288 EL 
SE IF p>4 THEN 3638 

ON p G0TOD 36449,3749,3890,3938 


> ANSEHEN, SUCHEN 


'#*#** Datei-Karten ansehen +##%* 


. 


CLS 

g$="Welche Dateikarte(n) ansehen?{2 
SPACE}Von Nr.":f$=g9$:60SUB 628: a=p 
:IF a<i THEN 3558 ELSE IF a>zi THEN 
3698 

f$=g$+5TR$(a)+" bis Nr.":G60SUB 628: 

e=p:IF e<a THEN e=a ELSE IF e>zi1 TH 

EN e=zi 

FOR z=a TO e:60SUB 318:60SUB 1488: f 

$="Dateikarte Nr."+STR$(z)+"{2 SPAC 

E}-{2 SPACE}Weiter?{2 SPACE}--> Tas 

te dr}cken!":G0OSUB S5S@:CALL &BB18:N 
xT 


E 
g$s="":G0T0 3698 


"##** Dateikarten suchen (und ausdr 
ucken) ##*%* 


CLS: f$="Bitte Suchwort eingeben! "ı 
d=1:G0SUB 628: sw=LEN (d$) :sw$=d$: IF 
sw$s="" AND pi=3 THEN 3978 ELSE IF s 
w$="" THEN 3558 

g$="Suchwort {2 SPACE}I* "+ewn$+" #12 


SPACE}-{2 SPACE}Dateikarte wird ges 
ucht !"+i$: f$=g$:60SUB 558 

FOR z=1 TO z1:G60SUB 318:G0SUB 1758: 
IF swa=B THEN 3848 

IF pi=3 AND zz>59 THEN GOSUB 3878 
IF pi=3 AND zz=B THEN GOSUB 1958:60 
SUB 2818 

GOSUB 1488: IF pi=3 THEN f$="Suchwor 
t{2 SPACE}* "+sw$+" #12 SPACEI-{2 S 
PACE}Dateikarte wird ausgedruckt'!": 


[29BE] 


L7FAB] 


[B6s9E] 
[DB84] 


LE7EB8] 
[90616] 
[C222] 
[BOD&6] 
[E426] 


L[7SEE] 


[81A4] 


CDDSCI 
[19BB] 


CBA4F8] 
[SAICI 
[9926] 
[C84E] 
[972A] 
LAE9I2] 
[7358] 
LIESCI 
LESFCI 
LAASA] 
[17CE] 
ECFBB] 
[67AE] 
[982A] 
[4A1A] 


L9&62E] 
LBFA6]I 


[2364] 
[34BA] 
EBA28] 


[3268] 
[942C] 


L1A22] 


[BBBA] 


[5606] 
CB48E] 


[CD34] 


rAAPPYR 


COMPUTER 


( :OMP. UTER 


GOSUB 558:605SUB 21198:G60T0 3858 
f$="Suchwort {2 SPACE}* "+sw$+" #{2 
SPACE}-{i2 SPACE}Weitersuchen?{2 SPA 
CE}--> Taste dr}cken!":60SUB 558:CA 
LL &%BB18 

f$=g$:605UB 558 

NEXT: f$="Suchwort {2 SPACE}* "+sw$+" 
*{2 SPACE}nicht vorhanden!" :GOSUB 
5580: IF pi=3 THEN LOCATE 1,s+3:PRINT 
"Suchwort {2 SPACE}* ";sw$;" #12 SPA 
CE}-12 SPACE}Datei ist vollst{ndig 
ausgedruckt!" . 

IF pi=3 AND zz>® THEN f$="Gesamt-Au 
sdruck nach Suchwort wird beendet!" 
+1 $:G0SUB 558: GOSUB 3878: g$="":G0T0 
3768 

g$s="":FOR t=1 TO 3B@B:NEXT:GOTO 376 
8 


FOR zz=zz TO 62:PRINT#8:NEXT:PRINT# 
8,CHR$ (18) 5; TAB(265-INT (LEN (sw$) /2)) " 
Dateiausdruck nach Suchwort {2 SPACE 
3# "sow$;" *"5CHR$ (12) :zz=Bs: RETURN 


"#r% 
n *r% 


Datei-Inventarsummen ermittel 


!GOSUB,1,1188:G60T0 3558 


*Rr%r 


"**%* St}ckzahlen ermitteln 


!GOSUB,1,1478:60T0 3558 


"*#* Untermen} > DRUCKEN < #*# 
CLS:WIDTH 255 
PRINT:PRINT,"Untermen} {2 SPACE} > 
UCKEN <":PRINT,STRING$ (22,"-") 
PRINT:PRINT,"Was soll ausgedruckt w 
erden?" 

PRINT:PRINT,">1<{2 SPACE}Einzelausd 

ruck nach Nr." 

PRINT:PRINT,">2<{2 SPACE}Gesamtausd 

ruck der Datei" 

PRINT:PRINT,">3<{2 SPACE}Gesamtausd 

ruck nach Suchwort" 

f$=e$:605UB 628: pi=p:IF pi<i1 THEN 2 

288 ELSE IF p1>3 THEN 4858 

IF dr=1 THEN 4898 

f$="Drucker angeschlossen?" +h$:GOSU 

B 558:605UB 718: IF t$="J" THEN PRIN 
T#8,;3:dr=1 
IF t$<>"J" 

nschlie*en!":60SUB 558:FOR 

S5@B:NEXT:GOTO 49878 

CLS: #$="Ausdruck der vollst{ndigen 

Dateikarten?"+h$:G60SUB 558: G60SUB 71 
@: IF t$="J" THEN s=ss:G60TO 4118 

f$="Welche Dateispalten ausdrucken? 
{2 SPACE}Von Nr. 1 bis Nr.":G60SUB & 

28:s=p: IF s<5 THEN s=5 ELSE IF s>ss 
THEN s=ss 

IF p1>1 THEN 4148 

f$="Ausdruck des Dateinamens?"+h$:6 

OSUB 558:605UB 718: IF t$="J" THEN G 
OSUB 1958 

f$="Ausdruck der Spaltenbezeichnung 

en?"+h$:60SUB 558:G60SUB 718: IF t$=" 

J" THEN GOSUB 2818 
f$="Zwischenzeile nach einer Datei- 

Karte?"+h$:60SUB 558: 60SUB 71B: IF t 
="J" THEN dz=1 ELSE dz=@ 

"ON pi GOTO 41798,4270,3748 


DR 


THEN f$="Bitte Drucker a 
t=1 TO 1 


Einzelausdruck #%%* 


"arr 
g$="Welche Dateikarten ausdrucken? 
Von Nr.":f$=g$:60SUB 6208: a=p: IF a>z 
1 THEN 4198 ELSE IF a<i THEN IF zz= 
@ THEN 3978 ELSE 4248 
f$=g$+5STR$(a)+" bis Nr.":G0OSUB 628: 
=p:IF e<a THEN e=a ELSE IF e?zi TH 
EN e=zi 
f$="Dateikarten werden ausgedruckt! 
"+1$:G60SUB 558 
FOR z=a TO e:GOSUB 318:G0SUB 1490:G 
OSUB 2118: IF zz<6B THEN NEXT 
gs="":IF zz<dQ THEN 4198 
f$="Einzel-Ausdruck wird beendet!"+ 
i$:G0OSUB 558:CLS 
FOR zz=zz TO 52:PRINT#8:NEXT:PRINT# 
8,CHR$ (18) ; TAB (353) "Datei-Einzelausd 
ruck";CHR$ (12) :22=8:60T0 3978 
"**#* Gesamtausdruck ##%* 
CLS: g$="Gesamtausdruck der Datei!"+ 
ua 1950:G0SUB 2818: #$=g$:GOSU 
B 558 


FOR z=1 TO z2z1:60SUB 319:G0SUB 14098: 
GOSUB 2118: IF z<zi AND zz>59 THEN 4 
328 


L1AEE] 


[C6C2] 
[B848] 


[55B6] 


[CEZE) 
[6644] 


L99CE] 
LIF34] 


LEBF6] 
[C526] 
[A638] 
[C32A] 
LEBS34] 
[292E] 
[5344] 
LE732] 
Lö8CE] 
[9D36] 
L1B9A] 
[8572] 
[&BAB] 
CBSAC]I 
[A978] 
[862A] 
[797E] 
LE852] 
LBAGE) 
[BE1A]I 


E3FEEI 


£C8C72] 
[42BA] 


LEE3SE] 


LICCCI 


[SSBE] 
[6688] 
LE824] 
L79B8] 
L[9A28] 


CBSC6] 


[A394] 
[3224] 


TS374E] 


[90852] 
LEF@2] 


[8BC2] 
[9A26] 
[36Ab] 
LEA2A] 


[79B6] 


[1A88] 


49708 


4880 
4898 


NEXT=:PRINT:PRINT"Datei {2 SPACE}* "; 
n$;" *{2 SPACE}ist vollst{indig ausg 
edruckt!" 

FOR zz=zz TO &2:PRINT#8:NEXT:PRINT# 
8,CHR$ (18) ; TAB(33) "Datei -Gesamtausd 
ruck"5CHR$(12):22=@: IF z<zi THEN CL 
S5:605UB 1958:60SUB 2818: #$=g$:GOSUB 
558:G0T0 4518 ELSE g$="":G0T0 3978 


ur 


Untermen} >SICHERN < ##%* 
ELS 

PRINT:PRINT,"Untermen}{2 SPACE}>SIC 
HERN <":PRINT,STRING$ (21,”-") 
PRINT:PRINT,"Mit welcher Geschwindi 
gkeit sichern?" 

PRINT: PRINT,">1<{2 SPACE}1BBB Baud 
(SPEED WRITE 9)" 

PRINT:PRINT,">2<{2 SPACE}2B@B Baud 
(SPEED WRITE a.“ 

PRINT:PRINT,">3<{2 SPACE}34B@ Baud 
(TURBO SAVE)" 

f$=e$:GOSUB 620: IF p<i1 THEN 2288 EL 
SE IF p>3 THEN 4428 

IF p=1 THEN SPEED WRITE & 

IF p=2 THEN SPEED WRITE 1 

I PS THEN POKE %B8D1,2:POKE &B8D2 


ELS: f$="Datei {2 SPACE}#* "+n$+" #{2 
SPACE}wird gesichert'!"+i1$:605UB 558 


PRINT:OPENOUT n$ 
ET LES AERFAUTEDU ON SOBESEILOTER GTA 
‚1z 
FOR si=1 TO s:PRINT#9,b$ (si) :NEXT 
FOR z2=8 TO 18:PRINT#9,d1(22,1),dl 
z2,2)=2NEXT 
PRINT#9,b1,b2,b3,b4,b5 

s>5 THEN PRINT#9,b&ö 

s>& THEN PRINT#9,b7 

s>7 THEN PRINT#9,b8 

s>8 THEN PRINT#9,b9 

s>7 THEN PRINT#9,b1B 

s>1® THEN PRINT#9,bi1 

s>11 THEN PRINT#9,b12 

s>12 THEN PRINT#9,b13 

s>13 THEN PRINT#9,b14 

s>14 THEN PRINT#9.b15 
FOR z=1 TOD z1:60SUB 318 
PRINT#9 ,d1$:PRINT#9 ,d2$: PRINT#9 ,d3$ 
:PRINT#9 ,d4$: PRINT#9,d5$ 

s>5 THEN PRINT#9,d6$ 

s>s THEN PRINT#9,d7$ 

s>7 THEN PRINT#9,d8$ 

s>8 THEN PRINT#9,d9$ 

s>7 THEN PRINT#9,d18$ 

s>1B THEN PRINT#9,d11$ 

s>11 THEN PRINT#9,d12# 

s>12 THEN PRINT#9,d1I$ 

s>13 THEN PRINT#9,d14$ 

s>14 THEN PRINT#9,d15$ 
NEXT: CLOSEOUT: ds=8: PRINT: PRINT"Date 
i ist gesichert!" 
f$="Bitte Cassette f}r CAT-Ablauf z 
ur>ckspulen!":60SUB 55@:PRINT CHRS$( 
7)I:FOR t=1 TO 4BBU: NEXT 
f$="Cassette f}r CAT-Ablauf zur}ckg 
espult?"+h$:G0OSUB 558:60SUB 71@: IF 
t$<>"J" THEN 4768 
LOCATE 33,18:PRINT"CAT-Abbruch mit 
>ESC< und irgendeiner Taste" 
f$="Dateisicherung wird }berpr}ft!" 
+1 $:G0SUB 558:LOCATE 1,5:CAT 
IF pi=9 THEN 4868 ELSE 2200 


"#*##* RAM DISK schlie”en ##* 
f$="RAM DISK wirklich schlie*en?"+h 
$:G605UB 558:G0SUB 718: IF t$<>"J" TH 
EN 22908 ELSE IF t$="J" AND ds=B THE 
N 4858 

CLS: f$="Daten wurden nicht gesicher 
t!{2 SPACE}3Bitte Cassette einlegen! 
":G605UB 558: FOR t=1 TO 3088: NEX 
f$="Cassette eingelegt?"+h$:60SUB 5 
58:GOSUB 71@:IF t$="J" THEN p1=9:60 
TO 4540 ELSE 4858 

f$="RAM DISK ist geschlossen!{2 SPA 
CE}* #13 SPACE}Zum \ffnen --> IRAMD 
PEN,r:G0TO 18 < eingeben!":G0SUB 55 
8: !RAMCLOSE 

CLS:WINDOW 21,68,11,15:PEN B:PAPER 
1:CLS:LOCATE 11,3:PRINT"* #12 SPACE 
3E N D E{2 SPACE}I* #*" 

CALL &BB18:CLS:LOCATE 12,5:PRINT"IR 
AMOPEN,r:GOTO 18":PRINT CHR$ (38) 
END 


Listing 4. »Futter« für Bank 0 (Schluß) 


[FA4AB] 


CCD14] 
CBD22] 
L937E) 
[9B26] 
L189E) 


[4844] 
[87D6] 
[8AB2] 
1[59A8] 
[8D96] 
LASAE] 
[BEA6] 
[BBACI 
[76BA] 
£[D73A] 
[1A24] 


[CAF4] 
[7846] 


LE62C]I 
L9C3Q] 
[6938] 
L&D3E]I 


[7144] 


C[BS4A] 
[2D9IE]I 
LEFF2] 
[DEF8] 
[2SFE] 
[AFF2] 
LACF8] 
L8BAEI 


C4BCA] 
LABBA] 
13790] 
[4E9&6] 
[259C] 
L11F@)] 
[6444] 
[B238] 
[DOSE] 
[B644] 
[7C4A] 


CEDFB] 


[37BE] 


[BS5241 
ESF3EI 
[BS2A]I 
[FCSO] 
[3826] 


CE148] 
LEE2A] 


LBD&öCI 


[CAFE] 


[8BA4] 


[E244) 


[28D4] 


LABF8] 
[FB9B] 
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Diskettenmonitor-Programme gibt es viele. Aber 
nur eins ist so vielseitig wie »Superutility«. 


igentlich benötigt man zur umfassenden Handha- 
e bung seiner Diskettendaten ständig mehrere Utility- 

Programme: Ein Disketteneditor beugt oft dem Ver- 
lust wichtiger Daten vor, dient aber auch vielen anderen 
Zwecken. Und ein komfortables Werkzeug zur dateiweisen 
Bearbeitung des Disketteninhalts ist ohnehin wünschens- 
wert. Also - warum nicht alles zu einem leicht zu handha- 
benden Software-Paket schnüren? Aufgrund dieser Über- 
legung entstand das Programm »Superutility«, dessen 
Listing Sie hier finden. Eine Besonderheit kennzeichnet es 
darüber hinaus: Es ist komplett in der beliebten Sprache 
Turbo-Pascal geschrieben. 

Superutility besteht aus drei einzelnen Programmen, die 
Sie einzeln oder gemeinsam nutzen können. Aus Platz- 
gründen finden Sie in dieser Ausgabe zunächst den Datei- 
Editor, der selbständig lauffähig ist. Die Listings der ande- 
ren beiden Bestandteile des Paketes folgen im nächsten 
Schneider-Sonderheft. »Fileedit« arbeitet unter allen CP/M- 
Versionen, wenn es dort compiliert wurde. Aufgrund des 
begrenzten Speicherplatzes unter dem Standard CP/M 2.2 
der Schneider-Computer, aber auch weil die einzelnen Pro- 
grammteile auf gemeinsame Unterroutinen zugreifen, ver- 
teilt sich das Programm auf insgesamt 20 Listings, die zum 
Großteil aus Include-Dateien bestehen. Und da man das 
Rad eigentlich nicht ein zweites Mal zu erfinden braucht, sind 
viele davon der Turbo-Lader-Programmbibliothek entnom- 
men. Die Veröffentlichung dieser Routinen erfolgt mit freund- 
licher Genehmigung des Markt&Technik-Buchverlags. 

Fileedit ist ein komfortabler Disketteneditor. Sein beson- 
derer Bedienungskomfort ergibt sich aus dem Umstand, 


program File_editor ; 
const max_WA = 8 
1 


; 
30; 
HEXBIT.UTL 
STRINGS.UTL)} 
MENU.UTL 
CPM.UTL 
FENOO.UTL 
FENO1.UTL 
FENO2.UTL 
FEOO.UTL 
FDEDIT.UTL 
FEO1.UTL 
FEO2.UTL 
FEO3.UTL) 
FDSECOO.I 
FDSECO1.1 


FDSECO3.UTL 
FEO4 .UTL 
FEO5 .UTL 


VRR RRRRRRHTRRRHTR HR HRH 
HH HHHHHHHH HH HH HHHHH 


begin 
init 5 
repeat 
index := menul (menu_haupt, ' FILEEDIT 
Version 1.3 ', max_WA) ; 
case (index) of 


Das Super-Disketten-Tool 


daß er nicht sektor- sondern dateiorientiert arbeitet. Der 
Benutzer muß sich also nicht mühselig durch die Sektor- 
strukturen der Diskette »hangeln«, um die mitunter arg ver- 
streuten Teile einer Datei zu finden. Vielmehr sucht Fileedit 
automatisch die Bestandteile der Datei des vorgegebenen 
Namens zusammen und erlaubt ihre einfache Verände- 
rung. Nebenbei bietet es menügesteuert diverse Dateiope- 
rationen wie das Löschen, Umbenennen und Neuanlegen 
einzelner Dateien. 

Bei der Eingabe der Listings müssen Sie darauf achten, 
die einzelnen Teile unter dem richtigen Dateinamen zu 
speichern (steht jeweils unter dem Listing). Da Turbo- 
Pascal während der Compilierung auf die Routinen des 
entsprechenden Programms zugreift, müssen Sie die rich- 
tigen Teile gemeinsam auf die Compiler-Diskette kopieren. 

Auf die Handhabung brauchen wir dank der Bildschirm- 
orientierten Benutzerführung nicht näher einzugehen. Nur 
ein Punkt ist hier erwähnenswert: Istin den Bedienungshin- 
weisen auf dem Bildschirm die Rede davon, <ESC> zu 
drücken, ist damit natürlich (CP/M-typisch) die Tastenkom- 
bination <CTRL+[> gemeint. (Thomas Bullinger/ja) 


CPC 464/664/6128 


ST 
Kassette, Diskette 


er \ 


a) 
ı exec_file ; 
: kill_file ; 
: ren_file ; 
: directory ; 
: create_file ; 
: sector_file ; 
end ; 
until (index ( 3) ; 
des_init ; 
if (index = 2) 
then 
begin 
assign (datei, 'A:SUPERUTL.CHN') ; 
chain (datei) ; 
end 
else 
eirscr: 5 


end. Listing 1. FILEEDIT.PAS 


[ Deklarationen fuer 
type Work_String 
Work_String_array 


”.UTL” - Dateien] 

string [max_WS] ; 

array [1..max_WA] 

of Work_String ; 

array [1..max_RA] 

of real ; 
Listing 2. DECL.UTL 


Real_Array 
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onen 


function hex8 
(bite : byte) : Work_string ; 

const hex_array : array [0..15] of char 
= '0123456789ABCDEF' ; 

begin 

hex8 := hex_array[bite shr 4] 
+ hex_array[bite and $0F] ; 
end ; 


function hex16 
(word : integer) : Work_String ; 
const hex_array : array [0..15] of char 
= '0123456789ABCDEF' ; 
begin 
hex16 := hex8 (word shr 8) 
+ hex8 (word and $FF) ; 
end ; 


function Hex_Dec 
(hex : Work_string) : byte ; 


function nibble_convert 
(nibble : Work_String) : byte ; 
begin 
nibble := upcase (nibble) ; 
if (ord(nibble) ) $39) then 
nibble_convert := ord(nibble) - 55 
else 
nibble_convert := ord(nibble) - $30 ; 
end ; 


begin 
if (length (hex) = 2) 
then 
begin 
hex[1] := upcase (hex[1]) 


’ 
hex[2] := upcase (hex[2]) ; 
Hex_dec := 
(nibble_convert (hex[1]) x 16) 
+ (nibble_convert (hex[2])) ; 
end ; 
end ; 


funetion Hex_Dec16 
(hex: Work_string) : integer ; 


var k : integer ; 
begin 
search_string : 
fork :=i to jJ do 
if (pos(search, search_array[k]) () 0) 
then search_string := k; 
end ; 


procedure replace (var source : 
Work_string ; from,repl : 
Work_string ; 


var count : byte) ; 
var position : byte ; 
begin 
position := pos(from,source) ; 
while (position () 0) do 
begin 
delete (source, position, 
length(fron)) ; 
insert (repl, source, position) ; 
if (count ) 1) then 
begin 


begin 

if (length (hex) = 4) 

then 

begin 
hex[1] := upcase (hex[1]) ; 
hex[2] := upcase (hex[2]) ; 
hex[3] := upcase (hex[3]) ; 
hex[4] := upcase (hex[4]) ; 
Hex_Dec16 := 


(Hex_Dec (copy (hex, 1, 2)) x 256) 
+ Hex_Dec (copy (hex, 3, 2)) ; 
end ; 
end ; 
function clrbit 
(word: integer; n: byte): integer ; 


begin 
clrbit := word ; 
if (n) 15) 
then 
n := 15; 
elrbit := word and not (1 shln) ; 
end ; 


function setbit 
(word: integer; n: byte): integer ; 


begin 
setbit := word ; 
if (n) 15) 
then 
n, 3=15 5 
setbit := word or (1 shln) ; 
end ; 


function bitset 
(word: integer; n: byte): boolean ; 


begin 
bitset := false ; 
if (n) 15) 
then 
n: = 15; 5 


bitset := (word and (1 shi n)) = 1 shlin; 
end ; 


Listing 3. HEXBIT.UTL 


count := count - 1; 
position := pos(from,source) ; 
end 
else 
position := 
end ; 
end ; 


funetion cut 
(var st : Work_string ; delim : 
Work_string) : Work_string ; 
var position : byte ; 
begin 
eut := !t! 5; 
position := pos(delim, st) ; 
if (position () 0) then 
begin 
copy(st, 1, position-1) ; 
copy(st, position+length(delim), 
length(st)) ; 


Listing 4. STRINGS.UTL 


KAAPPYR 
CON\PUTER 
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function left_string 
(st : Work_string ; tu : 
byte) : Work_string ; 
begin 
if (tu ( length(st)) then 
left_string := copy(st, 1, tu) 
else 
left_string := st ; 
end ; 


function mid_string 


(st : Work_string ; from, len : 


byte) : Work_string ; 
begin 
mid_string := copy(st, from, len) ; 
end ; 


function right_string 
(st : Work_string ; num : 
byte) : Work_string ; 


begin 
if (num ( length(st)) then 
right_string := copy(st, 
length(st)-num+1, num) 
else 
right_string : 
end ; 


funetion instr 


function menul 


(menupos : Work_String_array ; 


title : Work_String ; 
n : byte) : integer ; 
var x,y,i,delta : byte ; 
ı char ; 


writeln ('(menu) 
Zu viele Positionen') 
else 
begin 
if (n) 10) 
then 
delta := 1 
else 
delta := 2; 
x := (80 - length (title)) DIV 2; 
y:=1; 
elrscr ; 
gotoxy (x,y) ; 
highvideo ; 
write (title) ; 
gotoxy (6, 24) ; 
write ('Auswahl durch (”X), (”E) 
oder Buchstaben, dann 
(RETURN) ') ; 
lowvideo ; 


y:=7-nDIV (2x (3 - delta)) ; 


x = 255 
for i := 1ton do 
begin 


gotoxy (x - 6, y+i x delta) ; 


(st : Work_String ; search : 
Work_String) : byte ; 
var gefunden : boolean ; 
i : byte ; 
begin 
if ((length(st) ( 255) 
and (length(search) ( 255)) 
then 
begin 
= 15 
gefunden := false ; 
while ((i (= (length(st) 
- length(search) + 1)) 
and (not gefunden)) do 
begin 
if (copy (st, i, length(search)) = 
search) 
then 
gefunden := true 
else 
i:i+1; 
end ; 
end ; 
if (gefunden) 
then 
instr :=i 
else 
instr : ; Listing 4. 
end ; STRINGS.UTL (Schluß) 


write (chr(64 + i):2, ' -) ', 
menupos[i]) ; 
end ; 
148 1% 
gotoxy (x, y + delta) ; 
highvideo ; 
write (menupos[i]) ; 
lowvideo ; 
chi tt; 
while (ch () °M) do 
begin 
read (kbd, ch) ; 
ch := upcase (ch) ; 
if (ch = "E) then 
begin 
gotoxy (x, y + i x delta) 
write (menupos[i]) ; 
1.35=1=1;5 
if (i (= 0) 
then 
I SEN; 
gotoxy (x, y + i x delta) 
highvideo ; 
write (menupos[i]) ; 
lowvideo ; 
end ; 
if (ch = ”X) then 
begin 
gotoxy (x, y + i x delta) 
write (menupos[i]) ; 
i :=i +1; 
if (i) n) 
then 
13= 1 5 
gotoxy (x, y + i x delta) 
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vral 
d) 


32 
ke) 


N 


highvideo ; 
write (menupos[i]) ; 
lowvideo ; 

end ; 

if ((ord(ch) - 64) in [1..n]) and 

((ord(ch) - 64) () i) 

then 

begin 
gotoxy (x, y+i x delta) ; 
write (menupos[i]) ; 
i := ord(ch) - 64 ; 
gotoxy (x, y+ ix delta) ; 
highvideo ; 
write (menupos[i]) ; 


| Folgende type- und var- Statements 
duerfen nicht modifiziert werden: } 


type FCBType_TL = record 
drive : byte ; 
name : array [1..8] of char ; 
typ : array [1..3] of char ; 
curr_ext : byte ; 
resi : byte ; 
res2 ı byte ; 
rec_cnt : byte ; 
fab : array [1..16] of byte ; 
end ; 
var fcb1 : FCBType_TL ; 
fcb2 : array [0..3] of FCBType_IL ; 
procedure set_dma_address (adr : integer) ; 
begin 
bdos ($1A,adr) ; 
end ; 
function first_Dir_entry (drv : byte; var 
search : Work_String) : boolean ; 
ver i : byte ; 
result : integer ; 
begin 
set_dma_address (addr (fcb2)) ; 
febl.drive := drv ; 
move (search[1], fcbi.name, 11) ; 
fillchar (febl.curr_ext, 23, 0) ; 
result := bdos ($11, addr(fcb1)) ; 
if (result () 255) then 
begin 
move (mem[addr(fcb2[result])+1], 
search[1], 11) ; 
search[0] := #11; 
for i := 1 to 11 do 
search[i] := chr(ord(search[i]) 
and $7F) ; 
first_dir_entry := true ; 
end 
else 
first_dir_entry : 
end ; 


false ; 


function next_dir_entry (var entry : 
Work_string) : boolean ; 
ver i : byte ; 
result : integer ; 
begin 
set_dma_address (addr (fcb2)) ; 


lowvideo ; 
end ; 
end ; 
menul :=j 
end ; 
end ; 


procedure set_menu_item 
(var menupos : Work_String_array ; 
TXt : Work_String ; 
: byte) ; 
begin 
menupos[n] 
end ; 


txt ; 
Listing 5. MENU.UTL 


result := bdos ($12, addr(fcb1)) ; 
if (result () 255) then 
begin 
move (mem[addr(feb2[result])+1], 
entry[1], 11) ; 
entry[0] := #11 ;; 
for i := 1 to 11 do 
entry[i] := chr(ord(entry[i]) 
and $7F) ; 
next_dir_entry := true ; 
end 
else 
next_dir_entry : 
end ; 


false ; 


function login_vector : 
begin 

login_vector 
end ; 


integer ; 


:= bdosHL ($18) ; 


function disk_param : 
begin 

disk_param 
end ; 


integer ; 


:= bdosHL ($1F) ; 


function current_disk : 
begin 
current_disk 


end ; 


byte ; 


:= bdos ($19) ; 


procedure set_ceurrent_disk (drv : byte) ; 
begin 
bdos ($OE, drv) ; 


end ; 


function current_user : 
begin 
current_user 


end ; 


byte ; 


:= bdos ($20, 255) ; 


procedure set_current_user (n : byte) ; 
begin 
if (n ( 16) then 
bdos ($20, n) ; 
end ; 


function 
begin 
io_byte 


io_byte : byte ; 
:= bdos (7) ; 


Listing 6. CPM.UTL 


PB? 
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end ; 


procedure set_io_byte (io_value : 
begin 

bdos (8, io_value) ; 
end ; 


function cpm_version : integer ; 
begin 

epm_version := bdosHL ($00) ; 
end ; 


function bios_plus 


(funktion, Akku,RegBC,RegDE,RegHL: 


integer): integer ; 

var BiosPB : record 

func, AReg : byte ; 
BCreg,DEreg,HLreg: integer ; 


type fenster_info = record 
geschlossen : boolean ; 
ursprung x : byte ; 
ursprung y : byte ; 
breite ı byte ; 
hoehe ı byte ; 
end ; 
modus_type = (normal, invers) ; 
const f_info : array [1..10] of 
fenster_info = 
(( geschlossen: true; 


ursprung x : 1; ursprung_y: 


1; breite: 0; hoehe: 0 ), 
( geschlossen: true; 


ursprung x : 1; ursprung_y: 


1; breite: 0; hoehe: O0 ), 
( geschlossen: true; 


ursprung x : 1; ursprung_y: 


1; breite: 0; hoehe: O0 ), 
( geschlossen: true; 


ursprung x : 1; ursprung_y: 


1; breite: 0; hoehe: O0 ), 
( geschlossen: true; 


ursprung x : 1; ursprung_y: 


1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_ y: 1; breite: 0; 
hoehe: 0:), ( geschlossen: 
true; ursprung_ x : 1; 
ursprung_ y: 1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung_x : 1; 
ursprung_y: 1; breite: 0; 
hoehe: 0 ), ( geschlossen: 
true; ursprung x : 1; 
ursprung_ y: 1; breite: 0; 
hoehe: O0 ), ( geschlossen: 
true; ursprung_x : 1; 
ursprung_y: 1; breite: 0; 
hoehe: 0 )) ; 
f_kein_Fehler 
f_falsches_Fenster 
f_schon_offen 
f_Fenster_zu 
f_falsches_x 
f_falsches_y 
f_falsche_breite 


non 


! 
AN Twmnm HM oO 
PER FERN 


end ; 
begin 
with BiosPB do 
begin 
funce := funktion ; 
AReg := Akku ; 
BCreg:= RegBC ; 
DEreg:= RegDE ; 
HLreg:= RegHl ; 
end; 
if (funktion in [9,16,20,22,25]) 
then 
bios_plus := BdosHL(50,Addr(BiosPB)) 
else 
bios_plus := Bdos(50,Addr(BiosPB)) ; 
end; 


Listing 6. CPM.UTL (Schluß) 


f_falsche_hoehe =7; 
f_Fehler : byte = f_kein_Fehler ; 
leerzeile : string [80] = ' 
'5 
function f_nummer_ok 
(fensternummer: byte) : boolean ; 


begin 
if (fensternummer in [1..10]) then 
f_nummer_ok := true 
else 
f_nummer_ok := false ; 
end ; 


function f_geschlossen 
(fensternummer: byte) : boolean ; 
begin 
if (f_info[fensternummer] ..geschlossen) 
then 


f_geschlossen := true 
else 
f_geschlossen := false ; 
end ; i 


function f_fehlerstring : Work_string ; 
begin 
case f_fehler of 
f_kein_Fehler 
f_fehlerstring := 'Kein Fehler! ; 
f_falsches_Fenster : 
f_fehlerstring := 'Falsches Fenster' ; 
f_schon_offen 
f_fehlerstring := 'Fenster schon offen! ; 
f_Fenster_zu - 
f_fehlerstring := 'Fenster geschlossen! ; 
f_falsches_x : 
f_fehlerstring := 'Falsche x- 
Koordinate' ; 
f_falsches_y : 
f_fehlerstring := 'Falsche y- 
Koordinate'! ; 
f_falsche_breite : 


f_fehlerstring := 'Breite zu gross! ; 
f_falsche_hoehe 2 
f_fehlerstring := 'Hoehe zu gross! 
else f_fehlerstring := "Unbekannter 
end ; Fehler! ; 
end ; Listing 7. FEN00.UTL 
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procedure f_locate 
(fensternumner: byte ; 
px : byte ; 
Py : byte ; 
modus : modus_type ) ; 
var x, y : byte ; 
begin 
f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternummer)) then 
begin 
if (f_geschlossen (fensternummer)) then 
f_fehler := f_Fenster_zu 
else 
begin 
if (px (= 
f_info[fensternummer].breite) 
then 
x := 
f_info[fensternummer] .ursprung_x 
+px -1 
else 
f_fehler := f_falsches_x ; 


if (py (= 


procedure f_cll 
(fensternumner: byte ; 
Py : byte ; 
modus : modus_type ) ; 
var blank_string : string[80] ; 
px : byte ; 
begin 
f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternummer)) then 
begin 
if (f_geschlossen (fensternumner) ) 
then 
f_fehler := f_Fenster_zu 


f_locate (fensternummer, px, py, 
modus) ; 
if (modus = invers) then 
highvideo 
else 
lowvideo ; 
blank_string := copy (leerzeile, 1, 
f_info[fensternummer].breite) ; 
write (blank_string) ; 
lowvideo ; 
end ; 
end 
else 
f_fehler := f_falsches_Fenster ; 
end ; 


procedure f_clw 
(fensternummer: byte ; 
modus : modus_type ) ; 
var index : byte ; 
Py : byte ; 
begin 
f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternummer)) then 
begin 
if (f_geschlossen (fensternumner)) 


f_info[fensternummer]..hoehe) 
then 
A 
f_info[fensternummer] .ursprung_y 
+py-1 
else 
f_fehler := f_falsches_y ; 
if (f_fehler = 0) then 
begin 
gotoxy (x, y) ; 
if (modus = invers) then 
highvideo 
else 
lowvideo ; 
end ; 
end ; 
end 
else 


f_fehler := f_falsches_Fenster ; 
end ; 


Listing 8. FENO1.UTL 


then 
f_fehler := f_Fenster_zu 
else 
begin 
for index := 1 to 
f_info[fensternummer].hoehe do 
begin 
py := index ; 
f_c1l (fensternummer, py, modus) ; 
end ; 
end ; 
end 
else 
f_fehler := f_falsches_Fenster ; 
end ; 
procedure f_open 
(fensternumnmer: byte ; 
px : byte ; 
Py : byte ; 
breite : byte ; 
hoehe ı byte ) ; 
begin 
f_fehler := f_kein_Fehler ; 
if (f_nummer_ok (fensternummer)) then 
begin 
if (f_geschlossen (fensternummer)) then 
begin 
if (px ) 80) then 
f_fehler := f_falsches_x ; 
if (py ) 24) then 
f_fehler := f_falsches_y ; 
if (breite ) (81 - px)) then 
f_fehler := f_falsche_Breite ; 
if (hoehe ) (25 - py)) then 
f_fehler := f_falsche_Hoehe ; 
if (f_fehler = 0) then 
begin 
f_info[fensternummer] .geschlossen 
:= false ; 
f_info[fensternummer] .ursprung_x 


Listing 9. FENO2.UTL 
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en > 
f_info[fensternummer] .ursprung_y 
= Dy; 
f_info[fensternummer] .breite 
:= breite ; 
f_info[fensternummer] .hoehe 
:= hoehe ; 
end ; 

end 

else 
f_fehler := f_schon_offen ; 
end 
else 
f_fehler := f_falsches_Fenster ; 
end ; 


procedure f_close (fensternumnmer : byte ) ; 
begin 
f_info[fensternummer] .geschlossen 
= true ; 
end ; Listing 9. FENO2.UTL (Schluß) 


type fehlercode = (keine_datei, 
kein_rename, datei_da) ; 
byte_feld = array [0..127] of byte ; 
const menu_haupt : Work_String_array = 
( ' Ende von FILEDIT', ' 
SUPERUTL aufrufen', 
' Datei ausfuehren' , 
Datei loeschen', 
' Datei umbenennen', ' 
Directory', 
' Datei neu anlegen', ' 
Datei bearbeiten') ; 
fen_infos = 5 
fen_darstellen 
fen_menu 
fen_eingaben 
fen_warten 
fen_fehler ; 
sector_nummer : integer = 0; 
sector_modus : (asc_modus, hex_modus) = 
asc_modus ; 
sector_index : byte = 0; 
var index : byte ; 
datei : file ; 
dateiname : Work_String ; 
sector : byte_feld ; 


procedure fehler 
(fehler_code: fehlercode) ; 
begin 
f_clw (fen_infos, normal) ; 
f_clw (fen_eingaben, normal) ; 
f_clw (fen_fehler, normal) ; 
f_locate (fen_fehler, 1, 1, invers) ; 
case (fehler_code) of 
keine_datei : write (' Datei ', 
dateiname, ' nicht vorhanden') ; 
kein_rename : write (' Umbennen in 
', dateiname, ' unmoeglich') ; 
datei_da : write (' Datei '!, 
dateiname, ' schon vorhanden') ; 
end ; 
lowvideo ; 
end ; Listing 10. FEOO.UTL 


procedure warten ; 
var eingabe : char ; 
begin 
repeat 
eingabe := 'N' ; 
f_cll (fen_warten, 1, normal) ; 
f_locate (fen_warten, 1, 1, invers) ; 
write (' Bitte Leertaste druecken') ; 
read (kbd, eingabe) ; 
until (eingabe = ' ') ; 
lowvideo ; 
end ; 


procedure init ; 

begin 
f_open (fen_infos, 1, 3, 80, 2) ; 
f_open (fen_darstellen, 1, 5, 80, 10) ; 
f_open (fen_menu, 1, 15, 80, 2) ; 
f_open (fen_eingaben, 1, 17, 80, 3) ; 
f_open (fen_warten, 1, 24, 80, 1) ; 
f_open (fen_fehler, 1, 23, 80, 1) ; 

end ; 


procedure des_init ; 

begin 
f_close (fen_infos) ; 
f_close (fen_darstellen) ; 
f_close (fen_menu) ; 
f_close (fen_eingaben) ; 
f_close (fen_warten) ; 
f_elose (fen_fehler) ; 

end ; 


procedure proc_titel (titel: Work_string) ; 
begin 

elrscr ; 

highvideo ; 

titel := ! ! + titel + ! '35; 

writeln (titel) ; 

lowvideo ; 
end ; 


Listing 11. FDEDIT.UTL 


function get_datei : boolean ; 

veri ı byte ; 

begin 
dateiname : 
f_locate (fen_eingaben, 1, 1, normal) ; 
write (' Dateiname ? '!) ; 
readln (dateinane) ; 
if (dateiname = ' ') 
then 
get_datei := false 

else 

begin 
if (mid_string(dateiname, 2, 1) () ':') 
then 

dateiname := 'A:' + dateiname ; 
for i := 1 to length (dateiname) do 
dateiname [i] := upcase 
(dateiname[i]) ; 

assign (datei, dateiname) ; 
[$I-] reset (datei) ; [$I+) 
get_datei := (ioresult = 0) ; 
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end ; close (datei) ; 
end ; f_clw (fen_eingaben, normal) ; 
f_locate (fen_eingaben, 1, 1, normal) ; 
procedure exec_file ; write (' Datei ', dateiname, ' loeschen 
begin ON 
proc_titel ('Datei ausfuehren') ; eingabe := ! '; 
if (get_datei) read (kbd, eingabe) ; 
then if (eingabe in ['j','J']) 
begin then 
des_init ; begin 
elrscer ; erase (datei) ; 
close (datei) ; f_clw (fen_infos, normal) ; 
execute (datei) ; f_clw (fen_eingaben, normal) ; 
end f_locate (fen_infos, 1, 1, invers) ; 
else writeln (' Die Datei ', dateiname, ' 
begin ist jetzt geloescht ') ; 
fehler (keine_datei) ; lowvideo ; 
warten ; end 
end ; else 
end ; f_clw (fen_eingaben, normal) ; 
warten ; 
procedure kill_file ; end 
var eingabe : char ; else 
begin begin 
proc_titel ('Datei loeschen') ; fehler (keine_datei) ; 
if (get_datei) warten ; 
then end ; 
begin end ; Listing 12. FEO1.UTL 


procedure ren_file ; write (' Laufwerk (A/B) ? ') ; 
begin readln (eingabe) ; 


proc_titel ('Datei umbennen') ; eingabe := upcase (eingabe) ; 
if (get_datei) if (eingabe in ['A','B']) 
then then 
begin begin 
close (datei) ; f_clw (fen_eingaben, normal) ; 
dateiname := ! !; f_locate (fen_infos, 1, 1, normal) ; 
f_locate (fen_eingaben, 1, 2, normal) ; write (' DIRECTORY fuer Laufwerk ', 
write (' Neuer Dateiname ? ') ; eingabe, '!:'!) ; 
readln (dateinanme) ; f_locate (fen_darstellen, 1, 1, 
if (dateiname () '') invers) ; 
then dateiname := '22222222222' ; 
begin laufwerk := ord (eingabe) - 64 ; 
if (mid_string (dateiname, 2, 1) if (first_dir_entry (laufwerk, 
() ':t) dateiname) ) 
then then 
dateiname := 'A:' + dateiname ; begin 
[$I-] rename (datei, dateinanme) ; end_of_dir := false ; 
[$I+ write (dateiname:16) ; 
if (ioresult () 0) repeat 
then if (next_dir_entry (dateinanme)) 
begin then 
fehler (kein_renanme) ; write (dateiname:16) 
end ; else 
end ; end_of_dir := true ; 
end ; until (end_of_dir) ; 
warten ; lowvideo ; 
end ; end 
else 
procedure directory ; write (' Directory leer ') ; 
var eingabe : char ; end 
end_of_dir : boolean ; else 
laufwerk : byte ; f_clw (fen_eingaben, normal) ; 
begin warten ; 
proc_titel ('Directory') ; end ; 
f_locate (fen_eingaben, 1, 1, normal) ; Listing 13. FE02.UTL 
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procedure create_file ; 
var ij, no_sektoren : integer ; 
begin 
proc_titel ('Datei neu anlegen') ; 
if (get_datei) 
then 
fehler (datei_da) 
else 
begin 
close (datei) ; 
f_locate (fen_eingaben, 1, 2, normal) ; 
write ('Wieviel Sektoren (0 = Kein 
Schreiben) ? ') 
readln (no_sektoren) ; 


function hex_asc_y (i: byte) : byte ; 
begin 

hex_asc_y := 2 + (i div 16) ; 
end ; 
funetion hex_x (i: byte) : byte ; 
begin 

hex_x := 5 + ((i mod 16) x 3) ; 
end ; 
funetion asc_x (i: byte) : byte ; 
begin 

asc_x := 55 + (i mod 16) ; 
end ; 


procedure cursor_rechts ; 
begin 
if (sector_index ( 127) 


then 
sector_index := sector_index +1; 
end ; 


procedure asc_editieren ; 
var eingabe : char ; 
begin 
repeat 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
eingabe := ! '!; 
read (kbd, eingabe) ; 
if (ord (eingabe) ( $20) 
then 
begin 
case (eingabe) of 
"D : begin 
ceursor_rechts ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
"S : begin 
cursor_links ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
“E : begin 
cursor_hoch ; 
f_locate (fen_darstellen, 


if (no_sektoren ) 0) 
then 
begin 
rewrite (datei) ; 
for i := 1 to no_sektoren do 
begin 
fillchar (sector, 128, $5A) ; 
blockwrite (datei, sector, 1) ; 
end ; 
close (datei) ; 
end ; 
end ; 
warten ; 
end ; Listing 14. FE03.UTL 


procedure cursor_links ; 
begin 
if (sector_index ) 0) 
then 
sector_index := sector_index - 1; 
end ; 


procedure cursor_hoch ; 
begin 
if (sector_index ) 15) 
then 
sector_index := sector_index - 16 ; 
end ; 


procedure cursor_runter ; 
begin 
if (sector_index ( 112) 
then 
sector_index := sector_index + 16 ; 
end ; Listing 15. FDSECOO.UTL 


asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
"X : begin 
cursor_runter ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
end ; 
end 
else 
begin 
sector[sector_index] := ord(eingabe) ; 
write (eingabe) ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
write (hex8 (ord (eingabe)):3) ; 
cursor_rechts ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
until (eingabe = "[) ; 


en; Listing 16. FDSECO1.UTL 
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procedure hex_editieren ; 
function hex_eingabe 
(erster_char : char) 
Work_string ; 
var hex_char char: 5 
hex_string : string [2] ; 
begin 
hex_eingabe := '00' ; 
hex_char := upcase (erster_char) ; 
if (hex_char in ['0'..'9', 'aA'..'F']) 
then 
begin 
hex_string := hex_char ; 
read (kbd, hex_char) ; 
hex_char := upcase (hex_char) ; 
if (hex_char in ['0'..'9', 'a'..'F']) 
then 
hex_eingabe := hex_string 
+ hex_char ; 
end ; 
end ; 
var eingabe : char ; 
hex_str : Work_string ; 
hex_zahl : byte ; 
begin 
repeat 
f_locate (fen_darstellen, 
hex_x(sector_index) + 1, 
hex_asc_y(sector_index), 
normal) ; 
eingabe := '! "; 
read (kbd, eingabe) ; 
if (ord (eingabe) ( $20) 
then 
begin 
case (eingabe) of 
“D : begin 
cursor_rechts ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
°"S : begin 
cursor_links ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 


procedure sector_editieren ; 

begin 
f_elw (fen_menu, normal) ; 
f_locate (fen_menu, 1, 1, normal) ; 
write ('"S - Links, "D - Rechts, 

“E - Hoch, ”X - Runter, ') ; 
write ('ESC - Quit (Ende)') ; 
sector_index := 0 ; 
case (sector_modus) of 

asc_modus : asc_editieren ; 
hex_modus : hex_editieren ; 
end ; 
end ; 
procedure sector_darstellen ; 
var i : byte ; 
begin 
f_locate (fen_darstellen, 1, 1, normal) ; 


hex_asc_y(sector_index), 
normal) ; 
end ; 
“E : begin 
cursor_hoch ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
“X : begin 
cursor_runter ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
end ; 
end 
else 
begin 
hex_str := hex_eingabe (eingabe) ; 
hex_zahl := hex_dec (hex_str) ; 
sector[sector_index] := hex_zahl ; 
write (hex_str) ; 
f_locate (fen_darstellen, 
asc_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
if (hex_zahl in [$20..$7E]) 
then 
write (chr (hex_zahl)) 
else 
write ('!.') ; 
ceursor_rechts ; 
f_locate (fen_darstellen, 
hex_x(sector_index), 
hex_asc_y(sector_index), 
normal) ; 
end ; 
until (eingabe = "[) ; 
end ; 


Listing 17. FDSECO2.UTL 


case (sector_modus) of 
asc_modus : write ('! ASC ') ; 
hex_modus : write (' HEX '!) ; 
end ; 
f_locate (fen_darstellen, 6, 1, invers) ; 
for i := 0 to 15 do 
write (hex8 (i):2, ' '); 
lowvideo ; 
for i := 0 to 127 do 
begin 
if (i mod 16 = 0) 
then 
begin A 
f_locate (fen_darstellen, 1, 


Listing 18. FDSECO3.UTL 
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hex_asc_y(i), invers) ; 
write (hex8 (i):3, ':'!) ; 
lowvideo ; 
end ; 
f_locate (fen_darstellen, hex_x(i), 
hex_asc_y(i), normal) ; 
write (hex8 (sector[i]):3) ; 
f_locate (fen_darstellen, asc_x(i), 


procedure f_sector_nummer_holen ; 
var sector_no_neu : integer ; 
begin 
f_clw (fen_eingaben, normal) ; 
f_locate (fen_eingaben, 2, 1, normal) ; 
write ('Sektornumner (0 - ', 
filesize(datei)-1, ') ? '); 
readln (sector_no_neu) ; 
if (sector_no_neu ( 0) 
then 
sector_nummer := filesize(datei) 
else 
begin 
if (sector_no_neu ) 
(filesize(datei)-1)) 
then 
sector_numner := O0 
else 
sector_nummer : 
end ; 
end ; 


sector_no_neu ; 


procedure f_letzter_sector 
(sector_no_alt: integer) ; 
begin j 
if (sector_no_alt ) 0) 
then 
sector_nummer := sector_no_alt - 
else 
sector_nummer : 
end ; 
procedure f_naechster_sector 
(sector_no_alt: integer) ; 


filesize(datei) 


begin 
if (sector_no_alt ( (filesize(datei)-1)) 
then 
sector_nummer := sector_no_alt + 1 
else 
sector_nummer := 0 ; 
end ; 


procedure find_string ; 
var eingabe : Work_String ; 
such_strg : Work_String ; 
such_index : integer ; 
val_fehler : integer ; 
function gleichheit 
(org_feld : byte_feld) : boolean ; 
var such_feld : array [O..max_WS] of 
byte absolute such_strg ; 
gleich : boolean ; 
ig : byte ; 
begin 


ig : ; 
while ((gleich) and (ig 
( length(such_strg))) do 


hex_asc_y(i), normal) ; 
if (sector[i] in [$20..$7F]) 
then 
write (chr (sector[i])) 
else 
write ('!.'!) ; 
end ; 
end ; Listing 18. FDSE03.UTL (Schluß) 


begin 
gleich := (org_feld[ig] 
such_feld[ig+1]) ; 
ig :ig+1 
end ; 
gleichheit := gleich ; 
end ; 


function insec 
(org_sec : byte_feld) : integer ; 
var such_sece : array [0..max_WS] of byte 
absolute such_strg ; 
gefunden : boolean ; 
ii ı byte ; 
hilfs_sec: byte_feld ; 
begin 
ii :=0; 
gefunden := false ; 
while ((ii (= (sizeof(org_sec) 
- length(such_strg))) 
and (not gefunden)) do 
begin 
move (org _sec[ii], hilfs_sec, 
length(such_strg)) ; 
gefunden := gleichheit (hilfs_sec) ; 
173er 
end ; 
if (gefunden) 
then 
insec := ii -1 
else 
insec := -1; 
end ; 


procedure string_suchen ; 
var gefunden : boolean ; 
find_index : integer ; 
begin 
gefunden := false ; 
while ((such_index ( filesize(datei)) 
and (not gefunden)) do 
begin 
seek (datei, such_index) ; 
blockread (datei, sector, 1) ; 
find_index := insec (sector) ; 
if (find_index () -1) 
then 
begin 
gefunden := true 
end 
else 
such_index := such_index +1; 
end ; 
if (gefunden) 
then 
sector_nummer := such_index 
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else 
begin 
write (GGG) ; 
seek (datei, sector_numner) ; 
blockread (datei, sector, 1) ; 
end ; 
end ; 
begin 
f_clw (fen_eingaben, normal) ; 
f_locate (fen_eingaben, 1, 1, normal) ; 
write (' Suchstring (max. ', max_WS, ' 
Zeichen) ? ') ; 
eingabe := '! ; 
readln (eingabe) 
if (eingabe () ' 
then 
begin 
such_strg := eingabe ; 
f_locate (fen_eingaben, 1, 2, normal) ; 


) 


procedure sector_bearbeiten ; 
var eingabe : char ; 
begin 
f_clw (fen_eingaben, normal) ; 
f_locate (fen_infos, 2, 1, normal ); 
write (dateinane) ; 
sector_darstellen ; 
repeat 
f_locate (fen_infos, 20, 1, normal) ; 
writeln ('Sektor: ', sector_numner:5) ; 
f_locate (fen_menu, 1, 1, normal) ; 
write ('A - ASCII, B - Sektornumnmer, 
E - Editieren, F - Suchen, ') ; 
writeln ('H - Hex,') ; 
write ('L - Letzter Sektor, 
N - Naechster Sektor, ') ; 
writeln ('S - Speichern, 

Q - Quit (Ende)') ; 
f_locate (fen_eingaben, 1, 1, normal) ; 
write (' Befehl ? ') ; 
eingabe := ! !; 
readln (eingabe) ; 
eingabe := upcase (eingabe) ; 
f_cll (fen_eingaben, 1, normal) ; 
case (eingabe) of 

'A' : begin 
sector_modus := asc_modus ; 
f_locate (fen_darstellen, 1, 

1, normal) ; 

write ('! ASC ') ; 

end ; 

'B' : begin 
f_sector_nummer_holen ; 
f_ell (fen_eingaben, 1, normal) ; 
seek (datei, sector_numner) ; 
blockread (datei, sector, 1) ; 
sector_darstellen ; 

end ; 

'E' : begin 
sector_editieren ; 
f_clw (fen_menu, normal) ; 
f_clw (fen_eingaben, normal) ; 

end ; 

'F' : begin 
find_string ; 
sector_darstellen ; 


write (' Ab Sektor (RETURN 
aktueller) ? ') ; 
eingabe := '!'! ; 
readln (eingabe) ; 
if (eingabe = '') 
then 
begin 
such_index := sector_numner ; 
string_suchen ; 
end 
else 
begin 
val (eingabe, such_index, val_fehler) ; 
if (val_fehler = 0) 
then 
string_suchen; 
end ; 
end ; 
end ; Listing 19. FE04.UTL 


f_clw (fen_eingaben, normal) ; 
end ; 
'H' : begin 
sector_modus := hex_modus ; 
f_locate (fen_darstellen, 1, 
1, normal) ; 
write (' HEX ') ; 
end ; 
'L' : begin 
f_letzter_sector (sector_nummer) ; 
seek (datei, sector_numner) ; 
blockread (datei, sector, 1) ; 
sector_darstellen ; 
end ; 
'N' : begin 
f_naechster_sector (sector_numner) ; 
seek (datei, sector_nummer) ; 
blockread (datei, sector, 1) ; 
sector_darstellen ; 
end ; 
'S' : begin 
seek (datei, sector_numner) ; 
blockwrite (datei, sector, 1) ; 
end ; 
'Q'! ° H 
else write ("GGG) ; 
end ; 
until (eingabe = 'Q') ; 
end ; 


procedure sector_file ; 
begin 
proc_titel ('Datei bearbeiten') ; 
if (get_datei) 
then 
begin 
sector_nummer := 0; 
blockread (datei, sector, 1) ; 
sector_bearbeiten ; 
end 
else 
fehler (keine_datei) ; 
close (datei) ; 
warten ; 
Listing 20. FE05.UTL 
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Im Spiel »Stone Runner« steuern Sie das kleine 
Männchen »Bity« durch Labyrinthe und versu- 
chen, möglichst viele der dort verstreuten Dia- 
manten einzusammeln. Doch Vorsicht - es lauern 
viele Gefahren. 


Problem«, denkt Bity bei sich, »das wär ja wohl 

gelacht.« So zieht er also los, die Diamanten zu 
holen. Hätte er gewußt, welch schwierige Aufgabe ihn 
erwartet, wäre er wohl nicht so leichtfertig gewesen. 

Das Gebiet, in dem Bity die Diamanten sammeln soll, 
sieht recht merkwürdig aus. Überall sind Löcher, in die Bity 
hineinfallen kann. Steckt er erst mal in einem, kommt er 
nicht wieder heraus. An anderen Stellen gibt es allerdings 
auch Hilfen für ihn. So darf er Leitern, Kletterseile und 
Sprungbretter benutzen, um Hindernisse zu überwinden. 
Auch hat er eine ätzende Flüssigkeit dabei, so daß er sich 
gegebenenfalls seinen Weg freiätzt. 

Es gibt jedoch noch weitere Probleme, deren Bewälti- 
gung Bity nicht gerade leichtfällt. Zum einen hat man ihm 
nur einen begrenzten Zeitraum zugestanden, um ein 
Gebiet nach allen Diamanten abzusuchen, zum anderen 
kostet ihn jeder Schritt Kraft, die er allerdings von Zeit zu 
Zeit wieder auffrischen kann. Um an die Diamanten zu 
gelangen, muß er sich jeden Schritt genau überlegen. 

Das Programm »Stone Runner« läuft auf allen CPCs und 
besteht aus vier Listings. Das Basic-Hauptprogramm fin- 
den Sie in Listing 1. Geben Sie es bitte mit Explora ein und 
speichern Sie es unter dem Namen »SR.BAS«. Da die Bild- 
schirmwiedergabe des Stone Runner auf die Verwendung 
eines Farbmonitors abgestimmt ist, sollten Sie für den 
Grünmonitor die Farbregister so ändern, wie es dort emp- 
fohlen ist. Die Listings 2, 3 und 4 enthalten Binärcodes. Der 
Maschinencode für zeitkritische Aufgaben (Bildaufbau 
etc.) steht in Listing 2. Der Bewegung der Spielfigur Bity die- 
nen die Sprite-Routinen aus Listing 3. Beide sind als DATA- 
Lader wahlweise mit Explora oder CPC einzugeben. 

Zum Abtippen des Listings 4 empfiehlt sich unbedingt 
unsere Eingabehilfe »CPC«, deren Listing und Bedie- 
nungsanleitung Sie ab Seite 87 dieser Ausgabe finden. 

Doch Sie können sich die Eingabe des sehr langen 
Listing 4 auch sparen, da es »nur« neun fertige Bilder als 
Spielfelder enthält. Zu diesem Zweck gehen Sie nach dem 
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Bild 3. Im fünften Level müssen Sie gezielt Energie sparen 


Knifflige Diamantensuche 


Start des Stone Runner mit »RUN ”SR”«in dessen Editor 
(Menüpunkt »Konstruieren«). Die Bilder 1 bis 6 zeigen 
sechs der genannten neun Spielfelder, damit Sie erst ein- 
mal einen Grundstock haben. Geben Sie diese Bilder 
nacheinander ein und speichern Sie sie (Menüpunkt »Spei- 
chern« und dann <B> für »Bilder« wählen) unter einem 
beliebigen Dateinamen (die Extension »PIC« vergibt der 
Computer automatisch). Bei der Eingabe des Listings mit 
CPC gehen Sie wie folgt vor. Starten Sie zunächst CPC. 
Wählen Sie dann <C > für»Code eingeben«. Die folgende 
Abfrage der Eingabeparameter überspringen Sie mit 
<ENTER> (oder <RETURN>). Für »Startnummer« 
geben Sie »1000« als Zeilennummer der ersten Zeile, für 
»Schrittweite« als Inkrement eine 1 ein. Nun erwartet CPC 
die Eingabe der Startadresse. Dabei handelt es sich um die 
erste vierstellige Hexadezimalzahl am Anfang des Listings 
(hier 61AO). Bei der Länge des Binärteils bieten sich kleine 
Arbeitspausen an. Dazu merken Sie sich die Adresse der 
Zeile hinter der zuletzt eingegebenen und unterbrechen 
die Eingabe mit <ESC>. Aus dem Hauptmenü wählen Sie 
dann <S> für»Schreibe Code« und speichern so das Tei- 
lergebnis. Wenn Sie später mit der Eingabe fortfahren wol- 
len, laden Sie erst den gespeicherten Teil mit <L> an 
seine Original-Ladeadresse (Sie erinnern sich: die erste 
Adresse des Listings, also 61A0 hex). Nun gehen Sie mit 
<C> wieder in den Eingabemodus, wählen jetzt als Start- 
adresse und Startnummer für die Eingabe aber die Werte, 
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Bild 4. Wer findet den kürzesten Weg? 
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die Sie sich beim Speichern als Ende gemerkt haben. Dort 
fahren Sie dann mit der Eingabe fort. Nachdem Sie diese 
Arbeit erfolgreich hinter sich brachten, speichern Sie den 
komplett eingegebenen Binärcode (wiederum mit <S>). 
Dabei fragt Sie der Computer jeweils nach zwei Parame- 
tern. Die Startadresse von »SR.PIC« (Listing 4) lautet 6147 
hex. Lassen Sie sich bitte nicht durch die Eingabe- 
Startadresse 61A0 hex in die Irre führen, 61A7 ist in diesem 
Fall korrekt. Die Endadresse als zweiter Parameter zum 
Speichern ist 821C hex. 

Nun muß Ihre Diskette mindestens die vier Dateien 
SR.BAS, SR.BIN, SR.SPR und SR.PIC enthalten (bei Ver- 
zicht auf die fertigen Bilder aus SR.PIC natürlich nur drei). 
Diverse Lade- und Speichervorgänge der Bilder und Best- 
zeiten machen Stone Runner für Kassettenbetrieb eigent- 
lich ungeeignet. Wollen Sie auf dieses tolle Spiel als Besit- 
zer eines CPC 464 ohne Diskettenlaufwerk trotzdem nicht 
verzichten (was angesichts seiner Qualitäten durchaus ver- 
ständlich ist), speichern Sie auf der Kassette zuerst 
Listing 1. Dahinter muß direkt der Maschinencode aus 
Listing 2 unter dem Namen »SR.BIN« gespeichert sein. Im 
Anschluß daran erwartet Stone Runner die Spriteroutinen 
aus Listing 3 unter dem Dateinamen »SR.SPR«. Als letztes 
speichern Sie die Levels aus Listing 4 (oder nach der Ein- 
gabe im Editor) unter dem Namen »SR.PIC«. Auf die Nut- 
zung der »Hightimes«-Liste sollten Sie im Kassettenbetrieb 
jedoch verzichten, da Sie sonst durch andauerndes Spei- 
chern und Laden kaum noch zum Spielen kommen. 

Jetzt ist der freudige Zeitpunkt erreicht, an dem Sie für 
Ihre Fleißarbeit belohnt werden. Starten Sie also Stone 
Runner mit »RUN”’SR”«. Im Menü bewegen Sie den Cur- 
sor (invertierter Balken) mit einem Joystick auf»Laden« und 


Bild 5. Der Energiebonus allein hilft nicht viel... 
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drücken die Feuertaste. Die Frage 

(B)ilder oder (H)ightimes laden? 

beantworten Sie mit <B>. Als Dateinamen geben Sie nun 
»SR« ein. Eine weitere Frage erscheint: 

Alte Bilder löschen (j/n) ??? 

Mit Ihrer Antwort entscheiden Sie, ob Stone Runner die 
Bilder anstelle der Bilder im Arbeitsspeicher lädt (<J>) 
odersieanvorhandenealsweitereLevelsanhängt(<N>). 
Da sich zu diesem Zeitpunkt ja noch keine Bilder im RAM 
befinden, wählen Sie natürlich <J>. Nach einem kurzen 
Augenblick erscheint wieder das Menü. 

Spielen funktioniert naturgemäß nur, wenn Sie vorher 
eine Bild-Datei mit dem Menüpunkt »Laden« geladen oder 
mit dem Editor Bilder konstruiert haben. Bewegen Sie den 
Joystick, um sich eins der Bilder auszusuchen und drücken 
Sie zum Spielen die Feuertaste. 

Ihnen stehen anfangs sieben Versuche frei, um Bity alle 
Diamanten einsammeln zu lassen. Erst dann gelangen Sie 
ins nächste Bild (Level). Meist gibt es nur einen einzigen 
Weg, das Level zu überwinden. Stürzt Bity ab und fällt 
dadurch tiefer als sechs »Stockwerke«, oder berührt er eine 
der herumliegenden Bomben, ist einer der Versuche ver- 
tan. Ebenso kostet eseine Chance, wenn Bitys Zeitzu Ende 
ist. Sie steuern Bity mit einem normalen Joystick nach links 
und rechts. Nur auf Leitern kann er sich sowohl nach oben 
als auch nach unten bewegen. Abgründe überwindet er mit 
Hilfe der waagerechten Kletterstangen; Bity hält sich auto- 
matisch daran fest. Er läßt sie erst los, wenn Sie den Joy- 
stick nach unten ziehen. Die Steine links und rechts unter 
sich ätzt er weg, wenn Sie den Feuerknopf festhalten und 
den Joystick gleichzeitig in die entsprechende Richtung 
drücken. Das funktioniert indes nur, wenn Bity noch über 
genug Energie verfügt. Einmaliges Atzen kostet ihn zehn 
Energiepunkte. Wenn Bity stürzt, verliert er pro Stockwerk 
ebenfalls einen Energiepunkt. Ebenso unangenehme 
Effekte beinhalten die Steine mit Reißnägeln. 

Sprungfedern schleudern Bity automatisch in die ent- 
sprechende Richtung. An Seilen kann Bity nur nach unten 
klettern. Punkte erntet Bity durch Sammeln der Diamanten. 
Hateralle Diamanten eines Levels bei sich, bekommt er die 
verbleibenden Zeiteinheiten auf seinem Punktekonto gut- 
geschrieben. Außer den Diamanten gibt es in einigen Bil- 
dern auch einen Energie- und/oder Zeitbonus. Eine solche 
»Kraftpille« (großes »E«) füllt das Energiekonto um 50 Ein- 
heiten auf. Der Zeitbonus (eine stilisierte Uhr) ist um so 
höher, je geringer die Restzeit ist; es lohnt sich also, etwas 
Geduld aufzubringen und zu warten. Ihre Eintragungen in 
die Tabelle der besten Zeiten (»Hightimes«) speichern Sie 
nach dem Spiel über den Menüpunkt »Speichern«, Unter- 
punkt »(H)ightimes«. Diese Tabelle wird bei jedem weiteren 
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Spiel fortgeführt, wenn Sie vor dem Beginn des ersten 
Spiels nach dem Programmstart und dem Laden der Bilder 
die alten Bestzeiten laden. 

....n Haben Sie diesen Menüpunkt gewählt, 
erscheint in der untersten Bildschirmzeile eine Menüleiste, 
die sämtliche Spielelemente und die Punkte »Clear«, »M. 
Set« und »Ready« zeigt. Drücken Sie nun den Feuerknopf 
und Sie sehen ein Fadenkreuz, mit dem Sie eins der Ele- 
mente auswählen. Bewegen Sie das Fadenkreuz an die 
gewünschte Bildschirmposition und drücken Sie wiederum 
den Feuerknopf, erscheint das Element. Um in das Aus- 
wahlmenü zurückzukehren, brauchen Sie bloß die Leerta- 
ste zu drücken. Wenn das Bild fertig ist, müssen Sie nur 
noch Bity hineinsetzen. Dazu positionieren Sie das Faden- 
kreuz an der gewünschten Stelle, drücken die Leertaste 
und aktivieren mit dem Joystick den Menüpunkt »M. Set«. 
Dann wählen Sie den Menüpunkt »Ready«. »Ready« funk- 
tioniert nur, wenn das Spielfeld mindestens einen Diaman- 
ten enthält und Bitys Position markiert ist. 

Editieren. Sie sehen auf dem Monitor das erste Bild. 
Wählen Sie durch Bewegung des Joysticks ein Bild zur 
Bearbeitung. Der Unterschied zum Konstruieren liegt 
darin, daß Sie ein vorhandenes Bild verändern. 
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'*+STONE-RUNNER # 
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[&2EC)I 
£[351A] 
LEAF®] 
[9816] 
[2886] 
[B6ö1A] 


"written by Thomas Stein 


IF PEEK(%&AQUB)<>1 THEN SYMBOL AFTER 
256:MEMORY 24998: L0AD" !'sr.bin":CAL 
L &LABBB: LOAD" 'sr.spr":FOKE 24999,8: 
CLEAR [C376] 
z CBA41E] 
s C[B920] 
‘Variablen %&% Funktionen [4858] 
e [8F12] 
bilder=24999:maxbilder=16:ENV 1,14, 
1,10:ENV 2,14,-1,1@8:ENV 3,190,-2,2: 
ENT 1,188,-2,23ENV 4,14,-1,5,14,1,3 
:ENT 2,14,-5,3,14,5,3:ENV 5,14,-1,3 
ıENV 54,7,-1,1,18,8,1:ENT 3,7,5,1:EN 
vV7,7,-1,1,18,8,1:DIM topSt(maxbild 
er ,5) ,‚topS(maxbilder,5). 
DEF FNadr (x)=bilder+1i1+(x-1)*923:DEF 
FNpadr (1,x,y)=FNadr (1) +x/2+y/8%*40 
DEF FNz$(z,1)=STRING$(1-LEN (STR#$(z) 
)+1,"B")+MID$(STR£(zZ),2) 
IF PEEK(6)=128 THEN DEF FNvers#$(bil 
d,platz)=DEC$((topStbild,platz),"## 
.##")+"sec" ELSE DEF FNvers#t(bild,p 
latz)=DEC#(topS(bild,platz) ,"##.##" 
)+"sec" 
DEF FN1$t1)=STRING$(1,249)+" ":DEF 
FNtop$(bild,platz)=topSf(bild,platz 
)+STRINGF (14-LEN(topS$(bild,platz)) 
.".") +CHR$ (9) +CHR$ (9) +FNvers$ (bild, 
platz) 
DEF FNscreen (x,y)=48000+y*5+x/2 
DIM um$ (3) zum$ (1)="CLEAR" :um& (2)="M 
.SET"zum$(3)="READY":FOR i=1 TO max 
bilder:FOR j=1 TO S:topS#t(i,j)="?.? 
.?"stopS5(i,j)=®:NEXT j,i:names="ABC 
DEFGHIJKLMNOPORSTUVWXYZ. ! "+CHR£ (242 
yarızn 
DIM m$£(7):RESTORE 1188:FOR i=1 TO 7 
:READ m$(i) :NEXT:rahmen#=CHR$ (150) + 
STRING£ (12,154) +CHR$ (156) :FOR i=1 T 
O 13:rahmen$=r ahmen$+CHR$ (149) +STRI 
NG$ (12,32) +CHR$ (149) :NEXT:rahmen$=r 
ahmen$+CHR$ (147) +STRING$ (12,154) +CH 
R# (1553) :ende$="GAME-DVER" 
DATA SPIELEN,KONSTRUIEREN,EDITIEREN 
‚TEST,SPEICHERN,LADEN,ENDE 


[BAF6] 
[33B8] 
[C1BE] 


[BB4E] 


[&A82] 
[B722 


[SA3B]I 


[27C0] 
[9514] 
"Bildschirm & Farben initialisieren 

£[D272] 
. [B718] 
MODE 1:BORDER B: INK 8,2: INk 1,26:IN 
K 2,16: INK 3,18: ’ bei Gruenmonitor 
auf > INK 2,22 < abaenderen !!! 
WINDOW 1,408,24,25:WINDOW#1,14,27,6, 
28:WINDOW#2,1,48,1,23:PAFER#1,1:PEN 
#1,8:PAPER#2,8:PEN#2,1:PEN 1:FAPER 
["] [Z2FAA]I 


CBBDC] 


Abspeichern. Speichert die Bilder im Arbeitsspeicher 
auf dem angeschlossenen Datenträger. Als Eingabe des 
Dateinamen akzeptiert Stone Runner maximal acht Zei- 
chen ohne Punkt. Die Extension ».PIC« hängt der Compu- 
ter zur Kennzeichnung automatisch an. 

Test. Spielen Sie ein editiertes Bild probehalber, um zu 
sehen, ob es zu meistern ist. 

Laden. Lädt gespeicherte Bilder in den Arbeitsspeicher 
des Computers. Geben Sie auf die Frage nach dem 
Löschen der alten Bilder <N> ein, werden die neuen Bil- 
der an die schon im Speicher befindlichen angehängt. 

(Thomas Stein/hf/ja) 
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Besonderes: 


Joystick-Steuerungen 


[921E] 
"Menue [2714] 
% [9422] 
z=B:WINDOW#1,14,27,6,28:PRINT#1,rah 
men$; :WINDOW#1,15,26,7,19:FOR i=1 T 
O 7:LOCATE#1,1,i1*2-1:PRINT#1 ,m$ (id): 
NEXT:wahl=1 
LOCATE#1 ,1,wahl#2-1:PEN#1,3:PRINT#1 
‚m$ (wahl) :PEN#1,8 
z=z+1:jo=JOY(B): IF z>2808 THEN 3658 
ELSE IF jo=B THEN 1388 
IF (jo AND 1)=1 AND wahl<>i1 THEN FO 
R p=1 TO 1988:NEXT:LOCATE#1,1,wahl#2 
-1:PRINT#1 ,m$ (wahl ) zwahl=wahl -1:G60T 
0 1298 
IF (jo AND 2)=2 AND wahl<>7 THEN FO 
R p=1 TO 188:NEXT:LOCATE#1,1,wahl#2 
-1:PRINT#1 ,m$ (wahl ) :wahl=wahl+1:G0T 
0 1298 
IF (jo AND 16)<>16 THEN 1388 
WHILE JOY(@)<>B:WEND 
ON wahl GOTO 24988,1930,1990,2050,21 
00,2189,2278 [71B2] 
" [BS522] 
L[4AD4] 
CBB26] 


1[C958] 
[B918] 


[CFEE] 
[19B2] 
E1DCA] 


[1662] 


[A670] 
EFD9CI 
CBBOC]I 


"Unterprogramme 


"SUB: Bild Nr.level loeschen 
nachruecken) 


(ohne 


FOR i%#=FNadr (level)TO FNadr (level+i 
)-1:POKE i%,B:NEXT:FOR i=i TO S:top 
5# (level ,i)="?.?.?":topStlevel,i)=® 
:NEXT:RETURN [FiIEE)] 
. £[971C] 
"SUB: Bild Nr.level loeschen 
achruecken) 


(mit n 

[OB8E)I 

[9528] 
IF level=PEEK(bilder)THEN RETURN EL 
SE :ıT,FNadr (level+1) ,FNadr (level), ( 
PEEK (bilder) -level)*923:FOR i=level 
TO FEEK(bilder)-1:FOR j=1 TO S:top 
5#(1,j)=topS#(i+1,j):topS(ti,j)=topS 
(i+1,J):NEXT j,i:RETURN {D84A] 
" [9324] 
"SUB: Bildnr. eingeben LEB7A] 
® [E128] 
CLS:PRINT:PRINT TAB(18)"Bildnr.:@1" 
:level=1 
LOCATE 24,2:PRINT FNz#£(level,2):CLS 
#2: !A,FNadr (level) ‚42000 
IF INKEY(47)<>-1 THEN level=2:RETUR 
N ELSE jo=JOY(@):IF jo=® THEN 1518 
IF ((jo AND 1)=1 OR (jo AND 4)=4)AN 
D leveli>1 THEN level=level-1:60T0 
1508 
IF ttjo AND 2)=2 OR (jo AND 8)=8)AN 
D level{>PEEK(bilder) THEN level=le 
vel+1:60T0 1598 [8720] 
1548 IF (jo AND 16)<>1& THEN 1518 [32A8] 
1558 WHILE JOY (9) <>@:WEND: RETURN [6646] 
15608 [9526] 
1578 [8B58] 


[196A] 


CB94] 


[9CIE) 


[BEAB] 
1538 


"SUB: Bildnr.: level editieren 


Listing 1. Im Basic-Hauptprogramm finden Sie sich dank der Kommentierung sicher leicht zurecht 
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1588 
1590 


1591 


1680 


1618 
1628 
1630 
1640 
1658 
1668 
1678 
1688 


1690 
1708 


1718 
1720 


1738 
1740 
1750 
1768 


1770 
1788 


1790 


1868 


CLS:FOR i=® TO 11::F,1*2,192,1,8:NE 
XT:LOCATE 14,2:FRINT umf(1)" "um$(2 
.” "um& (3); :LOCATE 34,1: PRINT"BILD" 
:LOCATE 35,2:PRINT FNz$ (level ,2)5 
CLS#2: !A,FNadr (level), AQDDB: wahl =B: 
xp=B: yp= 176: PLOT 614, &, 1:DRAWR 28,8 
:DRAWR 8,28: DRAWR -20 ,d: DRAWR 0,-28 
:flag=@ 

IF wahl<12 THEN LOCATE wahl+1,1:PRI 
NT CHR$(Z41)ELSE LOCATE 14+(wahl-i12 
)*6,2:PRINT CHR$ (24) um$ (wahl-11) CHR 
$(24); 

FOR p=1 TO 198:NEXT 

Jo=JOY (B): IF jo=B THEN 1620 

IF wahl<12 THEN LOCATE wahl+1,1:PRI 
NT" "ELSE LOCATE 14+(wahl- 12)*6,2: 
RINT um$ (wahl-1i1); 

IF (jo AND 8)=8 AND wahl<>14 THEN w 
ahl=wahl+1:G60T0 1688 

IF (jo AND 4)=4 AND wahl<>@ THEN wa 
hl=wahl-1:G60T0 1688 

IF (jo AND 16)<>1& THEN GOTO 1688 
WHILE JOY(B)<>B: WEND 

IF wahl<12 THEN :!P,77,188,wahl ELSE 
ON wahl-11 GOTO 1788,1820,185® 
'P,xp,yp,25:FOR p=1 TO 1®®:NEXT 

IF INKEY(47)<>-1 THEN GOTO 1688 ELS 
E jo=JOY(B):IF jo=@® THEN 1788 
ıP,xp,yp,PEEK(FNpadr (level ,xp,yp)) 
IF (jo AND 16)=1& THEN POKE FNpadr ( 
level ,xp,yp) ‚wahl: !iP,xp,yp,wahl 

IF (jo AND 1)=1 AND yp<>@ THEN yp=y 
-8 


p ; 

IF (jo AND 2)=2 AND yp“>176 THEN yp 
p+8 

IF (jo AND 8)=8 AND xp“>78 THEN xp= 

xpt+t2 

IF (jo AND 4)=4 AND xpi>® THEN xp=x 


P- 

Boro 1698 

PEN 2:LOCATE 14,1:PRINT"Bild loesch 
en [LJ/N]":PEN 1:a$="":WHILE atl>"j" 
AND a$>"n":a$=LOWER$ (INKEY$) :WEND: 
LOCATE 14,1: PRINT SFC(2@): IF af="n 

THEN 1688 

FEN 2:LOCATE 14,1:FRINT"Weitermache 
n LJ/N PEN 1:a$="":WHILE a$<i>"j"A 
ND a$<>"n"AND afs« >CHR$ (32) : a$=LOWER 
£CINKEY$) :WEND:LOCATE 14,1:PRINT SP 
C(2@):IF a$=" "THEN 1608 

IF a$="j"THEN GOSUB 1418:CL5#2: ıA,F 
Nadr (level) ‚423020:G0T0 1698 

GOSUB 1458: POKE bilder „MAX (B,PEEK(b 
ilder)-1i):level=FEEK (bilder) :RETURN 


»=FEEK (FNadr (level) +928) : y=PEEK (FNa 
dr (level) +921)::FP,x,y,FEEK(FNpadr (1 
evel,x,y)) 
'P,xp,yp,12:PEN 2:LOCATE 14,1:PRINT 
"Maenn. setzen [LJ/N]":a#$="":WHILE a 
<>" J"AND a$s< >"n":a$=L_LOWER$ (INKEY$) 
:WEND:FEN 1:LOCATE 14,1:FRINT SPC (2 
B): IF as="n"THEN !P,xp,yp,PEEK(FNpa 
dr (level,xp,yp)): 
POKE FNadr (level) +928,xp:POKE FNadr 
(level)+921,yp:flag=1:60T0 1688 
IF flag=® THEN LOCATE 14,1:PRINT CH 
R$ (24) CHR$(7)" erst Maenn.setzen "C 
HR£(24);3:FOR p=1 TO 19898: NEXT:LOCAT 
E 14,1:PRINT SFC (28):6G0T0 1608 
LOCATE 14,1:FEN 2:PRINT"Fertig LJ/N 
27 :PEN 1: ä$=""WHILE at<>"j"AND a$« 
="n"2a$3=LOWER$ (INKEY$) :WEND: LOCATE 
14,1: PRINT SPC(2B): IF a$="n"THEN GO 
TO 1608 
er=@:FOR i=FNadr (level) TO FNadr (le 
vel)+919: IF PEEK(i)=2 THEN cr=cr+i 
NEXT: IF cr=® THEN LOCATE 14,1:PRINT 
CHR$(24)" min.i Edelstein "CHR#F(24 
):FOR p=1 TO 1BBA:NEXT:LOCATE 14,1: 
PRINT SPC (28):G0TO 1698 
FOKE FNadr (level ) +922,cr :RETURN 
"Interrupt fuer Zeit 
ze=ze-1:PLOT ze*2+489,8,1:DRAWR Q@,1 
4: IF ze=® THEN xyz=REMAIN (B) :RETURN 
ELSE RETURN 
FOR pause=1 TO 188:NEXT:RETURN 


"KONSTRUIEREN 


IF PEEK(bilder)=maxbilder THEN 1288 
ELSE level=PEEK(bilder)+1:POKE bil 

der ,‚level:G0O5UB 1418 

GOSUB 1590 

GOTO 1288 


"EDITIEREN 


IF PEEK(bilder)=® THEN GOTO 1288 EL 
SE GOSUB 1490: IF level=@ THEN 1288 


[DF2A] 


[CESE] 


£[34D8] 


LE7FA] 
[7474] 
[73B2]1 
[82D6] 
[28B8] 
[A844] 
[AE6Q] 
[7818] 


[FöFC]I 
[8ABB] 


[2A24] 
L[449A] 


[6896] 
tEBFE] 
L1EDECI 
[0C85] 


[O7FE] 
[B830] 


[C8SC] 


[&CF4] 
LACFE] 


LEBCA] 


UFDYE] 


[8052] 
[C6FE] 


[7694] 


[8DF6] 
[F236] 


[7512] 
[39B@] 
[S5@D8] 


[SC3E] 
[6480] 
[C928] 
[447C] 

[C22C] 


[942E] 
[BDCB] 
L4E2C) 
[9634] 
[97244] 
[9914] 


[C6F4] 


2148 


2490 


25808 


2518 


GOSUB 15978 
GOTO 1288 


"TEST 


IF PEEK(bilder)=8 THEN GOTO 1288 
testflag=1:G0SUB 1498: IF level=B TH 
EN GOTO 1288 ELSE GOTO 2468 


"ABSPEICHERN 


CLS:PRINT" (B)ilder oder (H)ightime 
s abspeichern?":a$="":WHILE INKEY$#< 
zZ""zWEND:WHILE a$="":a$=LOWERF (INKE 
Y$)zWEND: IF af“ >"b"AND a#< >"h"THEN 
1288 
IF a$="h"THEN CLS:GDOSUB 2318: IF t«t 
£=""THEN 1288 ELSE OFPENOUT" !"+tat$+ 
".txt":FOR i=1 TO maxbilder:FOR j=1 
TO S:WRITE#9,top5$(i,j) ,topS(i,j): 
NEXT j,i:CLOSEOUT:GOTO 1288 
IF FPEEK(bilder)=@ THEN GOTO 1288 
WHILE INKEY$“ >"":WEND:CLS:GOSUB 231 
@: IF txt#=""THEN 1288 
SAVE" !"+txt$+".pic",b,bilder ,i+FEEF. 


(bilder) *923:G0T0 1288 
"LADEN 
CLS:FRINT" (B)lilder oder (H)ightime 


s laden?":a#$="":WHILE INKEY$<>"":WE 
ND:WHILE a#="":a#=_LOWER# (INKEY$) :WE 
ND: IF at“>"b"AND at{>"h"THEN 1280 
IF a$="h"THEN CLS:GOSUB 2310: IF txt 
£=""THEN 1288 ELSE OFENIN"!"+tRxt$+" 
.txt":FOR i=1 TO maxbilder:FOR j=1 
TO 5: INPUT#9,topS5$(i,j),topS(i,j):N 
EXT j,i: ELOSEIN: 60T0 1288 

WHILE INKEY#F< :WEND:CLS:GOSUB 231 
B@: IF LEN(txt#)>8 OR txt#=""THEN 128 
® 


FRINT"Alte Bilder loeschen (j/n) ?? 
?"zas="":WHILE a$2>"j"AND asi>"n"AN 
D a$s« »CHR# (32) :a$=LOWER# (INKEY$) :WE 
ND: IF at="j" THEN LOAD" '!"+txt#+".pi 
c",bilder:GOTO 2268 

IF a$=CHR#&(TZ)THEN GOTO 1288 ELSE 1 
adr=bilder+1+PEEK (bilder ) #925: LOAD" 
I"+txt$+".pic",ladr:banz=FPEEK(ladr) 
sı T,ladr+1, ladr, banz*923:FOKE bilde 
rz PEEK (bilder) +banz:GOTO 1280 

FOR i=1 TO PEEKtbilder!:FOR j=1 TO 

S:topSf(1,j)="?.?.?"stopS(i,j)=@:NE 
XT 3,1:G60T0 1288 


"ENDE 


WHILE INEEY$<>"":WEND:MODE 2:PRINT" 
Neustart mit RUN moeglich"”:END 


"Filename eingeben 


FRINT"Filename: ";:txt+="" 

FRINT"_"CHR$ (8); :a$="":WHILE (a$i"® 
"OR at>"Z")AND a$<>CHRE(13)AND afı“ 
CHR$ (127) : a$=UPFER$ ( INKEY$) :WEND 

IF a$=CHR£ (13) THEN PRINT CHR$ (32): 
RETURN 

IF a£=CHR$ (127) THEN IF txt#t="" THE 
N FRINT CHR$(7);:6G0T0O 2358 ELSE txt 
=LEFTF(txt$,LEN(txt$)-1) PRINT CHR 
# (32) CHR#$ (B)CHR# (8) ;:GOTO 2358 

IF LENttxt$)=8 THEN FRINT CHR&$ (7) 5: 
G0T0 2358 

FRINT as; :txtt=txt$+at:60T0 2358 


"SFIELEN 


IF PEEK(bilder)=® THEN GOTO 1288 
lev=1:G605SUB 1498: score=®:left=7:tes 
tflag=® 
"Hier einsprung bei Test 
FEN B:FAPER 1:CL5S:PRINT" FUNKTE<SSL 
EBEN<2>BILD ENERGIE ZEIT:":IF testf 
lag=B THEN LOCATE 1,2:FRINT"@BODODOHDR 
8 "FNl#$(left) 
"Hier einsprung bei neuem Level 
fall=B: jump=®:en=188: ze=48:LOCATE 1 
9,2=:PRINT FNz$ (level ,2):LOCATE 25,2 
:FRINT FNz$(en,3):LOCATE 31,2:FRINT 
SPC(18);:FOR i=® TO ze*2-2 STEF 2: 
FLOT i+480,8,2:DRAWR B,14:NEXT 
CLS#2: !iA,FNadr (level) ‚489888: xp=PEEK. 
(FNadr (level) +928) : yp=PEEK (FNadr (le 
vel)+921):cr=PEEK (FNadr (level ) +922) 
::6,%Xp,yp,22:50UND 1,8,8,8,1,8,1::P 
»*P»YP,27,3:WHILE SQ(1)<>4:WEND: ıX, 
XxP,YP,22,Xxp,yp,12:man=12:m=® 
=FRE(""):EVERY 188 GOSUB 1918:60 


[”] 
IF ze=®8 THEN GOTO 2918 ELSE IF INKE 


[3CA8]I 
[6D14] 
[951C] 
[6B9E] 
[9720] 
[5702] 


[2BD4] 
[BC14] 


[265E] 
[9A18] 


[6QB0) 


T1EAQ] 
E77FEI 


[B420] 
[FQ9B] 
[E424] 


L3SAEE] 
TCBE16] 


CBAAE] 


[2024] 


[9B32] 
CB2B4] 


[655A] 


[8212] 
[9724] 
LA9ISE] 
LES28] 


[CFA4] 
[C11A] 


LEDFE] 
[5904] 
EF7CE] 
[921A] 
[1853C] 
[941E) 
[7980] 


[72C8] 
[BS4A] 


[CFCE] 


[6872] 


£[718C] 


[2F94)J 
EFFBE] 


131 


132 


Yt47)<>-1 THEN GOTO 3288 ELSE IF fa 
11>4 THEN 3818 ELSE jo=JOY(@®):IF jo 
=®B THEN 2518 
tall=® 
IF (jo AND 16)=1& THEN 2878 
IF (jo AND 1)<>1 THEN 2588 
IF yp=® THEN GOTO 2518 
vor der=PEEK (FNscreen (xp,yp-B)): IF h 
inter<>9 OR vorder=1 OR vorder=4 OR 
vorder=5 THEN 2518 
SOUND 2.198080,2,7:man=28: m=1-m: yp=yp 
-8: 1!X,xp,yp+t8,22,xp ,yp+4,man+m: GOSU 
B 1920: !X,xp,ypt4,22,xp,yp,man+m:GO 
TO 2718 
IF (jo AND 2)<>2 THEN 2618 
vorder=PEEK (FNscreen (xp,yp+t8)): IF v 
order=1 OR vorder=4 OR vorder=5 THE 
N 251® 
SOUND 2,1298,2,7:man=28: m=1-m: yp=yp 
+8: !X,xp,yp-8,22,xp,yp-4,man+m: GOSU 
B 1920: :!X,xp,yp-4,22,xp,yp,man+tm:GO 
TO 2718 
IF (jo AND 8)<>8 THEN 2648 
IF xp=78 THEN GOTO 2518 
vorder=PEEK (FNscreen (xpt2,yp)):IF v 
order=1 OR vorder=4 OR vorder=5 THE 
N 2518 
xp=xp+t2:m=1-m: IF vorder=18 THEN man 
=18 ELSE man>=14 
SOUND 2,18808,2,7::X,xp-2,yp,22,xp-1 
‚yp,man+m:GOSUB 1928: :|X,xp-1,yp,22, 
XxP,yp,man+m:GOTO 2718 
IF (jo AND 4)<>4 THEN 2518 
IF xp=® THEN GOTO 2518 
vorder=PEEK (FNscreen (xp-2,yp)):IF v 
order=1 OR vorder=4 OR vorder=5 THE 
N 2518 
xp=xp-2:m=1-m: IF vorder=18 THEN man 
=16 ELSE man=12 
SOUND 2,1880,2,7::X,xp+t2,yp,22,xp+1 
‚yp,man+m:GOSUB 1928: :X,xp+t1,yp,22, 
*xP,yp,man+m:GOTO 2718 
IF yp=17& THEN GOTO 2938 
hinter=PEEK (FNscreen (xp,yp)):unten= 
PEEK (FNscreen (xp,yp+B)) 
F ze=® THEN GOTO 2918 

hinter=2 THEN 2958 

hinter=3 THEN 3888 

hinter=&4 THEN 3828 

hinter=7 THEN 3848 

hinter=8 THEN 3868 

jump GOTO 3138,3168: jump=® 

unten=4 THEN ri=-1:ma=9:60T0 388 


unten=5 THEN ri=1:ma=78:60T0 388 


unten=11 AND hinter“>9 AND hinte 
r<>18 THEN yp=yp+8:SOUND 1,yp+128,8 
‚15,7,3:man=28:m=1-m: !X,xp,yp-8,22, 
xP,yp-4,man+m:GOSUB 1928: !X,xp,yp-4 
»‚22,Xp,yp,man+m:GOSUB 192@:WHILE SQ 
(1)<>A:WEND: fall=9:G0TO 2718 
IF unten=1 OR unten=? OR hinter=97 O 
R hinter=18 THEN 2518 
IF man=12 THEN man=16 ELSE IF man=1 
4 THEN man=18 
yp=yp+8:SOUND 1,yp+1898,8,15,6:!X,xp 
‚yp-8,22,xp,yp-4,man:GOSUB 1928: |X, 
*xP,yp-4,22,xp,yp,man 
en=MAX (B,en-1):LOCATE 25,2:PRINT FN 
z$(en,3)zWHILE SQ(1)<>A:WEND: fall=f 
all+1:G0TO 2718 
IF ((jo AND 4)<>4 AND (jo AND 8)<>8 
)OR en=® THEN GOTO 2548 
IF (jo AND 4)=4 THEN ri=-1 ELSE ri= 
1 


vorder=PEEK (FNscreen (xptri*#2,yp+t8)) 
:IF vorder=2 OR vorder=® OR(ri=-1 A 
ND xp=B)OR(ri=1 AND xp=78)THEN GOTO 
2540 

SOUND 1,8,08,15,5,8,3@:en=MAX (en-1B, 

8): LOCATE 25,2: PRINT FNz$(en,2)::6, 

xptri#*2,yp,24:FOR i=1 TO 8: |:X,xp+tri 
*2 ,yp+i-1,24,xp+ri#2,yp+i ,27:CALL % 
BED19: NEXT: !F,xptri#*2,yp+t8,8,8: :F,xp 
‚YP,man+tm,3:POKE FNscreen (xptri*2,y 
p+8) „d:WHILE SOt1)<>4:WEND:GOTO 251 
[4] 


"Zeit alle 
WHILE SQ(1)2>4 OR SQt4)< >4:WEND: FOR 
i=188 TO 1988 STEF 5:SOUND 1,i,1,7 
:SOUND 4,i+1,1,7:NEXT:SOUND 1,1805, 
0, 15,2: SOUND” 4,1006,0,15,2 :WHILE SO 
(11224: WEND: GOTO 3280 
"aus dem Screen gefallen 
!'P,XxP,YP,22,8:FOR i=8B98 TO 1008 STE 
P 5:SOUND 1 »„i,1,7:NEXT:SOUND 1,i1,8, 
15,2:WHILE SQl1)<>4:WEND:GOTO 3208 
"Edelstein 
SOUND 1,1808,4,7:5S0OUND 1,110,4,7::P, 


[ABDB] 
[CDEA] 
[8E42] 
K7ZEE2I 
C[CDQ2] 


LACBO] 


EFADA] 
[BFE2] 


[63C6] 


[@DD&] 
LA7FB] 
U[FF7AI 
CEBBB] 
[FS6C] 
[84E8] 
[16E6] 
E[FABS]I 
EFDBE] 
[7972] 
[63D4] 
CBSE6] 
[96&CC] 
[C13F6] 
[S54A8] 
[BS92] 
LABIE] 
[BBA&] 
[46AE] 
[BF@8] 
CAED8B] 


[88080] 


[51D6] 
[B4ACI 
CZ211E] 


[7426] 


CBBö8] 
[8BEC] 
[6034] 


[1&DC) 


CB9BE] 
LA&DA] 


12508] 


[4C24] 


[14C4] 
[A458] 


xP,yP,8,0::16,xp,yp,22::F,xp,yp,mant 
m,3:cr=cr-1: POKE FNscreen (xp,yp), 8: 
score=score+ti1ß@*level-9:IF testflag= 
® THEN LOCATE 1,2:PRINT FNz#(score, 
8) 
IF cr<>® THEN 2718 
xyz=REMAIN(@) :RESTORE 3308:READ t,l1 
:WHILE t<>@ AND JOY(B)<>16:SOUND 1, 
t,1,7:SQOUND 4,t+1,1,7:READ t,1:WHIL 
E SQt1)<>4:WEND:WEND: GOSUB 3418: IF 
testflag=1 THEN 3288 
WHILE zei >@:60SUB 1918:score=score+ 
level:LOCATE 1,2:PRINT FNz$(score,8 
):WEND:level=level+1:IF level >PEEK ( 
bilder) THEN level=1:G0T0O 2488 ELSE 
G0OTO 2488 
"Bombe 
SOUND 1,8,8,15,2,82,15::FP,xp,yp,27,8 
:WHILE SO(1)<>4:WEND:GOTO 3208 
"Zeitbonus 
DI:zb=MIN (BB, ze+ (BB-ze*2) ) :zb=MAX (z 
e+1,zb):FOR i=ze TO zb-1:FLOT i#2+4 
88 ‚a,2: DRAWR 8,14:S0OUND 1,1988-i,1,6 
INEXT: ze=zb: EI:!P »XxP,yP,®@, ’0::6 »XPysY 
P,22: !P,xp,yp,man+m,3:POKE FNscreen 
{xp,yp),®:G0TO 2718 
"Energiebonus 
en=MIN (999 ,‚en+5®) :SOUND 4,284,208,1 
„ö,1::P, xP.yPp,®, 0: :6,xp,yp,22::P,xp 
‚yYP,man+m,3:POKE FNscereen (xp,yp) ‚@: 
LOCATE 25,2:FRINT FNz#(en,3):GOTO 2 
718 
"Energieabzug 
SOUND 1,8,1,7,8,8,15:en=MAX (en-18,8 
):LOCATE 35,2! PRINT FNz#(en,3):GOTO 
2808 
"Sprung 
SOUND 1,188,8,15,4,2:!P,xp,yp+t8,26, 
8: !X,xP,yP,22,Xp,yp+t2,mant+t1,3:GOSUB 
1928: IF ri=1 THEN man=14 ELSE man= 
12 
!X,xp,yp+2,22,xp,yp,man: !F,xp,yp+8, 
man/2- 2,0: !P,xp,yp,man,3 
"Phase 1 
xp=xptri*2:yp=yp-8: !X,xp-ri*#2,yp+8, 
22,xp-ri,yp+t4,man: GOSUB 1928: | X,xp- 
ri,yp+4,22,xp,yp,man:GOSUB 1928: jum 
p=1:60T0 27380 
"Fhase 2 (jump=1) 
vor der=PEEK (FNscreen (xptri#2,yp)):I 
F vorder=1 OR vorder=4 OR vorder=5 
OR xp=ma THEN jump=B:WHILE SQL1)<>4 
:WEND:GOTO 2718 
»p=xptri#2:1X,xp-ri#2,yp,22,xp-ri ,y 
p,man:GOSUB 1928: !X,xp-ri ,yp,22,Xp, 
yp,man:GOSUB 1928: jump=2:60T0 2718 
"Fhase 3 (jJump=2) 
jump=B: vorder=PEEK (FNscreen (xptri#2 
‚yp+8)):IF vorder=1 OR vorder=4 OR 
vorder=5 OR xp=ma THEN WHILE SQt1)« 
>4:WEND:GOTO 2718 
xp=xptri*2:yp=yp+tB: !ıX,xp-ri*#2,yp-8B, 
22,xp-ri,yp-4,man:GOSUB 1928: | X,xp- 
ri,yp-4,22,xp,yp,man:GOSUB 1928:WHI 
LE S@(1):>4:WEND:GOTO 2710 
"Ein Mann weniger 
xyz=REMAIN (@) :RESTORE 3364Q:READ 1,t 
:WHILE t“>@:SOUND 1,t,1,7:50UND 4,t 
+1,1,7:WHILE SOt1)<>4:WEND:READ 1,t 
: WEND 
IF testflag=®B THEN left=left-1:L0CA 
TE 18,2:PRINT FNl#(left):IF left:>® 
THEN 2478 
IF testflag=1 THEN GOTO 24780 
"Game Over = 
LOCATE#2,16,15:FRINT#2,"GAME-OVER": 
WHILE INEEY$="":WEND:SDUND 1,500,0, 
15,2:SOUND 4,581,2,15,2:WHILE SQ(1) 
<>4:WEND:FEN 1:FAPER 8:G60TO 1280 
IF testflag=i THEN xyz=REMAIN(B):PE 
N 1:FAPER 9:SOUND 1,28,5,7:G0T0 1728 
[%] 
GOTO 3208 
Dan 226, ae 10,358,28,284,28,28 
‚30,253,1 0,284,28, 38,20,426, 3® 
DATA 379; 10,328,20,338,2 ‚>379,20,42 
6,2 ‚379,80,426,10,379, 10,338, 20,28 
4,20 
DATA 284,30,2553,10,284,20,538,20,42 
6,308,379,108,338,20,338,208,379,28,37 
9,20 
DATA 426 ‚88,217, 49,319,48,253,20,25 
3,40,284,20,284,20,338,20,426,20,37 
7,68 
DATA 426,18,379,10,338,28,284,20,28 
4,30,253,10,284,208,378,20,426,30,37 
9,18 
DATA 338,20,338,20,379,20,379,20,42 
6,88,0,0 
DATA 50, 1816,37,1816,12,1016,58,101 


[7248] 
[C5B2] 


[B876] 


[6728] 
EF1DE)] 


[78B6]1 
LAFYE]I 


[7798] 
[8QEB]I 


[18C2] 


[67D0] 


[1278] 
[5822] 


[6F16] 


LE3D6] 
E1EFCI 


L9A4AE] 
[23D8] 


[79F6] 


[3814] 
[CAE2] 


[Cc8c2] 


[2C14] 
[F@ODö] 


[3F7A] 


£751C] 
LEBE&] 
[838A] 


[CCSAI 


[8CD8] 


[B918] 


[8D18] 


[88F®] 


[84DE] 


CAPDCI 


[49D2] 
CB2ZEE)] 


» DATA 


6,25,858,25,899,25,899,25,1@016,25,1 
016,25,1136,180,18016,0,8 


"besten 5 Liste 


"Zeit berechnen 
zeit=ze+txyz/58:posi=®: IF zeiti=topS 
(level,5) THEN 3448 

FOR i=5 TO 1 STEPF -1:IF zeit>topS(l 
evel ,i)THEN posi=i 

NEXT: IF posi<i>® THEN FOR i=5 TO pos 
i+1 STEP -1:topS5$(level ,‚i)=top5f(le 
vel,i-1):topS(level,i)=topS(level,i 
-1):NEXT:topS(level ‚,posi)=zeit:top5 
$(level ,posi)="" 

GOSUB 3578 "Top 5 ausgeben 

IF posi=® THEN 3568 

WINDOW SWAP B,2:n#="":p=1:PEN 2:LOC 
ATE 19,28:PRINT CHR$ (159) CHR$ (154) C 
HR$ (156) TAB(19) CHR$ (149)" "CHRF(149 
) TAB (19) CHR$ (147) CHR$ (154) CHR$ (153) 


PEN 3:LOCATE 12,9+posi#2:PRINT n$;: 

PEN 1:PRINT"?"z 

PEN 3:LOCATE 20, 21:PRINT MID$ (name$ 
‚Pı1);3:PEN 1: LOCATE 5,21:PRINT RIGH 

T$ (name$ ‚MAX (15-p ,B) )MID$ (name$ ‚MAX 
(1,p-14) ,MIN(14,p-1));:LOCATE 22,21 
:PRINT MID$ (namef,p+1,15)LEFT$ (name 

$,MAX (B,p-15)) 

jo=J0Y (8) 

IF (jo AND 8)=8 THEN p=p-1:WHILE p= 

®:p=3@:WEND:GOTO 3488 

IF (jo AND 4)=4 THEN p=p+i:WHILE p= 

31l:p=1:WEND:GOTO 3488 

IF (jo AND 16)<>1& THEN 3498 

IF p=38 THEN 3558 ELSE IF p=29 THEN 
IF nt=""THEN GOTO 3498 ELSE n#=LEF 

T#$ (n$,LEN(n$)-1):LOCATE 135+LEN(n$), 


Mae 2 22222 222 a ee 
"#* SRBIN.DAT - DATA-Lader von '’CFC’ + 
I ee ze 


DATA ABOB,B1,0D,AB,21,09,AB,C2,Di,164F 
DATA ABQB,EC,FC,A6,0D,AD, 1E,AB,C3,7IER 
DATA AB1B,EE,AB,CS,08,A1,C3,12,A1,4161 
DATA AB18,C3,91,A1,C3,A6,A1,D8,C7,5BQS 
DATA AB28,D8,D4,C1,D3,80,32,AC,A®,4D20 
DATA AB28,CD,45,A1,78,E5,2A,AD,AQB,621A 
DATA AB3Q,01,10,00,FE,00,28,04,09,0BC1 
DATA AB38,3D,18,F8,E5,D1,E1,06,88,0CD8 
DATA AB40,CD,58,AB,22,17,CD,50,AB,671C 
AB48,2B,13,CD,26,BC,1®8,F1,C9,QEOB 
ABSQ,SA,AC,AQD,FE,0DO,20,03,1A,2D7C 
AQSS,77,C9,FE,01,20,04,1A,AE,179A 
AB6B,77,C9,FE,02,20,06,1A,4E,1742 
AQ68,77,79,12,C9,FE,03,20,87,2CAB 
AB72,1A,4E,CD,80,AQ,77,C9,EB,0A85 
AQ78,1A,4E,EB,CD,80,A8,77,C9,0997 
ABSB,C5,06,04,F5,E6,88,FE,08,682C 
AB88,28,10,CB,F9,CB,7F,28,02,0116 
AB9B,CR,B9,CRB,D9,CR,SF,28,02,5856 
AB78,CB,99,CB,01,F1,CB,07,18,5EBA 
ABAQ,E2,79,CB,07,CB,807,CB,87,7185 
AQAB,CB,07,C1,C9,02,00,A4,CD,716D 
ABBQ,45,A1,E5,78,2A,AD,AQ,1,1345 
ABEB,12,00,FE,20,28,04,09,3D,16BF 
ABCQ,18,F8,E5,D1,E1,86,88,7E,24CE 
DATA ABC8,12,23,13,7E,12,13,2B,CD,@497 
DATA A@DQ,26,BC,10,F3,C9,D5,C5,F5,3553 
DATA ABDB,AF,CD,25,AB,F1,C1,E1,E5,6FCB 
DATA ABEB,CS,FS,AF,CD,AF,AB,F1,C1,482B 

ABES,E1,41,CD,25,AB,C9,FE,84,7CEC 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


[1888] 
[B628] 
[8B18] 
[B82C] 
[FBEB] 


[2ZEEC]I 
[48A4] 


L9EC2]I 
[3826] 
[9400] 


[9674] 
LEZCE]I 


[38FC] 
L7EF2] 


[4BSE] 


[A658] 
tEEBA] 


[51D4] 
[25SCA] 
[AZDB]I 
ÜDERö] 
18756] 
[B616] 
(84621 
t[41A2] 
EISBAI 
LECD?]I 
US4EC) 
LABAA]I 
[9286] 
USZBE] 
LS@9A]I 
[68A2] 
[7BSA] 
[7894] 
[C6E4] 
[21EC) 
[4A92] 
[0370] 
[SBE6] 
[A2D4] 
[OFBE)] 
[BDCA] 
LF97A] 
[B368] 
[8202] 
[85346] 
[D7BC] 
[D354] 
[943C] 
[5824] 
[6C18] 


3618 
3628 
3638 


3648 
3658 
3668 
3678 
3688 


3698 
3788 


posi#2+9:PEN 3:FRINT".":GOTO 3478 

n#=n$+MID# (name#,p,1):IF LEN(n$)<14 
THEN 3478 

WINDOW SWAP B,2:topS# (level ‚posi)=n 

$:posi=®: GOSUB 3578 

WHILE JOY(B) >16: WEND: RETURN 

"Top 5 et 

WINDOW SWAP B,2:PEN 2:PAFPER ®:CLS:L 

OCATE 15,2:PRINT"DIE 5 BESTEN":LOCA 

TE 16,4:FRINT"ZEITEN DER":LOCATE 17 
‚6: PRINT FNz£ (level ,2)".EBENE";:PEN 
1:LOCATE 15,3: PRINT STRING$ (12, 288 
)zLOCATE 16,5:PRINT STRING# (18, 208) 
:LOCATE 17, T:PRINT STRING$ (8, 208) 

PEN 3:LOCATE 5,9: PRINT"PLATZ: NAME: 

<1Q>REST ZEITS" 

PEN 2:LOCATE 11,9:PRINT CHRE (149): L 

OCATE 26,9:PRINT CHR$ (149) :LOCATE 5 
„id: PRINT STRING$ (6,154) CHR$ (159) ST 

RING$ (14,154) CHR$ (159) STRING$ (18,15 

4)zFOR i=11 TO 19:L0CATE 11,i:FRINT 
EHR$ (149) :LOCATE 26,i:PRINT CHR$(1 

A9) NEXT 

FOR i=1 TO S 

IF i=posi THEN FEN 53 ELSE FEN 1 

LOCATE 7,i*%2+9: PRINT USING"#.";i:LO 

CATE 12,i1*2+9:PRINT FNtop#(level,i) 


3 

NEXT:WINDOW SWAP B,2:RETURN 
level=1:605SUB 3488 

jo=JOY(B): IF jo“>16 THEN 3648 
xyz=REMAIN (8) :GOTO 1288 

CLS#2: !A,FNadr (level) ‚480989: AFTER 1 
a0 GOSUB 3698: RETURN 

GOSUB 3578: level=level+ti1:IF level>P 
EEK (bilder) THEN level=1 

AFTER 188 GOSUB 3588: RETURN 


Listing 1. Basic-Hauptprogamm (Schluß) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


A148,00,11,08,00,CD,7F,A1,D5,0343 
A158,11,58,00,CD,6A,A1,D1,E5,10C3 
A1598,21,08,28,CD,6A,A1,D1,19,1D3F 
A160,16,80,59,19,11,00,CB,19,0BA1 
A168,C1,C9,7B,B2,28,0B,C5,E5,5683 
A178,C1,1B,7A,B3,28,07,09,18,6366 
A178,F8,21,20,80,C9,C1,C9,C5,785B 
A18@,01,00,20,ED,52,38,03,83,0C025 


DATA A188,18,F9,19,E5,D1,C5,E1,C1,3BAF 
DATA A190,C9,DD,4E,0@0,DD,46,01,DD,5D2F 
DATA A198,5E,82,DD,56,83,DD,6E,04,32F4 


DATA 


A1AB,DD,66,05,ED,B®,C9,DD,6sE,7E8® 


DATA A1A8,02,DD,66,03,DD,5SE,@@,DD,3DFD 


DATA 
DATA 


A1BQ,56,81,E5,DD,E1,21,80,C8,3D7C 
A1B8,01,98,03,C5,E5,D5,DD,7E,2F@8 


DATA A1iCQ,@2,12,FE,08,28,1D,E5,2A,1B94 
DATA A1CB,AD,AQ,11,10,00,19,3D,28,7D9E 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


A1DB,FC,ES,D1,E1,86,08,1A,77,5323 
A1D8,23,13,1A,77,13,2B,CD,26, 1Q0F8 
ALIEB,BC,18,F3,D1,13,DD,23,E1,4A3B 
AIEB,23,23,C1,@B,78,B1,28,CB,@05F 
AIF®,C9,9A,9C,95,20,20,20,20,5938 
AIF8,28,20,20,20,20,20,20,20,1FE® 
#ENDE* 


adr=&ABBUB: zeile=14:MEMORY adr-i1 
READ d$: IF d$="#ENDE*"THEN 181 


r=8 


p 

FOR i=1 TO 8 

READ a$:a=VAL("%"+a$) 
POKE adr ,a:adr=adr+i1 


a 


r >65535 THEN en 


=UNT (pr)X a:IF pr<® T 


NEXT i 


N pr=pr+6553 


[F412] 
[DB1C] 


C[SBBC] 
[6EBA] 
[A618] 


CBA4B] 
LE964] 


[A8SQ] 
[1802] 
[D87A] 


[F7D6] 
[1Cc2] 
[BC3E] 
[89B2] 
[4Abs6] 


[4950] 


LZACO] 
[Cc278)] 


CFCA2] 
EDOAA] 
[CA92] 
[15D6] 
[32CA] 
1[C942] 
[B982] 
CBOEB]I 
[8288] 
[aca8] 
LE4B8] 
[8128] 
[CE24] 
[BOBA&] 
[F8EA] 
[1D78] 
[6A8B] 
£C69C] 
[987A] 
[45DA] 
[55898A] 
CB148] 
L81EB] 
CAFD2] 
[86&D9] 
[948E] 
[5810] 
[3166] 
[E244] 
[B728] 
[OBAB] 


LASBS]I 
[21B8E] 


ABF®,28,99,DD,7E,8@,DD,23,DD,@DEF 
ABF8,23,18,86,FE,803,CQ,3A,AC,1B60 
A1QQ,AQ,CD,3B,A1,CD,25,AB,C9,6945 
A1QB,FE,@3,C0,CD,3B,A1,CD,AF,6979 
A118,AQ,C9,FE,87,28,09,DD,7E,7D18 
A118,00,DD,23,DD,23,18,@6,FE,3F7A 
A120,86,C0,3A,AC,AB,DD,4E,00,3868 
A128,DD,5E,02,DD,56,04,DD,46,77CC 
A130,06,DD,6E,88,DD,66,@A,CD,3EA9 

DATA A138,D5,AB,C9,DD,46,908,DD,6E,5594 

DATA A140,02,DD,66,04,09,C5,4C,26,3F22 


READ pr $:pr2=VAL("%"+pr$):IF pr2<iß® THEN 
pr 2=pr 2+6553& 

IF pr“i>pr2 THEN FRINT"Fruefsummenfehler 
in Zeile";zeile:STOP 
zeile=zeile+1:60T0 178 

SAVE"SR.BIN" ,B,& ABB ,%200 


[61A8] 
[62C8] 
[872E] 
CBABE] 
[6506] 
[6B96] 
[aaF2] 
[5202] 
[28DA] 
[807E] 


C2B9A] 


tE722] 
[@3SE] 
[A19CI 


Listing 2. Ganze 512 Byte bilden 
die Maschinencode-Routinen 


En ZZ zz ze a ee ze 2 2 2 2 2 en 
"* SRSFR.DAT - DATA-Lader von ’CFC’ + 
ME TEE EEE 


[31D4] 
[7902] 
LAZD8S] 
CDEB6] 
[A328] 
[4C32 

EZEB2] 
L1A4EI 
tEFZCI 
CCB7E] 


Listing 3. Sprite-Routinen zur Bewegung unseres Helden »Bity« 


[DEFCI 
[6B7C] 
[3362] 
[8426] 
E[SADA)I 
[402C] 
[F@B4] 
[F23@] 
LA4Q9E)] 
[BBEAI 


AA20,10,00,20,80,10,20,37,CE,2020 
A438,37,CE,17,8E,17,8E,17,8E,2028 
A440,00,30,00,C0,30,00,C1,08,008A 
A448,03,0C,07,8E,@F,aF,20,00,02C4 
A459,C0,08,30,080,00,C0,01,38,653A 
A458,03,0C,07,0E,OF,@F,00,00,02C4 
A460,10,80,31,40,51,20,91,10,291A 
A468,91,FE,48,20,20,48,1®,80,7DAQ 
A470,00,00,30,C0,20,40,20,00,0A48 
A478,30,80,20,00,20,40,30,C0,2CAB 


DATA AAQU,00,08,00,00,00,00,20,00,0000 
DATA AABB,00,00,00,00,00,00,20,20,2000 
DAIA A4190,07,07,07,07,07,07,00,20,02F4 
DATA A410,0B,0B,2B,0B,0B,2B,00,20,064E4 
DATA A420,20,00,00,00,00,00,20,00,0008 
DATA A428,70,E8,53,AC,53,AC,78,E0,0088 


a 
De 
SONFUIBPUN-® 


133 


A480,00,00,00,20,20,00,00,00,2008 (8R2C] 158 DATA A570,F®,C0,60,60,60,60,70,C0,48AB [3712] 
A488,08,00,00,00,01,01,05,95,0085 L[ECSCI 151 DATA A578,40,C0,60,69,E0,68,200,00,0C80 LCEFA] 
A490,44,22,FF,FF,44,22,44,22,3892 [7856] 152 DATA A580,44,22,FF,FF,44,22,44,22,3892 L[8F5C] 
A498,44,22,FF,FF,44,22,44,22,3892 I[@D68] 153 DATA AS588,44,22,FF,FF,44,22,44,22,3892 L[SQ4E1 
A4AD,FO,FO,00,00,00,00,00,08,440@ L2DAEI 154 DATA A590,18,80,10,82,10,80,E0,70,2130 L[45B8] 
A4AB,00,00,00,00,00,20,00,00,0000 [7858] 155 DATA A598,E8,790,10,80,10,88,10,802,642@ L[D3D6] 
A4E0,00,88,11,00,00,38,11,8@,2222 LBFA4] 156 DATA ASAB,00,00,00,00,F0,F80,01,08,044A TE64EEI 
A458,00,88,11,00,00,88,11,00,2222 L[54B6] 157 DATA AS5A8,23,0C,07,0E,0F,QOF,08,00,02C4 LC352] 
A4CQ,10,80,18,80,08,80,30,AQ,20C0 LADDEI 158 DATA A5EQ,10,00,41,40,008,80,95,9N,0592 L[38D8] 
A4C8,58,C0,10,80,20,48,68,C0,1200 I[&DEA] 159 DATA A5B8,11,88,00,04,42,20,18,28,2858 I[6ECA] 
A4D®,198,80,18,80,00,80,50,C0,2068 LF2BA] 168 DATA #ENDE* [BFC2] 
A4D8,30,AQ,10,80,AB,40,40,80,3E08 LES@4] 161 adr=%A4QB: zeile=184:MEMORY adr-i LFC28] 
A4EQ,10,80,10,80,10,00,50,C9,22E8 IABD4] 162 READ d$: IF d$="#ENDE*"THEN 173 [AD?2] 
A4E8,38,AQ,10,80,20,40,30,68,7AU@ TAADE] 163 pr=® [SE12] 
A4FQ,190,80,10,80,10,00,30,12,2248 I[81BB2] 164 FOR i=1 TO 8 [1368] 
A4F8,50,C0,10,98,20,58,10,28,1248 L[2CC8] 165 READ a$:a=VAL("&"+a$) LF9461 
AS52O,58,ABD,50,A0,40,A9,30,C0,20828 LF7DE] 166 POKE adr ‚aradr=adr+1 [8022] 
AS5®8,10,80,10,80,20,40,62,C0,22008 La9AB] 167 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [18A2] 
AS519,90,AD,90,AB,40,AQ,30,C0,7828 (5112] 168 pr=UNT (pr)XOR a:IF pr“i@® THEN pr=pr+6553 
AS518,10,80,10,80,20,40,40,80,2208 [9594] & [55BA1 
A520,58,A0,50,A0,50,20,30,C0,02AB LADDE] 169 NEXT i [3310] 
AS528,10,80,10,80,20,40,30,60,2200 L[3A82] 178 READ pr&:pr2=VAL("&"+pr$): IF pr2<@ THEN 
AS3Q0,58,90,50,98,50,20,30,CQ,@DAB LBIiEB] pr 2=pr 2+65536 LABBAI 
AS538,108,808,10,80,20,48,10,20,2288 LDC7C]I 171 IF pr<>pr2 THEN PRINT"Pruefsummenfehler 
A540,18,C0,10,C0,40,98,30,E0,36C0 L[7C@4] in Zeile";zeile:STOP L3F121 
A548,18,C0,10,C0,10,40,30,6@,3788 LACD4] 172 zeile=szeile+1:60T0 162 [2A62] 
A550,19,C0,10,C8,00,80,30,E@,3480 L[76E6] 173 SAVE"SR.SPR" „B.LA42Q.,%1CQ [8302] 
ASS8, 18,08, 10,C0,20,28,68,30,3770 a. 

A540,0B,2B,2B,0B,200,08,00,00,06 R 
A568,00,00,00,20,20,00,00,00,2000 LE9SBI Listing 3. Sprite-Routinen (Schluß) 


1000 DATA 61AB,33,2C,30,30,20,30,30,09,1649 1062 DATA 6390,00,00,09,01,00,01,00,01,0135 
1001 DATA 61AB,22,00,00,00,02,02,02,00,001C 1063 DATA 6398,00,01 00,01 .,00.01,09.01,0047 
1002 DATA 61B0,2N,00,02,02,02,00,00,00,0570 1064 DATA 63AQ,00,01,01,01,01,07,00,01,005D 
1803 DATA 61B8,00,00,20,00,00,0A,0A,2A,0036 19265 DATA 63AB,®1,01,09,00,0B,00,00,0R,D1B: 
1004 DATA 61CQ,an,aA,OA,an,02,00,00,00,047D 1066 DATA 4350,00,01,00,01,09,00,00,01,0019 
1005 DATA 61C8,00,00,00,0N,0N,00,2D,20,n0r® 1067 DATA 6358,00,00,09,B21 ‚00,21 ,00,01,0135 
1006 DATA 61D0,00,00,00,01,01,01,01,01,Q01F 1068 DATA 6300,03,01,00,01,20,01,09,00,01C6 
1887 DATA 61D8,00,01,01.,01.01,01,00,09,0075 1069 DATA 6308,0N,0A,00,00.00,09,00.01,07A5 
1008 DATA 61E0,01,01,01,01,01,0B,07,01,00C7 1070 DATA 643D0,00,01,07,00,0B,20,00,@B,0133 
1009 DATA 61E8,02,00,00,01.01,00,01,01,011B 1871 DATA 63D8,20,01 ,00,00,01.09,0A,0A,2072 
1010 DATA 61F0,09,01,01,00,03,09,00,00,04DC 1072 DATA 63E0,00,02,07,01,00,01,00,00,01B4 
1D011 DATA 61F8,00,00,00,01,01,00,020,00,0018 1073 DATA 63E8,01,01,00,01,00.00,01,21,20D3 
1012 DATA 6200,00,00,00.01,01,00.05,07,001B 1874 DATA 63F0,00,01,02,02,02,09,00,01,0015 
1013 DATA 6208,01 .,08,00,01,01,05,029,01,00A7 1975 DATA 43F8,00,00,01,07,04,00,00,0E,DGER 
1014 DATA 6210,01,01,02,01,01,00,01,01,0097B 1076 DATA 6400,20,01,00,20,00,01,00,00,0044 
1015 DATA 6218,09,08,00,00,00.09 ,020,0B.,B4AF 1077 DATA 6408,01 ,01 ,01.,00,00,01 ,00,00,00E4 
10164 DATA 4220,00,00,00,01,01,07,01,09,0037 1078 DATA 6410,20,01,00,01.20,00,00,01,0051 
1017 DATA 6228,00,00.,00,01.,21,00,00.09,0011 1979 DATA 6418,00.01,01.,01.21,01,00,01,2@7D 
1018 DATA 6730,01 .,00,00,01,01,0B,09,01,00A7 1080 DATA 6420,00,00,00,01,00,00,00,0B,@01B 
1019 DATA 6238,01.,01,01,01,01,00,01,01,00FE 1081 DATA 6428,00,00,00,20,00,00,00,20,D0220 
1028 DATA 6240,01,09,05,00,01,01,01,0B,0265 1082 DATA 4430,00,00,00,00,00,a0,n0,nn,aaaa 
1021 DATA 6248,00,00,00,00,00,07,01,09,002F 1083 DATA 4438,00,00,00,00,00,00,00,20,2220 
1022 DATA 6250,2A,aA,0A,00,00,00,0A,07,Q6DD 1084 DATA #440,20,00,00,20,00,00,00,2D, aaa 
1023 DATA 6258,01 ,02,01,21,01,0E,01,01,0017 1085 DATA 4448,00.00,00,00,00,00,00,0E,@00B 
1024 DATA 6260,00,01,01,01,01,00,01,01,007E 1086 DATA 6450,00,00,00,00,00,00,00,20, aaa 
1025 DATA 6268,01 ,07,02,00.00,00,00,06,028E 1287 DATA 6458,00,00,00,00,00,00,00,00,0002 
1026 DATA 4270,00,00.00,00,09,01,01,01,004F 1088 DATA 6440,00,00,00,20,00,00,00,nD, aaa 
1027 DATA 6278,00,00,80,01,01.,01,28,29,0015 1289 DATA 4448,00,00,00,00,20,00,020,00 ,oMao 
1028 DATA 6280,01,01,01,01,01,0B,01,01,00D7 1290 DATA 6470,00,00,00,00,00,00,00,2B,@aQ0& 
1029 DATA 4288,00,00,01,01,01,00,01,01,00:E 1091 DATA 6478,00,20,00,00,20,00,00,00,0000 
1030 DATA 6290,01,01,01,09,00,00,00,0B,007E 1092 DATA 6480,00,00,00,00,00,20,nn,aa,anon 
1031 DATA 6298,00,08,09,01,01,01.01,01,013F 1093 DATA 6488,00,00,00,00,00,00,00,n0 ‚naoe 
1032 DATA #2AQ,00,00,00.01,01,01.00,09,0015 1094 DATA 4490,00,00,00,a0,20,a0,a0,a0,uann 
1033 DATA 62AB,01,21,01,01,01,0B,21,01,00D7 1295 DATA 6498,00,00,00,00,00,00,00,06 ‚200% 
1034 DATA 42B0,00,00,00,01,01,20,01,01,001B 1096 DATA 64AQ,00,20,00,a0,0n,aa,nn,an,nnna 
1035 DATA 6258,01 ,01,01,029,08,00,00,0B,007B 1297 DATA 44AB,20,00,00,00,00,00,00,00 ,Dooo 
1034 DATA 62C0,00,00,07,20,00,00,00,20,0120 1298 DATA 44E0,00,00,20,00,20,00,20,00,0000 
1857 DATA 62C8,00,20,00,00.20,00,00.00.0a00 1277 DATA 64B8,20,00,00,00,20,00,00,00,0000 
1038 DATA 42D0,a0,20,00,au,nn,au,na,nn, nano 1108 DATA 64C0,00,00,00,a0,a0,a0,n0,n2,naa2 
1039 DATA 62D8,00,00,00,00,00,00.,20.a0,0u0n 1101 DATA 44C8,00,00,00,020,00,00,00,00,n00a 
1040 DATA 62E0,00,00,00,07,00,00,00,2B,0097B DATA 64D2,20,00,00,a0,a0,nn,an,an, ana 
19041 DATA 62E8,00,00,09,00,00,00,00,020.0120 3 DATA 6408,22,00,00,20,20,00,00,00,0000 
1842 DATA &2F0,00,00,00,a0,a0,n0.2n,au,nuaa DATA 64E0,00,00,00,00,00,00,a0,aa, Dana 
1843 DATA 62F8,00,20,00,02,00,00,00,00,0020 DATA 64E8,00,00,00,00,00,00,00,20. 2000 
. 1944 DATA 6300,00,00,00.00,00,00.00,03, 0003 DATA 64F0,03,00,03,00,03,00,03,20,@1FE 
1045 DATA 6308,00,00,00,097,00,00,00,0B,009E 7 DATA 64F8,03,00,03,00,03,00,03,00,B1FE 
10465 DATA 6310,00,01,01,09,01,00.00,01,a0r> DATA 6500,03,00,03,00,03,20,03,@Q,Q1FE 
1847 DATA 6318,00,020,09,05,20.01.00.08.0174 DATA 6508,03,00,03,00,03.00,03,@0,D1FE 
1848 DATA 4320,00,01,00,01,097,00,00,01,0019 DATA 6510,03,00,03,00,03,20,03,00,Q1FE 
1949 DATA 6328,00,01 ,09,01.,21,05,09.01,017F DATA 6518,00,03,00,03.00,03,00.03.B00FF 
1050 DATA 6330,01,01,01,09,00,00.20,06.,007B DATA 6520,00,03,00,03.00,03.00,03.Q0FF 
1051 DATA 6338,00,01,20,097,00,01,20,01,00D5 DATA 6528,00,03,00,03,00,03,00.03,00FF 
1052 DATA 6340,00,00,09,01,00,01,05,00,013E DATA 6530,00,03,00,03,00,03,00,03.0@FF 
1053 DATA 6348,00,01,00,01,01,09,00,01.007D DATA 6538,00,03,00.,03,00,03,00.03,@8FF 
1054 DATA 6350,00,01,07.00,00,00.09,07,017B DATA 4540,06,20,13,00,00,00,00,00,0140 
1055 DATA 6358,09,00,00,01,00,00.00,06,249E DATA 4548,00,20,20,00,00,00,00,01 ,a0mı 
1056 DATA 6340,00,01,00,09,20,01,00,01,00D5 DATA 4550,91,01,00,00,20,01,01,00,@0C6 
1057 DATA 6348,00,00,09,01.,20.01 ,00,21.,0135 DATA 6558,08,00,00,00,00,00,02,00,0004 
1058 DATA 6370,00,01,00,01,00,01.09,01,0047 DATA 4540,00,00,00,an,BA,a0,00,0D,@ar® 
1859 DATA 6378,00,01,29,22,00,20,00,01,0141 DATA 65648,02,00,20,00,00,00,020,20,2100 
1060 DATA 6380,09,02,00,01,06,00,00,05,0445 DATA 6579,00,20,00,01,01,01,09,09,20007 
1851 DATA 4388,00,01,01,81,09,09,20,21,0039 , DATA 6578,09,09,89,09,89,09,099,09,0707 


Listing 4. Wer sich die Arbeit sparen möchte, dieses Listing abzutippen, gibt die Bilder über den Editor ein 
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6588,01,01,01,01,01,01,01,01,@@FF 
6588,01,01,81,20,00,01,01,81,00E7 
6590,01,01,01,00,20,00,00,20,20E0 
6598,20,00,04,21,20,20,01,01,0093 
65AQ,20,00,20,09,01,00,00,01,0099 
65A8,00,00,00,00,00,00,20,00,2000 
6550,20,00,20,2A,2A,00,20,00,BaF@ 
65B8,20,08,20,20,20,20,00,02,0002 
65C0,20,00,00,20,200,20,00,00,22a8 
65C8,01,21,20,29,00,02,21,00,2052 
65D9,00,20,20,00,00,00,00,20,nua0 
65D8,09,00,0A,B2A,2DA,2A,29,00,2198 
65E0,00,20,20,00,00,20,02,21,2085 
65E8,02,00,20,20,20,00,29,00,0100 
s45FQ,20,00,01,09,00,00,00,01,20B1 
65F8,00,020,00,200,200,00,00,00,B2000 
6600 ,BA,OA,BA,aA,DA,ON,BA,OA, 2606 
6608,00,00,20,20,00,02,01,00,000A 
6610,01,02,20,20,00,00,00,20,a000 
6618,20,00,08,21,097,00,00,00,2858 
6620,20,00,20,20,00,20,01,02,0008 
6628,20,00,2A,BA,0N,BA,D0,20,0198 
6630,00,20,00,00,02,01,00,00,0014 
6638,200,01,02,00,00,20,00,20,0008 
6640,20,00,020,00,01,00,00,04,200C 
6648,09,09,01,20,00,01,00,01,06E5 
6650,02,00,00,2A,0A,00,00,20,B1F@ 
6658,20,20,00,02,01,0B,02,00,2004 
6660,20,0B,01,02,00,00,00,20,902C0 
6668,200,00,00,00,20,20,00,01,2001 
6670,09,09,01,20,01,20,00,00,@6E8 
6678,81,02,20,0A,2A,09,00,00,00F@ 
6480,20,20,00,07,00,0B,00,00,@BBC 
6688,00,2B,20,81,2E,00,00,20,0288 
6690,00,00,20,00,00,00,20,01,2@021 
6698.09,09,01,21,00,00,00,00,04F® 
66AQ,00,01,02,0A,QA,20,00,20,00F@ 
66AB,00,00,20,81,00,06,20,00,0903C 
66450,20,0B,20,01,0B,00,00,20,0288 
6658 ,28,00,80,20,00,00,02,21,2001 
66C0,09,097,00,20,00,00,00,00,B4C0 
66C08,29,00,01,82,2A,00,20,80,0858 
664D9,20,20,20,20,01,00,20,20,0a08 
66D8,20,02,21,00,0B,00,20,00,20F8 
66E0,20,00,00,20,20,00,00,01,2a01 
66E8,09,01,21,01,21,01,01,01,D4FF 
66F0,09,01,20,01,02,00,00,00,@04C0 
664F8,00,00,00,00,00,21,02,20,0008 
6700,02,01,20,00,05,00,20,20,0118 
6788,200,00,20,20,00,09,00,01,2001 
6710,01,00,00,00,00,00,00,2a0,2asu 
6718,89,02,20,00,01,02,00,00,0488 
6720,00,00,20,20,00,00,01,07,20QB 
6728,25,00,00,80,2E,00,00,00,902D8 
6730,20,00,20,20,00,00,00,01,aa01 
6738,20,00,20,00,20,20,20,20,0a00 
6740,09,00,00,00,00,01,02,00,0480 
6748,00,00,20,208,20,00,00,89 ,2009 
6750,00,00,00,20,0B,20,00,A0,0nS8 
6758,09,00,20,20,20,09,01,01,0003 
6760,29,01,01,01,@1,01,01,@1,B4FF 
6768,801,21,21,21,01,01,01,82,B0FC 
6770,20,00,20,00,00,00,00,097,2009 
6778,80,28,20,00,2B,00,29,00,0058 
6780,09,00,20,20,00,01,01,20,000& 
6788,09,02,00,20,200,00,00,00,0480 
6798,00,00,20,20,00,020,01,01,2003 
6798,02,20,20,00,200,00,00,07,2109 
67AB,020,01,20,200,0B,00,00,20,2018 
67A8,08,00,00,00,01,01,01,00,B000E 
6750,09,00,20,20,00,00,00,n0,2480 
67B8,20,20,20,00,00,00,21,21,000% 
67C0,01,2B,20,20,00,00,00,297,0249 
67C8,21,00,00,20,0B,00,00,00,D20D8 
67D0,00,00,00,20,00,01,01,01,0007 
67D8,81,01,21,81,01,21,01,29,00F7 
67E0,21,01,01,01,01,01,01,00,@@FE 
67E8,20,0B,00,20,00,28,08,097,82C9 
67F0,20,00,00,20,06,20,00,a0,a058 
67F8,00,02,00,00,200,01,00,00,0094 
s800,20,00,20,00,00,00,20,07,0007 
6808,09,09,00,20,00,09,01,20,0002 
6812,20,0B,20,00,20,00,20,07,02C9 
6818,00,00,20,20,0B,00,02,00,2058 
6829,00,00,20,20,00,20,20,2a0,n2ano 
6828,20,2090,20,00,20,00,020,07,0009 
6830,20,00,20,20,00,00,01,00,2002 
6838,00,26,20,20,20,20,22,07,02C9 
6840,20,00,20,200,2B,20,00,00,90058 
6848,02,00,20,20,208,09,81,21,0027 
6850,01,01,21,01,01,01,01,01,@0FF 
6858,01,81,21,09,00,02,01,00,0072 


68640,00,0B,00,00,20,00,20,09,02C9 
6848,00,08,00,00,00,20,00,00,2000 
4870,20,00,00,00,07,07,01,00,006E 
6878,80,05,209,00,002,00,20,20,09068 
&880,20,00,00,07,20,200,01,00,0092 
6888,00,0B ‚00,00 ,00,00.00.09 ,02C9 
4890,00,20,00,aa,0u,a0,na,au, ana 
6898 ,20,20,00,09,09,06.01.,22.00C0 
68AD,02,07,07,00,00,00,00,02,0262 
68AB,02,02,02,89,02,02,00,00,2148 
68B0,20,0B,00,01,01,01,01,@1,@2DF 
68B8,21,01,01,81,01,21,01,01,B0@FF 
68CQ,@1,01,01,01,01,01,01,01,@0FF 
68C8,81,01,01,20,200,20,28,01,@0DE1 
&68D9,@1,01,01,01,01,21,01,01,0FF 
68D8,81.,01,01,1A,A8,20,.00,00,0488 
4BED,B0,nD,Au,na,an,nn,nu,2a,naan 
68E8,00,00,00,BA,OA.BA,aA,BA,DOCh 
s8F@,OA,aA,OA,BA,ON,B0,00,00,06 30 
68F9,00,20,20,20,00,00,00,00,0000 
&9B0,QB,OA,OA,aA,BA,DO,OA,aA,DuAE 
69728 ,00,20,00,00,2A,20,00,0A,205A 
69190,0A,BA,BA,BA,AA,OA,DA,OA,0606 
6918,00,20,00.,00,BA,2A,DA,0A,B06& 
6920,2A,2A,00,00,00,00,00,2A,078A 
6928,8B,2A,2A,20,002,00,00,2A,B64A 
6930,2A,20,00,00,2A,AA,QA,0A,0566 
6938, 20,0A,BA,2A,20,2A,00,00,2348 
6940,20,00,00,00,00,20,20.,24,000A 
6948,00,0A,20,00,22,00,04,20,0294 
6950,0B,20,22,00,00,00,00,20,0580 
6958,02 ,DA,20,BA,QA,0A,00,BA,2252 
6960,20,0A,00,0A,aA,20,00,20,0270 
6768,20,01,01,00,20,20,20,2A,2a6A 
6970,20,2A,DA,QA,QA,0A,@0,BA,0312 
6978,0B,2DA,2A,00,00,00,00,20,06440 
69780,20,2A,20,0N,An,OA,BA,B0,024C 
6988,20,0A,0A,02,00,20,00,20,03C0 
6790,21,01,01,01,20,20,20,20,00F@ 
6998,DA,2A,20,00,00,00,2A,00,0794 
&FAD,DA,OA,DA,0B,00,00,00,00,0670 
69AB,BOA,BA,DD,DA,DA,DA,20,20,0758 
6960,20,20,20,00,20,00,00,01 ,0a01 
69E8,01,200,20,901,901,00,00,20,0098 


| 69C0,20,00,2A,20,20,00,QA,@A,B1SE 


69C8 ,DA,BA,20,06,00,09,00,0A,073A 
69D0,20,00,DA,0A,AD,2A0,@A,DA,QIFE 
69D8,09,20,00,20,00,00,21,01,0003 
69E0,00,20,00,02,01,01,20,00,002C 
69EB,00,00,0A,OA,BA,BA,@0,BA,0192 
69F0,BDA,DA,QA,QB,00,00,2A,00,0664 
69F8 ,D0,20,0A,OA,OA.BA.DN,ON,DIBE 
sAQQ,A0,2D,aAU,0a0,00,01,01.,01,0007 
6AB8,01.,09,01.,01.,01,01.,01,0D,BarFE 
sA1Q,aD,a0,OA,aA,OA,OA,an,20,0198 
6A18,00,0A,0A,2E,20,20,04,00,0364 
6A20,20,0A,00,20,20,20,00,00,9a280 
6428 ,00,00,002.00.01.021.20,20,nu0c 
6AZ0,20,09,00,00,00,20,01,01,0243 
6A38,00,00,00.,00.00,20,0N,00,0014 
6N4B,DA,BA,OA,an,00,00,aA,00,0674 
6A48 ,20,0N,00,D0.20.00,nn,Da.0280 
sASQ,DO,an,a0,nı,01,an,a0,a0,anı8 
6A58,00,07,00,00,020,00,00.,01 .,D241 
6AsD,21,00,00,00,00,00,a0,aA, aaa 
6A68,DE,DA,QA,0A,02,20,@A,QA,Q6FE 
&A7D,BA,BQA,DA,DA,QA,00,20,00,0630 
6N78,00,020,21,01,01,29,21,01,001F 
GABQ,Q1,01,01,01,01,01,01,01,D0FF 
&A88,01.01 ,00,00,00,00,00.00.Daca 
sA9Q,aB,OA,OA,a0,a0,00.00,20,06A0 
&A9B ,DO,BA,BA,ON,OA.2D,D0,00.0530 
&AAQ,20,01,01,00,00,07,200,00,0044 
6AAB,20,00,00,00,20.00,nn na, Dann 
sABU,2A,01,01,20,20,20,00,00,a060 
&ABB ‚OB ,BA,DA,BA,DOA,OE,2D.00.B6HC 
&ACQ,DA,00,0OA,20,20,00,00,00,0440 
&ACB,21,01,00,02,00,09,00,20,00E4 
sADO,20,00,020,20,20,00,00,00,aa0a 
sAD8,29,200,21,21,20,00,00,20,0030 
sAEQ,2B,00,00,00,BA,QB,20,2D,BSFC 
6AEB,BA,2A,0B,00,20,20,20,01,0781 
sAFQ,21,01,01,01,01,01,21,01,B0FF 
6AFS,81.01,21.,01.01.,01,21.,01,DOFF 
4B00,01,87.01,01,01,00,20,00,a2F& 
+B88 ‚BB ‚00,00 ,OA.20,DB,DA,0A,BS12 
4B10,00,0A,00,20,20,00,01,01,0283 
6B18,20,00,00.20.00.00.01.01.00805 
6520,21,21,21,01,01,00,00,20,@@F& 
6E28,20,29,20,00,01,21,00,0@,9024C 
6530,2B,2A,0A,00,20,2B,0A,a0,2678 
6E38,20,0A,200,00,00,01,01,01,8287 
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&E40,01,21,01,01,01,01,01,01,@0FF 
6B48,09,01,01.,01,01.00.00.00,04F8 
+4E50,00,09,00,00,00,01,21,00,0246 
6558 ,2B,00,DA,DA,20,OR,OA,DA.04S2 
&E60,DA,DA,00,00,81,01,00,20,078C 
6E68,00,00,00,00,02.01.01.021,0017 
65B70,89,01,01,01,01,09,01,01,04DF 
6E78,21,21,21,01,01,01,01,01,Q@FF 
&580,0B,00,00,aA,a0,00,BA,aA,QSS3E 
6588,00,20,00,01,21,21,021,01,001F 
6E90,09,01,01,01.01,01,01,02,B4FC 
6E98,02,82,01.,01,021.27,.020.01.219D 
&BAD,21,09,00,OA,ON,aN,an,BA,0206 
&BAB ,DA,BOA,OA,DN,OQ,2D,2N,00,0674 
+5B0,00,0B.01.01,00,00,20,@0,a2F@ 
&6BB8,89,20,20,200,09,01,01,02,8484 
65CQ,02,02,01,81,01,09,00,01,019D 
65C8,21,09,09,02,02,22,02,22,82DE 
6BD9,01,01,090,20,20,20,2A,00,00D4 
6BD8,20,01,01,01,81,89,01,21,085F 
&BE@,@1,01,01,01,81,01,01,02,0@FC 
6BE8,03,02,01,01,01,89,02,01,0119 
&BF@,01,09,01,01,01,01,81,01,B2FF 
&BF8,81,01,01,00,00,00,00,20,20E0 
6C@B,@1,01,01,01,01,09,01,01,B0DF 
6C88,81,01,01,01,01,01,01,29,B0F7 
6C10,09,09,09,01,01,01,01,81,B7FF 
6C18,801,29,200,00,28,00,00,20,82C0 
6C20,20,20,01,01,00,00,00,01,2031 
6C28,81,20,200,00,20,09,00,00,20A4 
6C30,00,20,00,00,00,20,20,20,2000 
6C38,00,20,20,29,20,200,80,20,0000 
6C40,20,07,00,00,00,02,02,02,024E 
6C48,02,02,03,01,81,80,21,81,D1FB 
6C50,21,01,01,01,01,01,01,01,@8FF 
6C58,01,21,801,21,801,21,81,21,B@FF 
6C60,81,01,01,01,801,01,01,21,Q0FF 
6C68,21,09,01,01,01,21,21,21,B2FF 
6C70,81,01,01,01,01,01,4C,00,0064 
6C78,14,20,00,00,00,20,20,20,B2An0 
6C80,00,20,00,00,00,00,00,20,0000 
6C88,20,20,00,00,09,00,00,20,2000 
s&C90,20,20,00,00,00,A0,A0,20,2000 
6C98,200,00,00,00,00,80,20,20,0000 
6CAQ,20,21,01,01,01,01,01,81,207F 
6CAB,21,01,01,81,81,21,21,21,BBFF 
&CBQ,21,09,01,01,81,01,01,81,Q2FF 
6CB8,89,01,01,01,01,01,81,01,B4FF 
&CCO,81,01,01,09,01,01,01,01,Q07F 
6CC8,81,21,20,20,090,01,08,00,B0C4 
&CDO,A0,20,00,20,00,01,00,00,0004 
6CD8,00,29,00,20,00,20,21,20,0242 
&CED,27,00,01,00,00,20,20,020,04AQ 
6CEB,20,20,20,09,00,02,00,20,2090 
&CF0,21,01,02,00,00,01,00,00,0084 
6CF8,20,20,82,00,090,01,20,20,0044 
&D20,20,29,00,00,02,00,01,00,90252 
6D88,09,22,01,00,29,80,02,00,0424 
&D12,20,00,02,09,00,20,20,20,2@0D0 
6D18,81,81,21,09,01,01,01,81,207F 
6D20,29,01,01,01,01,01,01,09,B4F7 
6D28,81,01,01,09,81,81,81,21,2@7F 
6D30,01,01,01,01,09,01,01,81,B0BF 
6038,89,21,01,01,01,81,09,21,B4EF 
6D49,01,01,08,27,00,20,00,00,2850 
6D48,209,00,09,81,20,20,80,29,0499 
&D50,20,01,00,09,20,20,00,20,20D0 
6D58,81,20,20,20,09,00,01,00,B0CA 
6D60,09,20,00,01,00,20,297,00,0482 
6D648,81,01,20,097,00,20,20,20,2050 
&D70,29,20,02,01,00,02,00,09,84D1 
6D78,20,21,202,29,02,20,00,82,0092 
&D80,21,20,20,02,09,00,01,00,00EA 
6D88,89,20,202,01,02,00,897,00,84D2 
&D99,01,01,01,01,01,09,01,81,@@DF 
6D98,81,81,21,01,01,01,01,21,BOFF 
&DAQ,21,01,01,01,01,09,01,01,B@0DF 
6DAB,21,201,09,01,81,81,81,B1,B1FF 
&DBQ,21,07,01,01,01,09,81,81,@2DF 
6DB8,81,21,08,00,08,89,080,21,20E5 
&DC9,20,20,20,00,01,00,00,00,0008 
&DC8,00,20,00,01,00,27,00,20,0034 
&DDO,21,00,09,00,20,00,20,01,B1Ai 
6DD8,29,297,09,01,20,29,20,20,0274 
&DE®,01,01,00,00,20,09,02,01,@BE1 
6DE8,00,00,00,22,01,00,00,20,0028 
&DFO,20,02,00,01,20,07,20,202,00B& 
6DF8,81,00,09,08,20,02,80,01,01A9 
6EBD,20,07,02,01,00,09,20,02,0234 
&E88,01,01,01,29,01,01,01,01,007F 
6E10,01,09,01,01,01,01,897,01,B2EF 


1399 
1400 
1401 
1402 
14853 
14904 
1485 
1406 
1407 
1408 
1489 
1418 
1411 

1412 
1413 
1414 
1415 
141& 
1417 
1418 
1419 
1420 
1421 

1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1438 
14351 

1432 
1473 
1434 
1435 
1436 
14237 
1438 
1439 
1440 
1441 

1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1458 
1451 

1452 
14573 
1454 
1455 
1456 
1457 

1458 
1459 
1460 
1461 

1462 
14683 
1464 
1485 
1466 
1467 
1468 
1469 
1470 
1471 

1472 
1473 

1474 

1475 
1476 
1477 

1478 
1479 

1480 
1481 

1482 
1483 

1494 


' 1485 


14895 
1487 
1488 
1487 
1498 


6E18,81,81,01,01,81,01,01,81,B0FF 
6E20,801,01,01,01,097,81,01,01,80BF 
6E28,801,21,21,01,01,01,09,01,B0EF 
6E30,21,01,00,09,00,20,20,01,2051 
6E38,00,29,20,00,00,00,09,00,0252 
6E40,020,00,01,00,20,20,00,20,2020 
6E48,80,20,20,00,09,20,00,00,2048 
6ES0,20,01,00,00,00,00,09,00,2052 
6E58,01,01,02,09,20,22,08,01,2011 
6E40,00,09,00,02,20,20,09,00,0272 
6E68,20,202,01,00,02,20,20,08,20AD 
6E70,902,20,00,09,07,20,02,00,@14C 
6E78,20,21,20,00,02,00,29,08,2042 
6E80,01,01,01,021,01,09,81,01,@0DF 
6E88,21,21,01,01,01,21,01,09,20F7 
6E90,21,01,01,01,01,01,09,01,QQEF 
6E98,81,21,09,01,01,21,01,01,B1FF 
6EAD,81,01,01,01,01,01,01,01,Q@0FF 
6EAB,21,01,00,00,00,29,200,00,20E4 
&EBO,21,20,00,00,00,20,00,09,2089 
6EBE,20,20,20,00,00,00,09,00,2012 
&ECO,@1,00,09,00,00,01,00,00,01A4 
6EC8,20,20,00,01,00,00,00,00,0010 
6EDY,21,01,00,00,20,27,00,02,20E& 
6ED8,21,29,02,00,20,00,00,09,20C9 
&EEO,20,02,00,00,00,20,09,00,8092 
6EE8,21,00,09,00,22,21,08,02,01B& 
&EFO,20,00,00,01,20,00,00,02,@012 
6EF8,21,01,01,09,01,21,01,01,207F 
6F@B,01,01,01,01,09,01,01,01,B0BF 
6FB8,21,01,21,09,01,021,01,01,B007F 
6F10,21,01,01,09,01,01,01,01,@07F 
6F18,01,09,21,01,21,89,01,01,82DF 
&6F20,01,01,00,09,20,00,00,00,2058 
6F28,80,00,20,00,07,80,20,01,8049 
6F30,20,20,00,07,20,01,00,00,0094 
6F28,00,00,20,29,20,00,01,00,0092 
&6F40,00,09,00,00,20,07,00,00,0264 
64F48,01,01,08,097,00,08,08,02,0062 
4F50,08,00,08,08,07,20,02,01,05CD 
6F58,20,00,00,09,02,01,20,02,008& 
6F60,00,00,20,27,20,02,01,00,a094A 
6F68,00,09,20,02,00,09,20,22,024& 
4F7@0,01,01,01,01,21,01,01,01,@0FF 
6F78,81,29,01,01,01,29,01,01,02DF 
6F80,21,09,01,01,01,01,01,Q1,B2FF 
6F88,01.,07,01,01 021,01 .,01,01.,D2FF 
6F9@,09,01,01,01,01,01,09,01,B4EF 
6F98,01 .21 ‚20,20 ,00,20,00,00,00Co 
6FAR,AU,@7,00,21,00,09,00,01,0275 
6FAB,00,09,00,00,00,00,00,01,0241 
&FBQ,00,09,00,00,20,00,00,00,0240 
6FEB,29,20,01,02,00,80,29,00,8462 
6FCQ,21,01,08,08,28,08,06,08,0124 
6FC8,28,09,08,01,02,09,00,01,0665 
6FDY,20,09,00,00,22,00,00,01,0251 
&6FD8,20,29,00,00,00,82,20,00,0248 
&FEQ,29,20,01,00,02,20,07,00,04A2 
6FEB,21,01,01,01,81,21,01,01,B0FF 
&FF@O,21,21,01,01,01,01,01,01,B0FF 
6FF8,81,01,01,01,821,21,01,01,B0FF 
70@20,21,21,01,01,01,01,01,01,00FF 
7288,21,21,01,01,01,01,01,81,B0FF 
7010,01,02,A8,2B,29,BA,BA,QA,17CE 
7018,2A,BA,0A,OR,BA,BA,0A,ON,B6B6 
7020,0A,0A,0A,aA,BA,OA,OA,ON,0606 
7028 ,0A,2A,BA,BA,BA,BA,BA,DA,060& 
7030,2A,0A,OA,QA,QA,QA,QA,BA,060& 
7838,0A,0A,0A,09,09,00,00,00,0618 
7040,20,00,00,20,00,00,00,00,0a0a 
7048,20,00,0B,00,20,20,09,00,82160 
7950,20,00,00,20,00,0B,00,00,002C 
7058,20,20,00,00,20,20,20,00,a000 
7240,200,00,00,07,29,02,00,20,20Da 
7068,20,22,09,00,00,22,00,00,20088 
7270,00,02,0B,8A,BA,BA,0A,QA,0126 
7078,2A,2A,DA,OR,BA,BB,02,00,0618 
7280,20,00,02,20,20,00,02,00,0044 
72088,28,20,22,29,01,81,21,85,8@DB 
7890,01,01,01,85,21,01,01,05,00BB 
7898,81,01,01,20,20,20,00,020,20E0 
7aAB,20,00,00,20,00,01,01,01,0007 
70A8,24,21,01,01,04,01,01,01,0257 
7060,24,01,01,09,01,20,01,01,Q2FB: 
7868,81,208,21,01,21,20,21,01,20BB 
7aC0,01,00,01,00,20,20,00,20,00AQ 
72C8,20,20,08,00,80,81,06,01,0009 
70D@,21,01,00,01,21,01,00,01,0@DD 
78D8,21,021,08,097,21,20,22,00,0958 
72E0,00,00,00,00,200,00,20,20,0000 
78E8,20,20,01,80,80,20,00,00,0920 
7aF0,20,00,00,00,20,01,08,00,0a04 


BRAAPPYM 
:O 


IMPYTER 


7OF8,20,20,20,28,20,20,20,20 ‚2800 
7120,20,20,00,09,01,20,00,00,0078 
7128,20,20,00,08,20,20,20,00,2200 
7110,20,00,00,0A,2A,BDA,BA,@A,Q0C6 
7118,2A,2A,0A,QA,2A,20,20,20,0638 
7120,20,020,20,20,08,08,00,00,2040 
7128,20,20,08,89,01,29,01,01,B2@BF 
713@0,21,@1,01,21,01,01,01,01,Q@FF 
7138,21,01,01,20,20,20,00,00,0BE0 
7140,09,00,20,00,20,01,81,01,2007 
7148,21,01,81,21,21,01,21,01,Q0FF 
7150,01,01,01,01,01,09,00,@0,B@DC 
7158,02,00,20,20,00,00,00,80,8008 
7160,00,00,00,20,00,00,00,00,a000 
7168,02,20,20,20,00,08,00,00, 2000 
7170,00,20,20,00,09,00,00,00, 2000 
7178,00,22,20,21,21,01,01,09,0017 
7180,00,00,20,20,20,200,200,00,02a00 
7188,01,01,01,2A,2A,BA,2A,2A,0926 
719@,0A,QA,BA,BA,QA,01,01,01,0637 
7198,09,02,20,20,20,20,20,090,8488 
71AQ,00,01,01,01,00,00,01,09,007B 
71A8,08,200,20,20,20,200,00,02,0000 
7150,00,00,00,20,20,20,07,08,000E 
71B8,07,00,00,80,20,20,20,00,0380 
71C0,09,20,20,200,20,00,200,00,0488 
71C8,08,01,00,20,20,20,21,021,0843 
71D8,21,01,01,81,01,01,21,01,B8@FF 
71D8,21,29,01,85,21,01,25,00,82B& 
71EQ,04,01,01,84,01,01,29,01,023F 
71E8,81,21,201,81,81,21,21,21,88FF 
71F0,29,01,00,20,20,00,01,0A,B4C8 
71F8,2DA,2A,QA,BA,DA,BA,0A,29,B405 
7200,01,09,81,01,01,00,01,@1,@2FB 
7288,81,2@,21,21,01,00,07,01,20AB 
7210,0A,QA,2A,0A,0A,0A,0A,0A, 0606 
7218,09,01,20,208,08,00,01,20,24C2 
7220,20,00,01,01,01,00,20,09,2031 
7228,21,09,80,200,28,00,20,02,22C2 
230,20,20,00,00,20,20,09,21,2013 
7238,08,20,20,21,21,21,08,00,8B1C 
7240,09,01,00,00,20,20,01,00,04C2 
7248,08,01,02,02,02,21,00,09,083D 
7250,01,09,00,20,20,21,01,01,02C7 
7258,01,01,01,20,20,00,09,01,B00F3 
72640,00,00,01,02,02,02,01,00,001A 
7268,09,01,20,20,20,20,01,00,84C2 
7270,00,01,02,22,82,01,00,09,003D 
7278,201,09,08,80,21,09,09,09,02F7 
7280,09,09,09,01,20,00,09,01,07E3 
7288,20,28,81,22,22,02,01,08,8B1A 
7290,27,01,00,20,20,20,21,00,04C2 
7298,00,21,02,02,02,21,20,297,003D 
72AQ,21,09,00,01,07,27,00,20,02BC 
72R8,20,20,09,27,01,20,29,21,D1AB 
72B0,20,20,01,02,22,82,21,20,001A 
7258,29,21,208,20,20,20,01,20,04C2 
72C0,20,21,01,01,21,21,20,07,0075 
72C8,21,09,02,21,29,29,200,00,0298 
72D9,20,00,00,29,201,00,09,01,088B 
72D8,09,08,21,21,21,21,01,200,2@3E 
72E0,09,01,20,20,20,20,21,00,24C2 
72E8,20,0B,0B,@B,@B,2B,29,29,036D 
72F@,21,09,09,01,89,00,00,02,029A 
72F8,202,00,08,27,21,20,09,21,018B 
7300,20,00,06,0B,@B,@B,@B,20,01B2 
7328,29,01,02,20,20,20,21,20,24C2 
7310,00,00,00,20,20,20,20,097,0009 
7318,81,09,00,01.29,00.00.01.0299 
7320,801,20,208,09,01,20,09,01 ,000B 
7328,28,22,08,00,20,20,20,00,2000 
7330,29,01,00,02,20,20,201,20,04C2 
7338,20,090,00,20,20,20,20,09,0209 
7340,01,09,00,01,27,20,20,20,0298 
7348,00,20,00,07,21,20,29,21,028B 
7350,20,00,00,00,20,20,20,20,0000 
7358,29,01,00,22,20,20,21,00,04C2 
7360,00,00,00,20,80,20,20,097,0009 
7368,01,29,02,21,27,00,20,20,20298 
7370,20,200,00,897,21,20,09,01,Q88B 
7378,29,08,00,20,20,20,20,20,0a08 
7380,29,01,22,20,21,01,01,B1,BACF 
7388,21,01,81,21,21,21,01,01,00FF 
7390,021,01,01,01,01,01,01,01,0@FF 
7398,21,21,21,81,81,81,81,21,BD@FF 
73AQ,01,01,01,01,01,01,01,01,0@FF 
73A8,81,01,21,01,28,A8,1C,21,0329 
73B0,01,01,01,21,01,01,01,01,00Frr 
73B8,01,801,81,21,01,81,81,21,B0FF 
73CQ,@1,01,81,01,21,21,01,01,8@FF 
73C8,81,801,81,01,21,21,21,@1,Q@8FF 
73DQ.@1,01,01,81,01,21,201,21,DaFF 


73D8,20,20,20,20,20,20,20,00,2000 
73E0,00,00,00,00,00,00,00,20,2000 
73E8,20,20,20,20,200,29,20,02,0002 
73F0,02,00,20,20,200,00,00,00,0100 
72F8,20,20,20,00,20,00,01,01,0003 
7400,00,200,00,20,00,00,00,00,00208 
7428,20,20,20,00,00,20,20,20,20000 
7410,00,00,09,09,09,01,@1,@1,@1FF 
7418,201,21,01,09,00,00,00,20,0072 
7420,20,20,00,00,20,00,01,01,0003 
7428,20,20,00,04,04,00,04,04,006C 
7430,00,04,04,00,04,04,00,04,01B4 
7438,04,04,04,04,09,00,00,00,0388 
7440,00,20,00,07,20,00,00,20,0090 
7448,20,20,20,20,00,00,01,01,0005 
7450,20,00,20,20,20,00,00,20,2020 
7458,20,00,20,00,00,00,00,00,2000 
7460,20,20,20,00,27,00,00,20,0048 
7468,20,20,20,07,20,20,20,20,0070 
7470,20,20,20,00,20,00,21,01,0003 
7478,200,20,20,00,00,20,20,20,2208 
7480,20,20,20,00,20,00,20,20,0a08 
7488,20,20,21,21,01,01,21,20,083E 
7490,20,20,20,09,20,00,20,00,00978 
7498,00,00,20,20,20,02,01,01,2003 
74AQ,20,20,02,00,00,20,20,20,0048 
7448,22,23,203,08,02,20,20,20,01AB 
74B0,20,24,00,00,00,20,20,20,0108 
74B8,20,20,20,09,02,00,20,20,0090 
74CQ,20,20,20,20,00,00,81,01,0003 
74C8,80B,21,01,01,05,20,20,81,05D9 
74D@,21,01,01,01,81,01,81,20,0@FE 
74D8,22,20,20,00,20,00,00,23,200= 
74E0,03,20,20,09,20,02,02,20,B11C 
74E8,00,20,00,20,20,00,01,01,2003 
74F@,2B,20,00,00,00,20,00,01,0581 
74F8,03,02,02,22,03,01,02,00,217C 
7500,00,20,20,00,01,01,01,01,a00F 
7588,81,21,21,21,21,01,01,01,Q0FF 
7510,07,00,20,00,20,20,01,01,0483 
7518,2E,20,20,80,20,20,20,01,0581 
7520,81,01,21,801,01,01,20,20,0@FC 
7528,20,20,28,20,20,20,20,20,2008 
7530,00,00,20,00,20,00,00,00,2000 
7538,29,20,20,00,00,200,21,21,0483 
7540,0B,00,00,00,20,20,200,20,0580 
7548,20,20,08,08,00,20,00,0A,000A 
7550,2A,B2A,2A,0B,00,00,00,20,0678 
7558,20,20,02,02,00,00,20,20,0840 
7560,09,20,20,00,20,020,01,21,0483 
7568,2B,20,20,00,02,20,29,01,0593 
7570,01,01,01,01,01,01,201,20,0@FE 
7578,08,08,00,2E,00,00,00,20,08E0 
7580,20,01,01,01,09,01,01,09,0037 
7588,21,00,20,20,00,08,21,21,0083 
7590,0B,00,20,00,20,00,29,20,0592 
7598.00,00,20,20,20,00,00,00,0a00 
75AQ,20,00,20,0B,20,00,20,20,00Ba 
7548,20,20,20,00,29,00,00,27,2041 
75B0,20,00,00,00,00,00,81,01,0003 
75B8,85,20,00,00,09,81,81,21,8SCF 
75C0,01,09,00,00,00,20,03,03,02C5 
75C8,23,09,22,06,20,20,20,00,013@ 
75D0,20,200,00,00,07,00,00,29,0041 
75D8,28,202,08,00,20,20,21,01,0083 
75E0,2B,00,00,00,07,00,20,00,05C8 
75E8,20,29,02,22,00,21,01,01,8247 
75F®,21,01,01,09,01,01,20,00,087C 
75F8,200,00,00,00,897,20,01,01,004B 
7600,01,01,01,20,00,00,01,01,@0E3 
7688,25,20,20,02,89,20,20,00,@5C8 
7610,00,09,00,20,20,00,20,00,0240 
7618,80,209,20,87,20,20,090,00,2090 
7620,20,00,00,00,07,20,20,00,0048 
7528,20,20,00,00,20,20,21,021,0003 
7630,25,20,00,09,09,00,80,02,05CA 
7638,22,29,00,08,00,00,20,00,0240 
7640,00,00,00,09,00,03,03,20,089A 
7648,20,200,00,02,07,00,20,20,0068 
7650,20,20,20,20,00,00,01,01,0003 
7658,2B,29,08,08,27,20,21,21,25CB 
7660,21,21,01,00,00,20,20,20,00E@ 
7668,00,20,20,01,01,01,21,01,001F 
7670,01,09,01,01,81,20,00,020,9a2F8 
7678,28,292,00,00,20,20,21,01,0003 
7680,20B,00,02,00,09,20,00,00,0588 
7688,20,00,00,20,80,20,20,00,0000 
7590,20,00,00,20,20,20,20,00 ,auaa 
7698,00,09,02,20,20,09,29,09.027F 
76A0,07,09,097,09,00,20,01,01,0773 
76A8,2B,28,21,01,01,09,00,20,259C 
76B0,20,00,00,00,20,00,20,00,20aa 


137 


138 


7658,20,29,00,00,2B,200,20,20,9@058 
76C0,00,09,00,00,00,09,01,01,0267 
76C8,81,21,01,29,20,20,01,01,0073 
7&D8,0B,22,20,20,00,09,00,00,05A4 
76D8,209,20,20,20,00,20,29,20 ‚0000 
76E9,00,20,20,00,00,00,00,a0,anan 
76E8,090,09,00,20,00,297,01,01,0267 
76F0,01,01,01,07,20,00,01,01,0073 
76F8,2B,20,08,00,20,09,00,20,05A4 
7720,20,00,00,00,20,22,22,02,000E 
7788,22,02,02,02,02,82,82,82,B1FE 
7710,20,09,00,00,20,297,01,01,0267 
7718,22,21,01,09,08,80,01,21,B1F3 
7720,81,01,01,01,81,01,01,01,Q@@FF 
7728,81,21,01,01,21,81,01,21,B00FF 
7730,01,01,01,23,01,01,@1,01,@@DF 
7728,21,21,201,01,01,01,01,21,BOFF 
7740,01,01,01,01,01,01,01,2A,0@F4 
7748,R8,1A,21,08,28,28,08,08,5258 
7750,208,08,08,0B,00,00,00,20,07Ba 
7758 ,00,00,20,00,20,0A,DA,0N,003& 
7760,0A,0A,0A,00,00,00,20,00,06C0 
7768,20,00,29,20,00,20,00,20,2000 
7770,20,20,01,01,01,01,01,01,003F 
7778,01,01,21,0R,00,20,20,20,0050 
7780,20,00,020,00,0A,2A,21,09,0073 
7788,21,0A,0A,2A,20,20,20,20,03E0 
7790,20,00,00,20,20,20,20,00,0000 
7798,200,20,200,00,00,00,00,00,2000 
77A0,00,020,01,0B,20,20,20,00,2098 
7768,28,20,20,0A,0A,0A,21,09,00D3 
77B8,01,0A,0A,0A,QA,00,20,00,03B0 
77B8,00,20,00,00,20,00,20,20,0000 
77C0,00,00,01,01,01,01,21,01,003F 
77C8,21,01,21,06,00,20,20,20,0850 
77D9,00,08,QA,BA,@A,@A,01,09,0193 
77D8,21,0A,0A,0A,0A,BA,20,20,0378 
77E0,20,00,00,00,20,00,20,20,0000 
77E8,00,00,290,00,00,20,20,00,0000 
77FQ,01,01,00,2B,20,200,00,00,007@ 
77F8,08,0A,0A,OR,BA,2A,21,09,0313 
7800,01,0A,0A,aA,AA,QA,BA,BO,038C 
7828,00,20,00,00,20,20,20,00,0000 
7810,20,20,01,01,01,01,01,01,003F 
7818,01,20,200,0E,20,00,00,20,2030 
7820,0A,2A,0A,QA,BA,@A,21,09,0613 
7828,81 ,BA,DA,DA,OA,BA,BA,BA,D386 
7830,00,00,00,00,20,20,00,00,0a00 
7838,20,00,29,00,20,20,21,21,0003 
7849,20,00,09,0B,20,00,00,0A,00BA 
7848,8A,0A,QA,BA,QOA,2A,01,09,0613 
7850,01,BDA,0A,0A,QA,BA,BA,B2A,038& 
7858,2A,20,28,00,200,20,20,00,2500 
7860,20,20,21,01,81,01,21,20,283E 
78648,20,20,20,22,20,00,0A,@A,aD1E 
7870,0A,0A,02,0A,@A,BA,21,09,0713 
7878,21,2A,02,02,02,02,02,24,8276 
7880,0A,0A,00,00,00,00,20,20,0780 
7888,20,09,07,00,01,21,00,00,B@BEC 
7890,20,200,00,00,00,2A,0A,0A,0036 
7898,2A,02,02,0A,0A,8A,21,809,0513 
78AQ,01,0A,OA,QA,BA,02,0A,0A,03A& 
78A8,BA,2A,2N,2D,20,00,20,20,06C00 
7850,00,20,01,01,01,20,20,20,0038 
7858,20,20,20,00,2A,B0A,BA,0A,0866 
78C0,02,2A,02,2A,2A,02A,01,09,0313 
78C8,21,2A,2A,0A,02,0A,BA,2A,03C6 
78D0,BDA,0A,QA,aA,20,20,00,00,06440 
7808,090,092,01,21,21,20,20,00,00=38 
78EU,00,00,00,@A,BA,DA,2A,02,@BCE 
78E8,2A,0A,02,BA,BA,02A,01,09,0713 
78F@,01,0A,0A,BA,2A,02,0A,0A,03A6 
78F8,2A,QA,0A,BA,DA,20,20,00,06=8 
7900,20,00,01,01,21,20,00,00,0038 
7908,00,00,0N,BA,2A,2A,0A,0A,B186 
7910,2A,0A,02,QA,QA,@A,01,09,0713 
7918,21,BA,0A,0A,BA,DA,D2,2A,039& 
7920,0A,0A,0A,BA,QA,QA,20,00,0618 
7928,20,00,21,01,21,00,20,00,0038 
7930,2A,0A,0A,0A,BA,OA,GOA,DA,0606 
7938,2A,0A,02,0A,BA,2A,21,09,0713 
7940,21,2A,02,0A,2A,2A,02,0A,0296 
7948,BA,DA,QA,QA,BA,BA,DA,DB,B6OC 
7950,20,20,01,01,01,20,0A,0A,002& 
7958,2A,BA,0A,OA,QA,BA,BA,BA,060& 
7960,0A,02,02,02,0A,@A,01,29,0593 
7968,21,2A,04,802,02,22,2A,2A,0366 
7970,0A,0A,QA,QA,BA,BA,QA,0A,060& 
7978,20,20,00,00,0A,0n,BA,2A,0066 
7980,DA,0A,0A,aA,BA,BA,BA,OA,060& 
7788, BA,2A,@A,QA,OA,BA,21,029,0613 


7990,01 ,0A,0A,QA,BA,QA,0A,0A,0386 
7998 ,DA,0A,0A,BA,DA,DA,DA,DA,06406 
7IAQ,AA,DO,00,AA,2A,DA,AA,QA,0SCHh 
79A8,OA,OA,BA,BA,DA,BA,BA,DA,D6D6 
7960 ,0A,0A,BA,BA,QA,0A,01,09,0413 
79B8,21,2A,0A,@A,BA,DA,0N,BA,0386 
79C0,DA,QA,QA,BA,OA,OA,OA,QA, KELB 
79C8.84,28,01.01,01.21,01.01,05 

79D@,01,01,01,01,20,@1,01,01, darT 
79D8,81,21,01,21,01,21,01.27,00F7 
79E0,01,01,01,01,01,01,01,01,0@FF 
79E8,01,01,00,21,21,01,00,20,22DC 
79FQ,20,00,00,20,00,00,00,20,0a08 
79F8,20,21,00,20,20,00,00,20,0240 
7ARQ,20,20,00,00,01,00,20,07,0001 
7ABS,20,01,00,00,20,00,00,20,0042 
7A10,00,00,00,00,00,01,20,00,0004 
7418,200,202,00,20,20,00,20,20,2208 
7A20,00,00,01,01,01,01,01,01,003F 
7A28,21,01,01,80,021,09,21,81,BD2CF 
7AZQ,01,01,00,01,01,01,01,01,8QDF 
7A38,81,01,01,01,21,01,20,20,B@FC 
7A40,00,00,00,00,20,00,00,20,2a02 
7A48,20,00,090,01,20,22,00,20,021@2 
7450,00,00,00,20,01,09,20,20,202C 
7458,81,29,00,00,20,00,20,20,2280 
7440,20,09,00,20,01,00,20,00,a008 
7468,00 ,00,00,00,00,00,00,20,2000 
7A70,00,00,00,00,01,01,00,01 ,2QaD 
7A78.81.,81.,01,01,21,01,01,09,08F7 
7ABB,01,01,01,01,01,01,01,01,00FF 
7488.01 .,01,01,00,01.20,20,20,00E8 
7A90,20,00,00,00,20, 20,20, 00,uu0R 
7A98.20.,00.00,20.20,21 ,20,00.0024 
TAAD,a0,a0,00,00,20,00,00,07,0009 
7AAB,20,00,00,00,00,00,00,00,0000 
7ABO,20,00,00,00,01,20,20,00, 0008 
7ABS,20,20,00,00,20,20,20,00,2020 
7ACO,20,20,20,00,20,20,21,01,0003 
7AC8,81,01,01,01,21,01,01,01,B0FF 
7ADQO,21,21,01,01,01,21,01,01,Q0FF 
7AD8,21,01,01,01,20,20,20,00,20F0 
7AEQ,20,00,00,00,1A,01,01,01,00D7 
7AE8,21,01,01,01,01,21,01,01,B0FF 
7AFQO,@1,01,01,01,01,01,01,01,Q0FF 
7AF8,81,21,21,01,21,01,21,01,@0FF 
7BE00,01,01,01,01,01,01,01,01,@0FF 
7588,81,21,21,01,01,21,29,81,8BEF 
75610,09,09,09,09,29,09,09,09,0707 
7818,29,02,09,09,09,89,29,09,05C7 
7520,09,09,09,09,09,09,09,09,0797 
7E28,89,29,21,01,01,89,29,01,B4CF 
7630,09,09,09,09,01,01,09,01,276F 
7838,29,29,02,09,09,09,09,09,0667 
7B40,01,01,01,01,09,09,09,29,0087 
7548,89,21,01,01,07,89,29,09,0487 
7B50,07,09,09,09,09,09,27,09,0707 
7858,21,29,09,09,01,21,07,01,036F 
7B60,01,01,01,01,01,01,09,09,00E7 
7568,09,02,09,09,09,89,09,09,85C7 
7670,01,29,01,01,01,09,21,09,02D7 
7878,09,89,29,09,09,09,89,09,0707 
75E80,21,09,29,09,01,01,09,09,0367 
7E88,01,09,09,09,09,01,29,09,0327 
7B90,01,21,21,09,09,09,89,01,000F 
7E98,02,01,09,01,09,21,09,01,B02F 
7BAB,02,09,02,01,01,01,09,09,0307 
7EAB,21,09,02,29,21,01,09,07,0227 
7EB0,09,09,01,02,01,01,09,01,064DF 
7EBE,29,09,29,01,09,089,01,09,0797 
76CQ,01,09,09,01,07,01,09,07,03A7 
7EC8,81,01,09,09,09,89,21,09,2117 
7BD@,01,01,01,09,01,21,09,01,004F 
7BD8,09,209,01,909,07,09,09,01 .D42F 
7BEQ,09,09,09,09,01,01,09,01,276F 
7BE8,29,09,01,01,29,21,09,07,8647 
7EFO,21,01,09,09,29,29,01,09,@117 
7BF8,29,09,09,01,21,21,09,01,B7EF 
7C20,07,09,01,07,07,07,09,01,B4@F 
7C08.,82,81.01.21,21.01,02.01.0179 
7C10,09,07,07,09,07,01.07,07,0727 
7C18,81,21,09,09,09,09,01,09,0117 
7C20,09,29,09,01,01,01,07,Q1,@7EF 
7C28.09,29,09,01.,21.,09.09,01,07CF 
7C30,01,09,09,07,29,09,01,@1,031F 
7C28,89,89,01.,81,01,01,097,89,06E7 
7C40,01,09,09,09,09,09,01,89,0317 
7C48,09,09,09,01,81,21,09,02,B7EC 
7C50,21,01,01,09,01,27,09,09,0047 
7C58,09,09,09,09,89,29,809,01,070F 
7C60,01,09,01,09,07,87,09,01,220F 
7C68,29,02,01,01,081,21,021,09,0437 


7C79,01,01,01,29,01,21,29,01,0Q6F 
7C78,09,09,09,89,27,297,89,29,875F 
7C8@,01,01,01,29,09,09,29,81,Q20@F 
7C88.09.81.,21.09,09,.89.21.07,2417 
7C90,09,01,09,09,07,09,07,01,05aF 
7C98,09,09,89.89,01.01.07.01,076F 
7CAQ,29,01,21,21,01,09,09,21,Q4CF 
7CA8.09.29.89.01.09,.09.87.01.078F 
7CEQ,09,21,27,01,09,09,09,09,8597 
7CH8,09.09.01,09,07,07.09.21,260F 
7CC9,07,07,09,09,01,81,87,01,076F 
7CC8,09)21,09,09,09.029,07.01 ,B50F 
7CD0,09,07,09,01.09,07,02,01,0799 
7CD8.89.01.,29.09.01.02.07,29,056E 
7CEB,09,07,09,09,09,01,01,09,0737 
7CEB.21.21,01,09,01.01.,09.01 ,0Q&F 
7CFO,09,01,09,09,01,21,07,01,056F 
7CF8.09,.09,89,09.01,01,01.89.0777 
7D20.09,01,07,07,07,09,01,09,0517 
7D08,09,29,09,09,.29.09,81.,09,0717 
7D10,09,07,01,09,01,01,09,09,0667 
7D18,029.09,09.89.07,09,09,09.2707 

7D29,09,09,29,09,29,09,09,01,070F 
7028,01 ,01.,089,09,09,09,01,09,0117 
7D30,01,01,09,09,09,09,01,09,0117 
7D38,89,09,01,29,81,01,09,09,0667 
7D40,09,09,09,01,01,01,01,01,07FF 
7D48,21,09,09,09,09,09,01,09,8317 
7D50,09,09,09,09,29,09,01,09,0717 
70D58,21,09,09,29,09,29,02,02,031A 
7060,01,01,29,09,81,01,09,01,D1&F 
7D68,21,09,02,21,29,09,09,89,02E7 
7D70,21,01,01,01,09,09,01,01,009F 
7D78,21,01,01,82,21,01,01,09,00C7 
7D89,01,09,09,09,09,09,01,01,231F 
7D88,801,01,01,09,01,01,09,01,2D6F 
7D90,09,09,07,01,09,09,09,09,0787 
7098,29,09,29,21,01,29,029,09,07C7 
7DAQ,@9,01,01,01,09,09,09,29,0487 
7DA8,29,21,09,09,89,89,01,09,0517 
7DBO,09,09,01,09,01,21,09,01,066F 
7DE8,297,01,09,01,89,29,21,01,059F 
7DCQ,21,01,09,09,01,09,09,09,0147 
7DCE,21,09,09,29,09,29,09,09,0387 
7DD®,27,01,01,01,21,01,09,09,04E7 
7DD8,89,09,01,89,21,21,09,01,066F 
7DEQ,29,09,01,01,89,09,01,09,0697 
7DE8,09,01,02,82,21,09,07,09,0497 
7DF@,01,09,09,09,09,09,09,09,0307 
7DF8,29,01,07,09,09,09,09,09,0507 
7EDO,07,09,01,279,21,01,02,01,0679 
7EB8,09,09,89,29,29,09,01,89,8717 
7E10,29,01,01,21,21,09,02,09,04D1 
7E18,01,801,01,01,01,01,01,01,Q0FF 
7E20,81,09,09,09,089,09,01,01,231F 
7E28,01,01,01,29,21,01,09,01,006F 
7E30,09,01,09,01,09,09,01,01,859F 
7E38,09,09,09,29,089,09,21,09,0717 
7E40,09,09,09,09,09,09,09,09,8707 
7E48,09,09,09,29,09,09,21,029,0717 
7E50,09,09,09,09,01,01,01,01,877F 
7E58,81,01,01,01,01,21,21,21,80FF 
7E6O,01,01,01,01,01,01,01,01,Q0FF 
7E68,81,01,01,01,21,21,01,21,B@FF 
7E70,01,01,01,01,01,01,01,21,B0FF 
7E78,81,01,01,81,01,44,A8,17,0BAF 
7E80,00,20,0A,BA,OA,aA,On,OA,018& 
7E88,BA,BA,OA,BN,ON,BA,DA,OA,B606 
7E90,DA,aN,On,DA,BA,DA,OA,0A,0606 
7E98.BOA,DA,OA,BA,ON,BA,DA,OA,B006 
7EAD,ON,ON,BA,QO,00,00,00,02,06C2 
7EAB,B1,297.00,00,00,00,08,00,02C0 
7EBO.00,00,03,03,03,03,03,03,0041 
7EB8,83,03 ‚@3,03,03,05,03,05,21@1 
7ECO,03,03,03,03,23,03,03,20,01@2 
7EC8.20,21.01.09.01 21 .D1,D1.B0FF 
7EDD,20,27,00,00,05,00,00,00,0268 
7ED8,00,28,01.01,01,01,01,01,003F 
7EEQ,01,01,81,81,81,21,01,01,0@FF 
7EE8,81,01,01,81,21,21,21,0@,Q@@FE 
7EF@,00,01,01,07,200,20,00,20,02F@ 
7EF8,20,07,20,20,20,00,20,04,0244 
7FQQ,20,00,20,00,00,00,00,00,0000 
7F08,00,20,20,20,20,20,202,20,0000 
7F10,00,020,00,02,20,00,00,29,0020 
7F18,09,01,01,29,00,20,20,00,00F0 
7F20,01,01,01,01,09,20,20,00,0068 
7F28,200,09,00,20,20,20,20,20,0020 
7F30,00,00,00,20,20,20,20,020,0a08 
7F28,20,00,00,0B,80,20,20,00,20E0 
7F40,00,01,01,81,01,01,07,00,084E 
7F48,00,00,00,20,07,00,20,00,0048 


1958 
1951 

1952 
1953 
1954 
1955 
1956 
1957 
1758 
1959 
1988 
1961 

1962 
1963 
1964 
1985 
1965 
1967 
1968 
1969 
1978 
1971 
1972 
1973 
1974 
17975 
1976 
1977 
1978 
1979 
1788 
19781 

1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1998 
19713 

1992 
1972 
1994 
1995 
1996 
19977 
19978 
1999 
2a28 
2081 

2802 
2003 
2084 
2805 
2095 
2007 
2088 
2889 
2810 
2211 

2812 
20123 
z814 
20815 
2016 
2017 
2018 
2817 
2028 
2021 

2022 
2023 
2024 
2025 
202& 
2827 
2828 
2029 
2038 
2031 

2832 
20373 
2034 
2835 
2036 
2037 
2038 
2039 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


7F50,20,05,00,08,00,00,20,00,0140 
7F58,20,20,20,00,00,20,20,20,0020 
7F60,29,01,01,0B,01,01,04,20,0454 
7F68,20,21,21,20,00,00,09,20,2072 
7F70,20,00,020,00,09,00,00,00,2048 
7F78,20,20,28,20,00,00,20,20, 2000 
7F80,00,D0,00,00,20,00,2Ra,00,20R0 
7F88,29,801,01,06,01,01,00,00,845C 
7F9@,04,01,01,20,20,00,29,20,0272 
7F98,20,09,01,01,01,01,00,20,227C 
7FAO,20,04,00,00,20,00,00,20,0100 
7FAB,22,08,00,20,20,20,20,00,0000 
7FBQO,29,01,01,2B,21,01,05,00,0454 
7FB8,08,01,01,81,21,21,01,09,00877 
7FCO,20,097,00,20,00,00,28,00,0240 
7FC8,20,00,00,20,20,00,00,09,0009 
7FD@,01,01,01,21,01,01,01,81,Q0FF 
7FD8,21,01,01,2B,21,21,200,08,085C 
7FEQ,24,M ,‚01,20,20,00,00,09,0269 
7FEB,20,09,00,20,20,00,00,05,0245 
7FFQO,20,00,00,20,20,200,00,09,0007 
7FF8,01,21,21,021,01,01,01,01,DOFF 
BADU,21,01,01,0B,01,01,05,00,005& 
8028,20,01,01,00,20,20,20,09,2069 
8910,21,01,01,91,07,20,20,00,20B8 
8018,00,00,00,85,20,00,00,097,8059 
8020,01,01,01,01,81,01,01,01,B0@FF 
8028,21,01,01,0B,21,21,00,20,@05C 
8030,04,01,01,09,01,01,01,@1,A2FF 
8038,20,00,08,20,29,20,20,04,BB4C 
BU4Q,A0,20,00,00,20,n0,n0,07,00097 
8048,20,00,20,00,20,20,20,00,0008 
saS0,A0,20,00,0B,00,01,05,00,0@BE 
8058,00,21,01,097,00,20,20,00,00F@2 
BALD,A0,00,00,00,07,00,00,00,0048 
8048,20,00,20,02,00,29,21,01,0027 
8070,21,01,01,01,09,01,21,01,Q8BF 
8078,81,01,01,01,09,21,20,20,@BBC 
8080,04,21,01,09,00,00,20,20,02F® 
8088,00,89,021.01,21,01.00,00.027C 
2070,00,00,00,04,00,07,01,20,004& 
8298,020,20,28,00.27.00.00,00.,0048 
BOAD,AN,20,00,01,07,01,05,00,005& 
BOAB,29,01,01,01,21,21,09,20,D04E 
SOEQ,20,27,00,00,00,20,20,05,0245 
8068,20,20,00,020,28,09,21,00,002& 
BOCH,20,09,01,01,01,01,01,09,0277 
SOCB,20,20,00,01,097,01,00,20,025C 
SADQ,24,01,01,00,00,20,07,00,0272 
E0D8,20,29,00,00,20,00,00,00,0248 
BOED,2A,20,00,00,20,07,01,00,002& 
SAES,29,097,00,20,00,20,20,09,0249 
SAFQ,20,00,00,01,09,901,25,00,0054 
BOF8,20,01,01,00,20,20,27,00,0072 
8120,21,21,01,01,07,00,20,20,0@B8 
8128,04,00,08,00,20,29,21,09,022F 
8110,01,01,01,07,00,27,01,21,0857 
8118,21,01,09,01,29,01,20,00,Q1BC 
E120,04,01,01,09,01,01,01,01,02FF 
3128,20,00,20,00,09,20,20,20,0048 
8130,20,20,00,00,00,07,01,07,082F 
8138,21,21,01,01,21,21,21,D1,Q0FF 
8149,01,01,09,01,29,21,05,090,@1B& 
8148,200,21,021,09,00,00,20,20,08F® 
8150,09,00,20,20,27,09,02,00,@04C 
8158,00,00,08,20,20,29,01,097,802F 
8160,28,00,01,01,81,01,01,20,2Q3E 
8168,20,20,09,01,09,00,00,00,0178 
83170,04,01,01,29,00,00,00,00,22F@ 
8178,20,00,21,01,21,201,21,020,023E 
8180,00,20,20,20,00,097,01,09,202F 
8188,20,20,20,00,00,20,20,20,2008 
8190,00,20,09,01,09,01,05,00,017& 
8198,28,21,01,01,21,29,00,090,Q05C 
S1AD,DO,DU,00,00,A0,AU,2u,na,0a0a 
B1AB,DA,20,00,00,20,29,21,01,0027 
81E0,21,01,01,04,20,05,21,01,00B7 
81B8,01,21,201,21,29,21,21,21,0@BF 
81C0,21,01,01,01,01,29,20,28,@8DC 
81C8,20,08,08,08,08,08,28,00,03F® 
81D0,20,20,20,00,20,29,01,00,0024 
81D8,09,09,20,01,22,01,20,20,0004 
81E0,20,20,00,01,09,00,20,20,0058 
81E8,20,020,20,00,20,27,00,00,2024 
E1IFQ,21,01,01,01,01,01,21,01,0@FF 
S1F8,21,01,01,01,21,21,21,00,@BFE 
8220,20,20,00,01,00,01,20,00,0014 
8228,20,20,29,21,21,81,21,01,0D1F 
8210,01,01,01,01,01,01,01,01,Q@FF 
8218,20,A8,04,2C,32,31,2C,30,296C 


Listing 4. Fertige Bilder für Stone Runner (Schluß) 
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Mandelbrots 
wunderbare Mathematik 


Kennen Sie die fantastischen 
Computerbilder von Mandel- 
brotberechnungen? Sicher 
haben Sie sich schon gefragt, 
wie man so etwas macht. Mit 
einigen mathematischen Grund- 
lagen und Ihrem CPC ist das 
ganz einfach. 


icher haben auch Sie bereits 

Mandelbrotbilder gesehen. 

Jene fantastischen farbigen, 
abstrakt wirkenden Bilder, die wie foto- 
grafisch verfremdete Sonneneruptio- 
nen aussehen, erschienen wiederholt 
in der Fachpresse. Die Grundlagen für 
diese Bilder entwickelte der polnische, 
in Amerika lebende Mathematiker 
Benoit B. Mandelbrot. 

Um zu verstehen, wie Mandelbrot- 
bilder erzeugt werden, muß man sich 
mit der Mathematik von Fraktalpro- 
grammen auseinandersetzen. Sie 
basiert auf Rechnungen mit komple- 
xen Zahlen. Doch keine Angst, mit 
Ihrem Wissen aus der Schulmathema- 
tik und ein paar Hinweisen von unsler- 
nen Sie schnell, mit komplexen Zahlen 
umzugehen. 

Aus der Mathematik sind uns meh- 
rere Zahlenmengen bekannt. Die ein- 
fachste ist die Menge der natürlichen 
Zahlen. Mit ihr kann man ganz normal 
zählen, also »1, 2, 3...«, und rechnen: 
»1+1=2«, »4-3=1«. Das funktioniert 
nur so lange, bis man feststellt, daß 
»3-4« nicht zu rechnen ist. Man 


braucht also eine neue Zahlenmenge, 
mit der das Ergebnis dieser Rechnung 
darstellbar ist. 

Dazu wurde die Menge der ganzen 
Zahlen eingeführt, die auch negative 


Zahlen einschließt. Mit dieser Zahlen- 
menge läßt sich nach Belieben addie- 
ren, subtrahieren und multiplizieren. 
Beim Dividieren hingegen gibt es 
Fälle, die mit der Menge der ganzen 
Zahlen auch nicht lösbar sind: »3/2« 
geht nicht auf. Also wird wieder eine 
neue Menge erforderlich. 

Diese nennt man die Menge der 
rationalen Zahlen. Sie umfaßt die 
Menge der ganzen Zahlen einschließ- 
lich deren Brüchen. Mit ihr lassen sich 
fast alle bekannten mathematischen 
Operationen ausführen. 

Die Fläche eines Kreises ist damit 
jedoch noch immer nicht zu berech- 
nen, da keine der bisher besproche- 
nen mathematischen Mengen die 
Kreiszahl PI (r) enthält. Eine weitere 
Menge wird fällig, die Menge der reel- 
len Zahlen. 

Innerhalb dieser Menge lassen sich 
alle mathematischen Operationen bis 
hin zu Wurzel- und Logarithmusfunk- 
tionen ausführen. Allerdings geht das 
nur solange gut, bis man versucht, die 
Quadratwurzel aus -1 zu ziehen. 
Wahrscheinlich kennen Sie das von 
Ihrem Taschenrechner, der schlicht 
ein »ERROR« anzeigt, wenn Sie ver- 
suchen, aus negativen Zahlen die 
Quadratwurzel zu bilden. Da die Ma- 
thematiker wissen wollten, zu welchem 
Ergebnis die Wurzel aus -1 führt, 
ersannen sie eine vorläufig letzte 
Menge der Zahlen: die Menge der 
komplexen Zahlen. Genau diese Zah- 
lenmenge ist für die Berechnung der 
Mandelbrotbilder relevant. 

Eine komplexe Zahl besteht immer 
aus einem Real- und einem Imaginär- 
teil; zusammen ergeben beide die 
komplexe Zahl: zum Beispiel 3+7i. 


Dabei gibt die 3 den Wert des Realteils 
an und 7i den Wert des Imaginärteils. 
Das kleine »i« kennzeichnet den Ima- 
ginärteil. Sie werden sich jetzt sicher 
fragen, was das Ganze soll. Schließ- 
lich haben wir immer noch nicht die 
Quadratwurzel aus -1 gezogen. Der 
Trick beim i, und dessen ganzer Zweck 
istjedoch, daß i mit sich selbst multipli- 
ziert -1 ergibt, umgekehrt also die 
Quadratwurzel aus -1 eben jenes ibil- 
det. Damit sind nun Wurzeln aus nega- 
tiven Zahlen zu ziehen. 

Oben haben wir aber gesagt, daß 
jede komplexe Zahl aus je einem 
Imaginär- und Realteil besteht. Nun, 
das gilt für i ebenfalls. Ausgeschrie- 
ben, so wie wir es oben zeigten, heißt 
i: O+1i. Den Realteil läßt man weg, da 
er in diesem Fall Null ist. Und da inur 
einmal gezählt wird, läßt man die Eins 
ebenfalls weg. 

Will man nun mit komplexen Zahlen 
rechnen, sind einige Regeln zu beach- 
ten. Bei der Additition zweier komple- 
xer Zahlen werden Realteile und Ima- 
ginärteile gesondert addiert: 
3+7i+4-9i=7-2i 

3 plus 4 ergibt 7 und 7 zu -9 addiert 
ergibt -2, also 7-2i. Entsprechendes 
gilt bei der Subtraktion komplexer Zah- 
len. 

Die Multiplikation ist schon etwas 
schwieriger. Will man 3+7i mit 7-2i 
multiplizieren, geht man folgenderma- 
Ben vor: Zuerst wird jedes Element der 
beiden komplexen Zahlen miteinan- 
der multipliziert. Also: 3x7=21, 


3x-2i=-6i, 7ix7=49i und 7ix-2i=-14i2. 
Das ergibt dann 
21-6i+49i-14i? 

Dann wird zusammengefaßt: 
21+43i-14i? 


| 


Fomauren 


Zweite Tabellenwerte: Bei den Schnörkeln wird’s interessant 


Da i? =-1 ist, wird aus -14i? schlicht 
14. Das Endergebnis von 3+7i multi- 
pliziert mit 7-2i ist demnach 35+483i. 

Eine komplexe Zahl läßt sich auch 
grafisch darstellen. Man handhabt sie 
wie eine normale Zahl, nur daß auf der 
x-Achse der Realteil angetragen wird 
und auf der y-Achse der Imaginäfrteil. 
Zeichnet man eine komplexe Zahl in 
ein Koordinatensystem, so spricht 
man auch von der »Darstellung« der 
komplexen Zahl in der »Gaußschen 
Zahlenebene«. 


Die Mandelbrot- 


Zum Rechnen mit komplexen Zah- 
len ließe sich noch eine Menge mehr 
sagen. Um zu verstehen, wie Mandel- 
brotbilder entstehen, genügt dieses 
Wissen jedoch. 

Die faszinierenden Bilder basieren 
auf folgender einfachen Formel: 
2=2°+C 


Imaginüarteil 


Wert= 


Die Formel bewirkt nichts anderes, 
als z zu quadrieren, einen festen Wert 
c hinzu zu addieren, daraus wieder z 
zu bilden und so weiter. Wie Sie viel- 
leicht bereits richtig vermuten, sind z 
und c komplexe Zahlen. Den Vorgang 
nennt man »iterieren«. 

Schön, und wie entstehen daraus 
Bilder? Ganz einfach: c bildet eine 
Koordinate in der Gaußschen Zahlen- 
ebene. Gleichzeitig ist die Ebene der 
Bildschirm des Computers. Man 
nimmt nun jeden Bildpunkt und setzt 
dessen Koordinate in die Gleichung 
als c ein. Das Merkwürdige an dieser 
Gleichung ist nun, daß z entweder 
sehr schnell unendlich groß wird oder 
aber sehr langsam. Man zählt nun 


ganz einfach mit, nach wievielen 
Durchläufen z unendlich groß gewor- 
den ist. Diese Zahl bestimmt dann 
eine Farbe, wobei gleiche Zahlen für 
gleiche Farben stehen, und färbt 
damit den entsprechenden Bildpunkt 
auf dem Bildschirm ein. Indem man 
diesen Vorgang mit allen Bildschirm- 
punkten wiederholt, erhält man die 
Mandelbrotbilder. 

Wir brauchen jetzt bloß noch dem 
Computer den Umgang mit dieser 
Gleichung beizubringen. Betrachten 
wir dazu der Einfachheit halber erst 
einmal den Teil rechts vom Gleich- 
heitszeichen. Dort steht: z?+c, wobei 
z die komplexe Variable und c die 
Koordinate als komplexe Zahl dar- 
stellt. Da der Computer nicht mit kom- 
plexen Zahlen rechnen kann, müssen 
wir die Formel für ihn aufbereiten. 
Beginnen wir also mit z. Da z für eine 
komplexe Zahl steht, ist z auch in je 
einen Imaginär- und Realteil aufzu- 
spalten. Das ergibt dann a+bi. In der 
Formel ist z quadriert, die aufgespal- 


Realteil 


r2+i2 =4,47 


So bilden Real- 
und Imaginärteile 
komplexer Zahlen 

die Bildschirm- 

koordinaten 


tene Schreibweise würde dann also 
folgendermaßen aussehen: 
2?=(a+bi)? 

z?=a°+2abi+bi? 

Wir haben aber gelernt, daß i? den 
Wert -1 hat, dann heißt es also: 
2?=a?-b?+2abi 

Ebenso läßt sich c aufspalten, um 
d+ei zu erhalten. Wenn wir nun die 
beiden komplexen Zahlen z und c aus 
der Originalgleichung zusammenfas- 
sen, und nach Real- und Imaginärtei- 
len sortieren, erhalten wir: 
z=a?-b’+d+2abitei j 

Für den Computer spaltet man die 
Gleichung weiter in Real- und Imagi- 
närteil auf, die dann getrennt ausge- 
rechnet werden. Das z links vom Dop- 


pelpunkt ist eine komplexe Variable 
a+bi. Wenn man a+bi als zwei sepa- 
rate Gleichungen auffaßt, in der alle 
Real- und Imaginärteile je eine Glei- 
chung bilden, so erhält man: 
a=a?-b’+d 

und 

bi=2abitei 

Für den Computer nimmt man für 
die imaginäre Zahlen normale reale 
Zahlen an und erhält: 
a=a?-b’+d 
b=2ab+e 

Damit kann der Computer nun rech- 
nen. 

Wie bereits erwähnt, wird z in der 
Gleichung entweder sehr schnell 
unendlich groß oder aber sehr lang- 
sam. Man überprüft nun nicht, ob die 
Zahl unendlich groß ist, denn das ist 
auf dem Computer schwer realisier- 
bar. Vielmehr testet man, ob der Wert 
der komplexen Zahl z größer als 2 ist. 
Der Wert der komplexen Zahl ist wie 
folgt zu berechnen. Oben haben wir 
gesehen, daß sich eine komplexe Zahl 


Dritte Tabellenwerte: Eine endlose Treppe 


wie normale Koordinaten in ein Koordi- 
natensystem einzeichnen läßt. Der 
Wert der komplexen Zahl ergibt sich 
aus dem Abstand der Koordinate zum 
Nullpunkt des Koordinatensystems. 
Dazu werden die Imaginär- und Real- 
teile jeweils separat quadriert und die 
Quadrate addiert. Beim Quadrieren 
wird das i (der Imaginärteil) nicht 
beachtet. Aus dem Ergebnis zieht 
man die Wurzel und erhält so den Wert 
der komplexen Zahl. 


Das Mandelbrot- 
programm 


Nach soviel Grundlagen und Theo- 
rie wollen wir uns nun endlich der Pro- 
blemlösung und dem Programm wid- 
men. Das Programm wurde auf dem 
Schneider CPC 464 unter Verwen- 
dung des Hisoft-Pascalcompilers 


HAPPY? 
LONPUTER 
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geschrieben. Dabei ist folgendes zu 
beachten: 

a) Im Programm werden Compiler- 
Systembefehle benutzt, die nicht zum 
Standardpascal gehören. Die Anpas- 
sung an beispielsweise Turbo-Pascal 
fällt aber nicht allzu schwer. 

b) Nachdem Sie den Compiler mit 
»RUN’”PASCAL”« gestartet haben, 
müssen Sie auf die Frage »RAM-Top 
(ENTER for default)?« mit »&9FFF« 
antworten, sonst funktioniert die Ein- 
gabe des Dateinamen nicht korrekt. 

c) Listing 1 und 2 des Programms 
sind getrennt einzugeben. Den Proze- 
durenteil speichern Sie mit »P 
<Nummer der ersten Zeile>, 
<Nummer der letzten Zeile>,MAN- 
DEL.LIB«, den Hauptteil mit »P 
<Nummer der ersten Zeile>, 
<Nummer der letzten Zeile>,MAN- 
DEL.PAS«. 

d) Wenn das abgetippte Programm 
fehlerfrei läuft, läßt sich eine Binärver- 
sion compilieren. Das geschieht fol- 
gendermaßen: Zuerst stellen Sie 
sicher, daß das Hauptprogramm im 
Arbeitsspeicher steht und die Diskette 
mit den Prozeduren sich im Laufwerk 
befindet. Dann geben Sie im Editor 
»F1,2,<Programmname > «ein. Nach 
der Eingabe von »T <Nummer der 
ersten Zeile>« auf den Prompt »OK« 
mit <Y> antworten. Die Binärversion 
wird nun unter dem gewählten Namen 
auf Diskette gespeichert. 

e) In beiden Programmteilen steht 
als erste Zeile der Befehl |$L-}, zur 
Unterdrückung der Listingausgabe 
auf dem Bildschirm während des 
Compiliervorgangs. 

Bevor das Programm etwas berech- 
net, ist die Eingabe einiger Startpara- 
meter notwendig. Es erwartet der 
Reihe nach folgende Eingaben: 


1. ITERATIONEN: Der Wert 


bestimmt, nach wieviel Rechendurch- 
läufen das Programm spätestens mit 
dem Wiederholen der Rechenschleife 
Variable 


aufhören soll. Die 


Vierte Tabellenwerte: Norwegens Fjorde? 


<iterationsgrenze> wird mit diesem 
Wert belegt. 

2. XMIN: Die Eingabe des kleinsten 
x-Werts im Intervall von (-2.5 bis 0.75). 

3. XMAX: Die Eingabe des größten 
x-Werts im gleichen Intervall. 

4. YMIN: Die Eingabe des kleinsten 
y-Werts im Intervall von (-1.5 bis 1.5). 

5. YMAX: Die Eingabe des größten 
y-Werts im y-Intervall. 

6. FILENAME: Hier erfolgt die Ein- 
gabe des Dateinamens für das errech- 
nete Bild. Der Dateiname darf maxi- 
mal acht Buchstaben lang sein. 


Wie lang braucht 
der Computer? 


Im Programm folgt nun eine Initiali- 
sierung des Bildschirms, damit alle 
Bildschirmparameter auf den Ein- 
schaltzustand zurückgesetzt sind. 
Ebenso wird eine Uhr installiert, daes 
interessant zu wissen ist, wieviel Zeit 
der Computer zur Berechnung eines 
Ausschnitts aus der Mandelbrot- 
menge benötigte. <dx> und <dy> 
sind reelle Variablen, die den Abstand 
zweier Pixel in den gewählten x- und y- 
Intervallen enthalten. Mit <cx> und 
<cy> werden die festen komplexen 
Zahlen mit <xmin> und <ymin> 
belegt. Das bedeutet, daß mit der 
Berechnung des Ausschnitts in derlin- 
ken unteren Ecke begonnen und 
gleichzeitig ein Nullpunkt für die 
Berechnung jedes einzelnen Punktes 
der Mandelbrotmenge gesetzt wird. 

Zur Berechnung jedes einzelnen 
Punktes der Mandelbrotmenge wer- 
den zwei Schleifen aufgebaut, die 
jeweils alle Punkte auf der y-Achse 
und der x-Achse durchlaufen. Die 
Variablen <iterationen>, <xwert>, 
<ywert>, <xquad> und <yquad> 
werden alle mit Null belegt. 

Mit der WHILE-Schleife beginnt das 
eigentliche Hauptprogramm. Solange 
die bereits durchlaufenen <(itera- 
tionen> kleiner als die anfangs 


gesetzte <iterationsgrenze> und die 
Summe aus <xquad> und <yquad> 
kleiner als 4 ist, soll mit der Berech- 
nung der Mandelbrotmenge fortgefah- 
ren werden. 

Die Mandelbrotmenge berechnet 
sich wie folgt: Der Imaginärteil 
<ywert> der Gleichung wird aus 
2x<xwert>x<ywert>+cy berech- 
net. Den Realteil <xwert> berechnet 
xquad-yquad+cx, <xquad> und 
<yquad> enthalten jeweils die Qua- 
drate von <xwert> und <ywert>. 
Als letzter Schritt in der Mandelbrot- 
mengenberechnung wird <iteratio- 
nen> um 1 erhöht. Bricht die WHILE- 
Schleife nun die Berechnungsroutine 
ab, das heißt <iterationen> = 


<iterationsgrenze > oder 
<xquad+yquad> =4, wird dem 
aktuellen Punkt der Mandelbrot- 


menge eine bestimmte Farbe zuge- 
ordnet. War die Anzahl der <itera- 
tionen> gleich der angegebenen 
<iterationsgrenze>, wird dem Punkt 
keine Farbe zugeordnet. Keine Farbe 
bedeutet in dem Fall, daß der momen- 
tane Punkt in der Mandelbrotmenge 
liegt und der Einfachheit halber die 
vorgegebene PAPER-Farbe erhält. 
Des weiteren wird die feste Variable 
<cx> mit cx+dx belegt und so der 
nächste Punkt auf der x-Achse zur 
Berechnung festgelegt. 

Ist die Anzahl der <iterationen> 
kleiner als die <iterationsgrenze> 
und <xquad+yquad> größer 4, 
geschieht folgendes: <cx> wird der 
nächste Punkt zugeordnet und der 
berechnete Punkt erhält eine Farbe, 
die von der Anzahl der <iterationen > 
abhängt. Die Operation (iterationen 
MOD 3)+1 errechnet <colour>, die 
Werte zwischen 1 und 4 annehmen 
kann. 

<iterationen> hat zum Beispiel 
den Wert 25. Die MOD-Funktion liefert 
den ganzzahligen Rest aus der Divi- 
sion A/B. Im Beispiel bedeutet das: 25 
MOD 3=1, denn das ganzzahlige Er- 
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YMAX: 0,5625 


gebnis aus 25/3 ist 8, Rest 1. 
<colour> erhält also den Wert 2. Der 
Prozedur <pen> wird der Wert von 
<colour> übergeben und die Proze- 
dur <plot> zeichnet einen Punkt an 
die momentane Position. Dazu müs- 
sen die Werte von <spalte> und 
<zeile> verdoppelt werden, da sich 
beim CPC ja nur »halbe Pixel« ansteu- 
ern lassen. Dieser Vorgang wird 
solange wiederholt, bis die 
<spalte>-Schleife ihr Ende erreicht 
hat und alle X-Werte in dieser Spalte 
berechnet sind. 

Dann wird der festen komplexen 
Zahl <cx> wieder der Anfangspunkt 
auf der x-Achse (XMIN) zugewiesen. 
<cy> wird um einen weiteren Punkt 
auf der y-Achse erhöht, das Ganze 
beginnt nun wieder von neuem. Ist die 
<zeile>-Schleife ebenfalls beendet, 
wird die Prozedur »scnsave« aufgeru- 
fen und der gesamte Bildschirminhalt 
als Binärdatei auf Diskette gespei- 
chert. Die benötigte Rechenzeit wird 
auf dem Bildschirm ausgegeben. 


® Fertiggerät für CPC 6128 
® Aufpreis für Software auf 3" Diskette : 


® Wahlweise bestückbar mit 2-64 KByte EPROM-Kapazi- 
tät @ Arbeitet mit den EPROM-Typen 2716,-32,-64,-128 
w Durchgeführter Erweiterungsbus ( Floppy kompatibel ) 
® Autostart von BASIC- und/oder Assembler-Program- 
men ® Komplett mil umfangreicher und komfortabler 
Software auf Kassette oder Diskelte @ Gleichermaßen 
für Profis und Einsteiger geeignet ® 


® Fertiggerät für 464/664 DM 229,50 @ Ferliggerät für 
6128 DM 249,50 ® Bausatz mit Anleitung für 464/664 
DM 199,50 ® Bausatz mit Anleitung für 6128 DM 219,50 
® Aufpreis für Software auf 3" Diskeite : 


XMIN: -0,55 0,26 -0,7459 -0,798 -0,748 
XMAX: -0,45 0,27 -0,7445 -0,6 -0,6 
YMIN: .0,5 0,00000 0,1132 0,2925 0,43 


0,00625 


Iterationen: 150 150 150 75 50 


universeller BEPROM-Programmer 4003 
für Schneider CPC 464 / 664 / 6128 


® Programmiert. alle gängigen EPROM- und EEPROM-Typen 
( z.B.: 2716, 27C16, 2732, 2732A, 27032, 2758, 2764, 
2764A, 27C64, 27128, 27128A, 27C128, 27256, 27C256, 
2508, 2532, 2564, X2804A, X2816A, X2864A.. ) = Voll 
menügesteuerte Software auf Kassette oder Diskette 

m 32 KByte frei für EPROM-Daten ( Brennen des 27256 

ohne Nachladen ) ® Kein Umschalten Stecken oder Löten 
nötig @ Programmierspannung wird im Gerät erzeugt @ Ver- 
bindung zum CPC über Flachbandkabel und Interface-Karte mit 
durchgeführtem Expansionsport @ Rote und grüne Leuchtdiode zur 
Betriebs-Art-Anzeige @ Komplett mit 28 poligem Textool-Sockel @ 


® Fertiggerät für CPC 464/664 DM 289,50 m Bausatz für CPC 464/664 DM 239,- = 
DM 319,50 ® Bausatz für CPC 6128 
DM 15,- / auf 5.25" Diskette : DM 5,- ® 


EPROM-Karte 2-s KByte für alle CPC 


DM 15,- / auf 5.25" Diskette : 
® Fertiggerät ohne Software für CPC 464/664 : DM 99,- / für CPC 6128 : DM 119,- = 


preisgünstige Matrix-Drucker 


0,112325 0,435 0,5225 


Einige Hinweise noch zur Bedie- 
nung des Programms: Die Farben für 
die Mandelbrotausschnitte wurden so 
gewählt, daß bei völlig herabgeregel- 
ter Helligkeit des Monitors der Bild- 
schirm fast schwarz ist und damit ein 
Einbrennen von Punkten in den Bild- 
schirm verhindert wird. Bei der Ein- 
gabe des Dateinamens am Pro- 
grammanfang ist folgendes zu beach- 
ten: Eingabefehler sind nicht mit der 
<DEL>-Taste zu löschen. Ist der 
Dateiname kürzer als acht Buchsta- 
ben, ist er mit Leerzeichen aufzufül- 
len. 

Das Seitenverhältnis von X-Intervall 
zu Y-Intervall der Koordinaten sollte 
1,6 zu 1 betragen, da der Mandelbrot- 
mengenausschnitt sonst verzerrt 
wird. Im Beispiel: XMIN=-3, XMAX=1 
und YMIN=-1,25. Das x-Intervall ist 
vier Einheiten groß. Das y-Intervall 
muß nun 4/1,6=2,5 Einheiten groß wer- 
den, damit der Ausschnitt nicht ver- 
zerrt erscheint. Die Koordinaten 
YMAX=YMIN+2,5=1,25 schließen 


obige Geräte komplett 


Drucker DMP 2000 


DM 269,- = 


Joysticks 


SOFTWARE 


Greyfell 

Pulsator 

Howard the Duck 
Elevator Aktion 
4-Spiele-Sammlung 
Metrocross 
Express Raider 


Til @ 


DMS5,- m 


Schneider CPC 6128 mit GT 65 
Schneider CPC 6128 mit CTM 644 Color 
Floppy DDI-1 als 1. od. 2. Laufwerk 


Drucker DMP 3000 (NLQ) 

Drucker DMP 4000 (A3) 

Joyce komplett mit Drucker, 1 Diskstation, 256 kB 
Drucker NEC P6 mit passendem Kabel zu CPC/PC 
(deutsch, 1 Jahr Garantie!) 

Schneider PC 1512 MM/SD mit HC 1512 Grafikkit 

fertig eingebaut (Aufl. 720x348) 

PC 1512 MM/DD ohne Kit 

Vortex Harddisk 20 MB für PC 1512 (Slotkarte + Software) 


Diskbox für 50x3” m. Schloß 
Druckerkabel PC/Centron. 
Druckerkabel CPC/Centron. 
Druckerpapier 1000 Blatt endlos 60 g 


SPEEDY 100-80 100 Zeichen pro Sekunde ® FX80 kompatibel ® Near Leiter Qualily ® 
w Bis zu 142 Zeichen pro Zeile ® Friktionswalze und TrekLorantrieb M nur DM 739,- 


SPEEDY 130-80 130 Zeichen pro Sekunde @ Bis zu 132 Zeichen pro Zeile @ 9*9 Matrix 
m IBM kompatibel @ Ideal für PC 1512 ® deutsches und englisches Handbuch ® nur DM 839,- 


Citizen LSP-120D 120 Zeichen pro Sekunde ® IBM und EPSON kompatibel ® 949 Matrix 
® 4K Puffer serienmäßig ® Schriften : Pica, Elite, invers, proporbional, kursiv, komprimiert, 
doppelt breit, doppelt hoch ... ® Near Letter Quality @ 2 Jahre Garantie @ nur DM 525,- 


Druckerkabel POBBERTIN 
INDUSTRIE-ELEKTRONIK 


für CPC 464/664 DM 35,- 
für CPC 6128 DM 39,- 
für PC 1512 DM 39,- Brahmsstraße 9, 6835 Brühl, Tel.: (06202) 71417 


das Mandelbrot ein. Eine <iterations- 
grenze> von 50 genügt bereits, um 
das Apfelmännchen sauber auf dem 
Bildschirm zu zeigen. Je kleiner Sie 
die Ausschnitte aus der Mandelbrot- 
menge wählen, um so größer muß die 
Iterationsgrenze gewählt werden. 
Zum Abschluß finden Sie in der 
Tabelle einige interessante Plätze der 
Mandelbrotmenge. So bleibt uns nur 
noch, Ihnen viel Spaß im Reich des 
mathematishen Chaos zu wünschen. 

(Bernd Baldin/hf/ma/ja) 


[ $L-) 
PROGRAM Mandelbrotmenge; 
TYPE Filename=ARRAY[1..12] 
OF Char; 
VAR 
Iterationen, 
Iterationsgrenze, 
Zeile, 
Spalte, 
Sec, Min, Hour, 
Colour 
xmin, xmax, 
ymin, ymax, 
xwert, ywert, 
xquad, yquad, 
dx, dy, 


: Integer; 


Listing 1. (Fortsetzung auf Seite 144) 


IHR PARTNER FÜR SCHNEIDER: 


Schneider CPC 464 64 kB 
Schneider Monitor GT 65 grün 


DM 299,- 
DM 199,- 
DM 498,- 
DM 798,- 
DM 1298,- 
DM 498,- 
DM 598,- 
DM 648,- 
DM 998,- 
DM 1598,- 


DM 1398,- 


DM 1798,- 
DM 1998,- 
DM 1389,- 
ab 9,80 
23,90 
24,90 
29,90 
23,90 


Cass 


29,95 
27,90 
39,95 
34,90 
18,90 
27,90 
28,90 


Multi Database + Toolkit f. Joyce 
Distactions 3 Spile Joyce 


Versand per V-Scheck (versandfrei!) oder NN (zuzüglich Porto). 


Bitte Gratisliste anfordern! 


Telefonische Beratung bis 18.30 Uhr täglich. 


Uwe Langheinrich 


Elektronik Center 


Wachterstraße 3, 8170 Bad Tölz 
Tel. (08041) 41565 


Schreiben Sie noch heute! 
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: Filename; 


[$F MANDEL .LIB) 


BEGIN 
Mode(1); 
Ink(3,1,1);Ink(2,3,3); 
Ink(1,13,13);Ink(0,0,0); 
Border (0,0); 
Write('Iterationen -)'); 
Read(Iterationsgrenze); 
Write('xmin 
Read(xmin); 
Write('xmax 
Read(xmax); 
Write('ymin 
Read(ymin); 
Write('ymax 
Read(ymax); 
Write('Filename -)'); 
InLine(#06, #08, #21, 00); 
InLine(#A0, #CD, #06, #BB); 
InLine( #77, #7E,#CD, #5A); 
InLine( #BB, #23, #10, #F4); 
Mode(1); 
Sec:=0; Min:=0; Hour:=0; 
Every(50,1,C1lock); 
dx:=(xmax-xmin)/320; 
dy:=(ymax-ymin)/200; 
ex:=xmin; 
cy:=ymin; 
FOR Zeile:=0 TO 199 DO 


BEGIN 
FOR Spalte:=0 TO 319 DO 
BEGIN 
Iterationen:=0; 
xwert:=0; ywert:=0; 
xquad:=0; yquad:=0; 
WHILE (Iterationen 
> Iterationsgrenze) 
AND (xquad+yquad > 4) DO 
BEGIN 
ywert:=2xxwertxywert+cy; 
xwert:=xquad-yquad+cx; 
xquad:=Sqr(xwert); 
yquad:=Sqr(ywert); 
Iterationen:=Succ(Iterationen); 
END; 


IF Iterationen=Iterationsgrenze 
THEN cx:=cx+dx 
ELSE 
BEGIN 
CX!=CX+dx; 
Colour:=(Iterationen MOD 3)+1; 
Pen(Colour); 
Plot(Spaltex2 , Zeilex2); 
END; 
END; 
cX:=xmin; 
cy:=cy+dy; 
END; 
Scnsave; 
WriteLn(Hour:2,':',Min:2,':',Sec:2); 
END. 


Listing 1. Ein relativ kurzes Pascal-Programm führt Sie in die fantastische Bilderwelt der »Apfelmännchen« 


PROCEDURE Mode (x : Integer); 
BEGIN 

Write(Chr(4),Chr(x)); 
END; 


PROCEDURE Pen (Pen : Integer); 
BEGIN 

RA:=Chr(Pen); 

User( #BBDE); 
END; 


PROCEDURE Ink 
(Inknr,Colouri1,Colour2 : Integer); 
BEGIN 
RA:=Chr(Inknr); 
RB:=Chr(Colour1); 
RC:=Chr(Colour2); 
User( #B032); 
END; 


PROCEDURE Plot (x,y : Integer); 
BEGIN 

RDE:=x; 

RHL:=y; 

User( #BBEA); 
END; 


PROCEDURE Scnsave; 
BEGIN 


InLine(#CD, #65, #BC, #21, #00, #40, #11); 

InLine(#FF, #40, #06, #08, #CD, #80, #BC); 

InLine( #21, #00, #C0, #11, #00, #40, #3E); 

InLine( #02, #CD, #98, #BC, #CD, #8F, #BC); 
END; 


PROCEDURE Border 
(Colouri1,Colour2 : Integer); 
BEGIN 
RB:=Chr(Colour1); 
RC:=Chr(Colour2); 
User (#BC38); 
END; 


PROCEDURE Clock; 
BEGIN 
Sec:=Succ(Sec); 
IF Sec=60 THEN 
BEGIN 
Sec:=0; 
Min:=Succ(Min); 
IF Min=60 THEN 
BEGIN 
Min:=0; 
Hour:=Suce (Hour); 
END; 
END; 
END; 


Listing 2. Die Prozedur-Bibliothek enthält wichtige Routinen zur Darstellung der Mandelbrotmenge 


MAAPPY 
COMPUTE 


* 


Ge) 


meldungen 
in Assembler 


Eine Assemblerroutine, in ein Basic-Programm 
eingebunden, beschleunigt den Programm- 
ablauf. Doch was tun, wenn die Routine nicht 
richtig bedient wird? Fehlermeldungen helfen. 


D as eingebaute Basic des CPC in allen Ehren, doch 


manchmal kommt man nicht darum herum, Routi- 
nen in Maschinensprache zu programmieren. 

Der Aufruf einer Maschinensprachroutine geschieht 
vom Basic aus bekanntlich mit der Anweisung »CALLc«. 
Nach dem CALL-Befehl wird die Adresse angegeben, an 
der die Routine steht und eventuell noch mehrere Parame- 
ter, die das Maschinenprogramm steuern oder von ihm 
bearbeitet werden sollen. 

Bei der Übergabe der Parameter tauchen aber sehr 
leicht Fehler auf, zum Beispiel durch einen falschen Para- 
meter oder durch zu viele oder zu wenige Werte hinter dem 
CALL-Befehl. Wenn die Maschinencode-Routine darauf 
nicht vorbereitet ist, »hängt« sich der Computer oft auf. 
Wenn man als Programmierer aufsolche Umstände geach- 
tet hat, bleibt einem eigentlich nur die Möglichkeit, die Rou- 
tine wieder zu verlassen. Der Computer meldet sich dann 
unverrichteter Dinge zurück, und man hat keinen blassen 
Schimmer, was schiefgelaufen ist. Wie schön wäre es, 
wenn man in dem Fall vom Maschinenprogramm aus eine 
Fehlermeldung produzieren könnte. 

Der einfachste Weg dazu ist der, die eingebaute Maschi- 
nenroutine des Basic-Interpreters zu benutzen. Ein Bei- 
spielprogramm, das nichts anderes macht als einen »Syn- 
tax Error« zu produzieren, sieht folgendermaßen aus: 

LD E,2 
18H 
ADR 
OCAY4H 

DEFB OFEH 

Der Fehlerroutine im ROM muß der Code des zu melden- 
den Fehlers als Zahl im E-Register (CPC 664 und 6128: A- 
Register) übergeben werden. Die 2 im Programm bedeutet 
also »Syntax Error«, eine 5 stünde für »Improper Argument« 
und eine 22 für »Operand missing«. Sämtliche Fehlermel- 
dungen sind im CPC-Handbuch aufgelistet. 

Mit »RST 18H« veranlaßt man den Computer, eine belie- 
bige Speicherstelle im RAM oder ROM aufzurufen. Dem 
»RST«-Befehl folgt dafür ein Zeiger, der auf die Adresse der 
Routine weist. Im Programmbeispiel ist das der Befehl 
»DEFW ADR«. An der Stelle, auf die der Zeiger weist, steht 
nun zusätzlich nach der Adresse der aufzurufenden Rou- 
tine ein Statusbyte. Dieses Byte bestimmt, ob sich die ent- 
sprechende Adresse im Speicher ROM oder RAM befindet. 
Der Befehl »DEFW CA94H« im Beispielprogramm gibt nun 
die Adresse der Fehlerroutine an (CPC 664: CB58 hex, 
CPC 6128: CB55 hex). Das Statusbyte schaltet in diesem 
Fall das ROM im oberen Speicherbereich zwischen C000 
hex und FFFF hex ein. 

Will man nun eine Maschinenroutine zur Unterstützung 
eines Basic-Programms schreiben, und soll diese Werte 
vom Basic-Programm übernehmen, so muß man sich 
anschauen, welche Hilfsmittel der Basic-Interpreter dazu 
zur Verfügung stellt. Nach Ausführung des CALL-Befehls 


ADR: 


steht im Akku (A-Register) die Anzahl der übergebenen 
Parameter. Als erstes muß das Maschinenprogramm über- 
prüfen, ob auch alle Parameter im Basic-Programm ange- 
geben sind. Nehmen wir an, das Maschinenprogramm 
erwartet einen Parameter. Dann müssen die ersten Zeilen 
der Routine so aussehen: 
CP 01 
JP NZ,ERROR1 

Damit wird die Routine »ERROR1« aufgerufen, wenn 
eine andere Anzahl von Parametern übergeben wurde. 

Als nächstes muß sich die Routine den vom Basic- 
Programm übergebenen Wert holen. Im IX-Register steht 
dazu als Zeiger eine Adresse. Da Werte in einem Bereich 
zwischen -32768 und +32767 bei vorzeichenbehafteten 
Zahlen oder zwischen O und 65535 bei vorzeichenlosen 
Zahlen übergeben werden dürfen, besteht der Wert aus 
zwei Byte. Beim Z80 steht das niederwertige Byte einer 
16-Bit Zahl immer vor dem höherwertigen Byte, so daß die 
Adresse im IX-Register auf das Low-Byte des Werts zeigt. 

Nehmen wir nun an, daß der zu übergebende Wert zwi- 
schen 0 und 26 liegen soll. Der folgende Programmteil muß 
nun also die Einhaltung dieser Grenzen kontrollieren. Pro- 
grammtechnisch ist es einfacher, erst das High-Byte zu 
testen, denn wenn dieses größer als O ist, war der überge- 
bene Wert größer als 255. Dann muß zum IX-Register eine 
1 hinzugezählt werden, damit es auf das High-Byte zeigt. 
LD A, (IX+01) 
CP 00 
JP NZ ,ERROR2 

Liegt der übergebene Wert also über 255, wird die Rou- 
tine »ERROR2« aufgerufen. Da hier ein anderer Fehler als 
im vorigen Programmteil abgefangen wird, wird auch eine 
andere Fehlerroutine benutzt, die eine andere Fehlermel- 
dung ausgibt. 

Als nächstes wird das Low-Byte des übergebenen Wer- 
tes auf die Grenzen zwischen O und 26 getestet. 
LD A, (IX+00) 


CP 00 
JP _ C,ERROR2 
CP 27 


JP NC,ERROR2 

Damit ist sichergestellt, daß der Wert zwischen O und 26 
liegt. Um das Programm nicht nutzlos im Raum stehen zu 
lassen, soll es die Bildschirmrandfarbe umschalten. 


LD B,A 
LD C,A 
CALL BC38H 
RET 


Die Betriebssystemroutine bei der Speicheradresse 
BC38 hex schaltet die Randfarbe um. Im B- und C-Register 
stehen dabei die beiden Farben, zwischen denen der Com- 
puter hin- und herwechseln soll. Wenn der Rand nicht blin- 
ken soll, müssen also beide Register den gleichen Wert 
enthalten. Am Schluß des Programms stehen die beiden 
Fehlerroutinen. 


ERROR1: LD E,2 
JP ERROR3 
ERROR2: LD E,5 
ERROR3: RST 18H 
DEFW ADR 
ADR: DEFW OCAY4H 
DEFB OFEH 
RET 


Damit haben Sie ein komplettes kleines Demonstrations- 
programm, das die Randfarbe umschaltet und darauf ach- 
tet, daß beim CALL-Befehl ein Wert übergeben wird, der im 
Wertebereich zwischen O und 26 liegt. Die so erzeugten 
Fehlermeldungen unterscheiden sich nicht von denen des 
Basic-Interpreters. 


(Jörg Braun/hf) 
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Joystick-A 
schnell beho 


Spiele, die den Einsatz von zwei Joysticks gleich- 
zeitig erlauben, funktionieren manchmal nicht 
richtig, wenn Sie nicht spezielle Schneider- 
Joysticks, sondern die eines Fremdherstellers 
beim Spielen verwenden. 


Spiele wie »Gauntlet«, »Top Gun« oder »Ikari War- 
riors« im 2-Spieler-Modus nicht korrekt funktionie- 
ren, wenn Sie mit zwei Joysticks gleichzeitig spielen? 

Dies liegt nicht etwa am Spielprogramm, sondern an der 
eigenwilligen Art der Joystickabfrage, die der Schneider 
CPC benutzt. Die Joysticks von Schneider sind für die 
Abfragemethode des CPC ausgerüstet, doch bei den 
wenigsten Joysticks der anderen Hersteller ist dies der Fall, 
so daß deren Geräte im oben genannten Fall Fehlfunktio- 
nen liefern. 

Jedoch läßt sich auch der Joystick eines Fremdherstel- 
lers leicht zu einem »Schneider-kompatiblen« Joystick 
umrüsten. Sie müssen lediglich in die fünf Leitungen, die 
zu den Joystick-Schaltern führen, je eine Standarddiode 
vom Typ 1N 4148 einlöten. Alle Dioden müssen dabei in 
Richtung des Joystickschalters gepolt sein (Bild). 


seh aben Sie sich auch schon darüber geärgert, daß 


Für den Einbau der Dioden finden Sie sicherlich im 
Gehäuse des Joysticks genügend Platz. Die Dioden selbst 
sind überall im Fachhandel erhältlich (der Hobbybastler hat 
davon ohnehin einen kleinen Vorrat) und kosten zusammen 
unter einer Mark, so daß für Bastler der Umbau dem Kauf 
eines neuen Joysticks allemal vorzuziehen ist. 

(Robert Grau/ma) 


Verbessertes PIP 


Das Programm »PIP« unter CP/M verhält sich 
höchst unfreundlich, wenn man beim Kopieren 
die Diskette wechselt. Man muß das Programm 
dann von neuem starten. Eine kleine Änderung 
löst dieses Problem. 


icher ist es Ihnen schon passiert, daß Sie unter CP/M 

mit »PIP« Dateien kopieren wollten und dabei zwi- 

schendurch eine neue Diskette ins Laufwerk einleg- 
ten, ohne zur Initialisierung <CTRL+C> gedrückt zu 
haben. CP/M meldet sich dann unerfreulicherweise mit 
einem »BDOS ERROR R/O«. 

Das Programm PIP ist aber ganz leicht so abzuändern, 
daß es selber merkt, wenn eine neue Diskette eingelegt 
wurde. Dazu laden Sie aus dem CP/M das Programm DDT. 
Sie geben also ein: 

DDT PIP.COM (ENTER) 
Der Debugger meldet sich mit: 


DDT VER 2.2 
NEXT PC 
1E00 0100 


Geben Sie nun »S0100 <ENTER>« ein. Auf dem Bild- 
schirm erscheint: 
0100 C3 

Drücken Sie einmal <ENTER>, worauf auf dem Bild- 
schirm eine weitere Zeile erscheint. Geben Sie dann »B2 
<ENTER>«, »1D <ENTER>« und ». <ENTER>« ein. 


Der Bildschirm muß anschließend so aussehen: 
0100 -C3 
0101 CE B2 
0102 04 1D 
0103 C9 ; 
Als nächstes geben Sie »SIDB2 <ENTER>« ein, 
gefolgt von diesen Werten: 


1DB2 00 OE (ENTER) 
1ıDB3 00 OD (ENTER) 
1DB4 00 CD (ENTER) 
1DB5 00 05 (ENTER) 


1DB6 00 (ENTER) 


1DB7 00 C3 (ENTER) 
1ıDBBB 00 CE (ENTER) 
1DB9 00 04 (ENTER) 
1DBA 00 (ENTER) 


Sie haben jetzt das Programm PIP abgeändert. Um dies 
auf Diskette zu speichern, gehen Sie mit <CTRL+C> 
zurück ins CP/M und geben »SAVE 29 PPIPCOM« ein. Auf 
Ihrer Diskette befindet sich jetzt die abgeänderte Version 
des PIP, die Sie mit »PPIP« aufrufen. 

Für den Assembler-Kundigen die ganze Routine in 
Z80-Quellcode: 


0100 JP 1DB2 
1DB2 ID C,OD 
1DB4 CALL 0005 
1DB7” JP  OACE 


(Werner Bandorf/hf) 
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PRINT USING de Luxe 


In fast allen Basic-Dialekten existiert zwar der 
PRINT-USING-Befehl, doch wird er meist sehr 
sparsam eingesetzt. Gerade beim Zusammen- 
stellen langer Listen ist dieser Befehl jedoch sehr 
praktisch, weil er Texte und Zahlen auf dem Bild- 
schirm und Drucker exakt ausrichtet. 


Fähigkeit, 80 und mehr Zeichen lange Format- 
masken zu erzeugen, die sich mit Variablenwerten 
füllen lassen. Ein Beispiel verdeutlicht dies: 

Es soll eine Verkaufsliste formatiert ausgegeben werden. 
Weitere Bedingung ist, daß bei Dezimalstellen der in der 
amerikanischen Schreibweise übliche Punkt durch das 
Komma ersetzt wird. 


10 MODE 2 

20 stueck=6:einheit$="Pfd”:1fdnr=133 

30 Bez$= "Kaeseloecher”:ep=2.56 

40 komma$=string$(3,8)+”, ”+string$(2,9) 

50 zeile$=" --- Nr. ZH$#HH= RRHN NV 
+SPACE$(20)+”"\ EE ###.# #”"+komma$+” DM GP 
###.%# #"+komma$+” DM ---” 

60 PRINT USING zeile$;1lfdnr,stueck,einheit$,bez$, 
ep,stueckxep 


D er PRINT-USING-Befehl bietet dem Anwender die 


Wenn Sie sich das Ergebnis anschauen, sehen Sie, daß 
der Ausdruck korrekt mit einem Komma bei Dezimalbrü- 
chen erfolgt. 

Esistauch möglich, die Steuerzeichen von O bis 31 sowie 
TAB-Befehle im Format unterzubringen. Dadurch kann 
man einzelne Zeilenteile andersfarbig hervorheben, den 
Cursor an verschiedene Bildschirmpositionen bewegen, 
den Klingelton integrieren, inverse Zeichen ausgeben und 
vieles mehr. 

Stehen in komplett gezeichneten Kästchen Ihre Punkte- 
und sonstige Anzeigen, dann lassen sich mit einem einzi- 
gen Formatstring, der die entsprechenden Cursorsteuer- 
zeichen enthält, sämtliche Werte auf einen Schlag ausge- 
ben. 

Falls Sie noch Bedarf für neue Lotto-Zahlen haben, hier 
ein kleiner Einzeiler, der Ihnen über den PRINT-USING- 
Befehl hübsch formatiert zehn Zufallszahlenreihen präsen- 
tiert. 


10 CLS:PEN 3:PRINT”LOTTO 6 aus 49”:PRINT STRING$ 
(14,218):PEN 1:DIM 2(9,49):FOR a=0 TO 9:FOR b= 
1 TO 6:z2=0:WHILEz(a,2)=2:2=INT(RNDx49)+1:WEND: 
2(a,2)=2:LOCATE 4xa+2,bx2+4:PRINT USING’# #”; 
z:NEXT b,a:PRINT:PEN 2:PRINT:PRINT”Weitermit 
Taste”’:CALL &BB18:RUN 
(Dietmar Schulze/ma) 


Vertauschte Zeichensätze 


unter CP/M 


Ein Programm wie »Language« ist überflüssig. 
Zeichensätze lassen sich bei CP/M Plus auch mit 
einfachen Steuersequenzen von CCP aus über 
die Tastatur tauschen. 


3-Zoll-Format favorisiert. Da nicht viele Hersteller die- 

ses Format anbieten, können die wenigen die Preise 
diktieren, und man ist gezwungen, viel Geld für seine Dis- 
ketten auszugeben. Es sei denn, man schafft es, unwich- 
tige Dateien auszusortieren. Deshalb kommt jeder Tip 
recht, welche Dateien man von der Diskette verbannen 
oder durch gleichwertige kürzere ersetzen könnte. 

Unter CP/M Plus gibt es ein Programm, mit dem die ver- 
schiedenen nationalen Zeichensätze umgeschaltet wer- 
den. Dieses Programm »Language« belegt einigen Platz 
auf einer Diskette, der sich besser für andere Zwecke nut- 
zen ließe. 

Nur leider braucht man das Programm manchmal, so 
daß es normalerweise nicht einfach von der Diskette 
gelöscht werden darf. Als Beispiel seien hier Textverarbei- 
tungen genannt, bei denen man mit dem deutschen Zei- 
chensatz arbeitet, unter CP/M jedoch wieder den amerika- 
nischen benötigt. Es gibt allerdings eine direkt einzuge- 
bende Steuersequenz, mit der sich die Zeichensätze eben- 


L eider wird von Schneider für die Diskettenstation das 


sogut umschalten lassen. Damit 
überflüssig. 

Um auf den deutschen Zeichensatz umzuschalten (mit 
Umlauten), war bisher folgende Eingabe notwendig: 
LANGUAGE 2 

Bei der neuen Methode gibt man unter CP/M einfach 
<CTRL+[> gefolgt von einer <2> und der Zahl für den 
Zeichensatz ein. Die Zahl ist die gleiche wie bei der 
Umschaltung mit Language. Eine »Submit«-Datei, die vom 
amerikanischen auf den deutschen Zeichensatz um- 
schaltet, Wordstar aufruft und nach Rückkehr ins CP/M 
wieder auf den amerikanischen Zeichensatz zurückschal- 
tet, sieht folgendermaßen aus: 
<CTRL+[> 22 ;deutsche Umlaute 
WS ;Aufruf von Wordstar 
<CTRL+[> 20 ;ASCII 

Mit diesem Trick benötigen Sie das Programm Language 
nicht mehr und haben den Diskettenplatz für andere 
Zwecke frei. 

Es lassen sich noch weitere Funktionen mit diesem Trick 
ausführen, wie zum Beispiel einen anderen Bildschirmmo- 
dus wählen. Die Befehlssequenzen dafür sind alle im 
CPC-6128-Handbuch zusammengefaßt. Allgemein lassen 
sich alle »Escape«-Sequenzen ausführen, in denen keine 
kleinen Buchstaben vorkommen, denn CP/M wandelt 
kleine Buchstaben automatisch in Großbuchstaben um. 

(Michael Kruse/hf) 


wird Language 


Be NDD 
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Druckeranschluß 
zweckentfremdet 


Am Centronics- 
Port Ihres CPC 
läßt sich nicht 
nur ein Drucker 
anschließen. 
Für Bastler 
ergibt sich hier 
die Gelegenheit, 
mit wenig Auf- 
wand Schal- 
tungen anzu- 
steuern. 


J eder Bastler kennt das Problem: Er möchte eigentlich 


+5V (intern 
oder 


»nur« eine Kleinigkeit am Computer ausprobieren. 

Doch weil die Ausgangssignale des CPC am Erweite- 
rungsanschluß nur teilweise gepuffert sind, muß man erst 
eine Signalpufferung aus Leitungstreibern (Verstärker) und 
Zwischenspeichern aufbauen, um die Signale des Compu- 
ters überhaupt verwerten zu können. 

Für die Ansteuerung einer Schaltung durch Software ist 
dann noch die Entwicklung einer Dekodierschaltung erfor- 
derlich, die nur auf eine bestimmte Portadresse reagiert. 
Wie Sie sehen, setzen deshalb selbst kleine Experimente 
sehr viel Schaltungsaufwand voraus. 

Es gibt jedoch eine Lösung, die sowohl hardwaremäßig 
als auch softwaremäßig wesentlich weniger Aufwand erfor- 
dert. Sie müssen dazu nur den Druckeranschluß zweckent- 
fremden. 

Der Druckeranschluß ist in der Lage, 8 Bit (die Datenbits 
DO bis D6 und das STROBE-Signal) parallel auszugeben. 
Ein Puffern und Zwischenspeichern dieser Signale ist nicht 
erforderlich, weil dies bereits intern von dem 8-Bit-Register 
741LS373 besorgt wird. 

Auch die Ansteuerung per Software ist denkbar einfach. 
Das 8-Bit-Register, das seinen Inhalt auf den Druckeran- 
schluß legt, läßt sich über alle 16-Bit-Adressen, die mit dem 
Byte EF (hex) beginnen, programmieren. 

Der Basic-Befehl 


Bild 2. 

Mit dieser Schaltung 
lassen sich auch 
größere Relais 
ansteuern 


+5V (intern oder 


OUT &EFFF,&X11111111 

setzt beispielsweise die Datenbits DO bis D6 auf 1 und das 
STROBE-Signal auf 0, weil dieses von der internen Elektro- 
nik des CPC zusätzlich invertiert wird. 

In Maschinensprache läßt sich mit dem OUT-Befehl in 
der Regel nur eine 8-Bit-Portadresse übergeben. Wenn Sie 
jedoch den Befehl OUT (C), Register verwenden, wird zu 
jedem OUT-Befehl gleichzeitig der Inhalt des B-Registers 
auf die Adreßleitungen A8 bis A15 kopiert, so daß eine 
16-Bit-Portadresse entsteht. 

So lassen sich beispielsweise mit 
LD A,HOFF 
LD B,HOEF 
OUT (C),A 
wie im ersten Beispiel alle Datenbits auf 1 und das 
STROBE-Bit auf O setzen, und der Wert 80 (hex) in A legt 
alle acht Bit auf 0. 

Damit Sie auch gleich etwas zum Basteln und Ausprobie- 
ren haben, zeigt Bild 1, wie man eine Leuchtdiode über den 
Druckeranschluß schaltet, und Bild 2, wie sich ein Relais 
ansteuern läßt. 

Die Pinbelegung des Druckeranschlusses finden Sie im 
Handbuch zum CPC. Für den Anschluß Ihrer Schaltungen 
empfiehlt es sich, am Druckeranschluß einen Platinen- 
stecker aufzuschieben und an dessen Anschlüsse die Lei- 
tungen zu löten, die Sie für Ihre Zwecke benötigen. (ma) 


Drucker im Streik 


Wenn der Drucker streikt, obwohl das Gerät 
betriebsbereit ist, der Computer funktioniert und 
das Druckerkabel richtig steckt, empfiehlt es 
sich, den DIP-Schalter SLCT IN zu überprüfen. 


Drucker, der Drucker ist eingeschaltet und befindet 

sich in der Betriebsart ON LINE, das Druckerkabel ist 
ordnungsgemäß befestigt, Druckpapier ist eingespannt - 
und Ihr Drucker arbeitet trotzdem nicht! In diesem Fallkann 
es sein, daß der DIP-Schalter, der für das logische Signal 
SLCT IN zuständig ist, auf der Stellung ON steht. Dadurch 
läßt sich der Drucker nur mit einem aktiven SELECT-Signal 


& tellen Sie sich vor, Ihr Computer sendet Daten an den 


aktivieren. Weil der Schneider CPC dieses Signal jedoch 
nie erzeugt, ist der Drucker folglich gesperrt. 

Ein Umstellen des entsprechenden DIP-Schalters in die 
Position OFF erweckt den Drucker wieder zum Leben. Zum 
Umschalten des DIP-Schalters ist es jedoch (für die 
Druckerelektronik) gesünder, wenn Sie das Gerät vorher 
ausschalten. 

Der angesprochene DIP-Schalter ist übrigens auch eine 
hilfreiche Maßnahme, um unbefugte Personen von der 
Benutzung Ihres Druckers abzuhalten. Einfach den DIP- 
Schalter auf ON stellen, und der kleine Bruder kann nicht 
mehr testen, wie lange es dauert, bis der Drucker tausend 
Blatt Endlospapier mit dem Satz »Mein großer Bruder ist 
doof!« bedruckt hat. (Stefan vom Bruch/ma) 
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18 KByte mehr 


Es ist eine Binsenweisheit, daß man nie genug 
Speicherplatz auf einer Diskette haben kann. Wir 
zeigen Ihnen, wie Sie unter CP/M Plus auf allen 
3-Zoll-Disketten auch die Diskettenspuren 40 und 
41 nutzen können und dadurch pro Seite 9 KByte 
mehr Speicherplatz erhalten. 


ur ein kleiner Patch für CP/M Plus ist nötig, damit 
SW Ihnen im Systemformat 180 KByte und im Data- 

Only-Format 189 KByte Speicherkapazität pro 
3-Zoll-Diskettenseite zur Verfügung stehen. Dieser beacht- 
liche Gewinn an Speicherplatz läßt sich erreichen, indem 
CP/M Plus nicht - wie sonst üblich - die Spuren O bis 39, 
sondern die Spuren O bis 41, also 2 Spuren zusätzlich für 
die Datenaufzeichnung benutzt. 


Dadurch, daß auch Amsdos und CP/M 2.2 die Spuren 40° 


und 41 anstandslos lesen, steht Ihnen auch unter diesen 
beiden Betriebssystemen der neue Speicherplatz auf der 
Diskette zur Verfügung. 

Sie müssen zwei kleine Änderungen an CP/M Plus vor- 
nehmen, damit die Verarbeitung der zwei neuen Spuren 
auch dauerhaft in das Betriebssystem eingebunden wird. 
Im folgenden beschreiben wir detailliert, wie Sie dazu vor- 
gehen müssen, so daß unsere Anleitung auch CP/M- 
Neulingen keine Schwierigkeiten bereitet. Trotzdem neh- 
men Sie alle beschriebenen Maßnahmen nur an Dateien 


SUPERCOPY 


TEAC 


MADE IN JAPAN BY FANATICS 


G5SE-CPC 448, 


5'/,”-Floppylaufwerk 
Seite 1/2 umschaltbar 
= 360 kB Kapazität 


Für CPC 664/6128 
(Bitte bei der Bestellung 
angeben!) 


Das Disketten-Kopierprogramm der Super- 
lative für alle CPCs und Joyce PCW 8512/256 
Mit dem absoluten Servicehammer, 
der für höchste Qualität spricht! 

Sollte SUPERCOPY einmal etwas 
nicht schaffen: 

Senden Sie die Originaldiskette des Pro- 
gramms und die SUPERCOPY-Disk an uns, 
dann erhalten Sie kostenlos eine neue 
Version, die auch diesen Kopierschutz erkennt. 
Sicherheitskopie von SUPERCOPY möglich. 
Sehr bedienungsfreundlich und schnell. 
SUPERCOPY erstellt von 99,9% der auf dem 
Markt befindl. Software ein Sicherheitsduplikat. 
3”-Diskette für JOYCE DM 89,- 
3”-Diskette für CPC DM 79,- 


(Versand per Nachnahme + 5,- Versandkosten 


SCHOGUE-SOFT 
Postfach 4027 ®e 7307 Aichwald 
Tel. (07 11) 362983 u. 363652 


Handleranfragen erwünscht! 


TEAC-Diskettenlaufwerke 


slimline - 2x80 Tracks - 1 MB: FD 35 FN 239,- FD 55 FV 289,- 
Passende Floppygehäuse: 31%” 25,- 514” 45,- Floppynetzteil 69,- 


Anschlußfertig für Schneider CPC - 31”: DM 449,- 
830 KB formatierte Kapazität - 
514”: DM 499,- 


inklusive DiskPara und MsCopy 
DiskPara DM 79,- 


Auf beliebigen Zweitlaufwerken steht eine Kapazität von 830 KB (2x 80 Tr.) bzw. 
410 KB (2x40 Tr.) zur Verfügung. Lesen, Schreiben und Formatieren von fast 
allen CP/M-Diskettenformaten. Mit MsCopy ist auch das Lesen und Schreiben 
von MS-DOS-Disketten möglich (Aufpreis DM 20,-). 
Neu: Jetzt auch kompatibel zu Vortex- und DK‘tronics Speicherkarten. 
Siehe auch Tests in Happy Computer 4/87, CPC Magazin 4/87, PC International 
6/87, c’t 5/8 und Schneider Aktiv 2/87. 

2x80 Tracks - problemloser 31%” (720KB) 349,— 
JOYCE Anschluß - 100% kompatibel 514” DM 449,- (mit Netzteil 


FSE - Frank Strauß Elektronik - Tel. (0631) 69371 
Weberstraße 28 - 6750 Kaiserslautern 


8031 BIBURG - KIRCHSTR. 3 
081 41-6797 


Copydata GmbH 


vor, von denen Sie auch garantiert Sicherheitskopien 
besitzen! 

1. Starten Siie CP/M Plus. 

2. Legen Sie Ihre erste System-Diskette mit der Seite 2 
nach oben in das Lauifwerk. 

3. Laden Sie die Datei »SID.COM« durch Eingabe von 
»SID« und Drücken der EN TTER-Taste. 

4. Legen Sie eine Diskette 
»C10CPM3.EMS« in das Laufwerk. 

5. Laden Sie die CP/M-Version mit »#RC10CPM3.EMS« 
gefolgt von <ENTER>. 

6. Geben Sie » #S0ODDO«gefolgtvon <ENTER> ein und 
warten Sie, bis »ODDO AA« erscheint. 

7. Tippen Sie nun »B3« und <ENTER> sowie <.> und 
<ENTER> ein. 

8. Darauf geben Sie »S #0DEA« gefolgt von <ENTER> 
ein und warten, bis »ODEA B&%« erscheint. 

9. Jetzttippen Sie»BC«und <ENTER> sowie <.> und 
<ENTER> ein. 

10. Zuletzt müssen Sie die gepatchte CP/M-Version mit 
» #WC10CPM3.EMS« speichern. 

Damit Sie auch die Spuren 40 und 41 beschreiben kön- 
nen, müssen diese erst einmal formatiert werden. Dazu 
sind zwei kleine Änderungen im Programm »DISCKIT« 
erforderlich. 

1. Legen Sie eine Diskette mit »DISCKIT3.COM« in das 
Laufwerk. 


mit der Datei 


DER NEUE KATALOG IST DA! 


Jede Menge Angebote für alle 
führenden Computertypen. 
Ausführliche Informationen zu 
vielen aktuellen Programmen. 
Reichlich Soft- und Hardware für: 

e Schneider CPC 

e Schneider Joyce 
e Schneider PC 1512 
e ATARIST 


KOSTENPUNKT:DM 2,- 


(Werden bei dereersten Bestellung verrechnet) 
Ausschneiden und in Kuvert stecken. Absender nicht vergessen! 


Ja, senden Sie mir umgehend Ihren Katalog 


Meine Anschrift: 


| Mein Computer: 
Zahlungsweise: O Bar OÖ Scheck (DM 2,50) O Briefm. 


WALDECK-SOFTWARE 
Tulpenstraße 30 
2870 Delmenhorst 
Telefon 04221/16464 


KAAPPY® 
COMPUTER 
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2. Laden Sie DISCKIT SID 

» #RDISCKIT3.COM«. 
3. Geben Sie » #S09B3« gefolgt von <ENTER> ein/und 

warten Sie, bis »09B3 27« erscheint. j 

4. Tippen Sie »29« und <ENTER> sowie <..> und 
<ENTER> ein. 

5. Wählen Sie nun »S#0A13« gefolgt vor, <ENTER> 
und warten Sie, bis »0A13 27« erscheint. 

6. Jetzt tippen Sie wieder »29« und <ENTER> sowie 
<.> und <ENTER> ein. 

7. Mit »#WDISCKIT3.COM« sweichern Sie die neue Ver- 
sion von DISCKIT ab. 

Die mais DISCKIT -Version führt fortan die Formatierung 
wis Spur 41 aus. 

Lösen Sie probeweise mit <CTRL+SHIFT+ESC> 
einen Reset aus, und starten Sie CP/M Plus erneut. Wenn 
Sie sich jetzt mit dem Befehl SHOW die Laufwerks- 
Parameter ansehen, muß jede Diskette 9 KByte mehr an 
Daten aufnehmen können. (Michael Kruse/ma) 


Stopp für 
»Notfälle« 


Es gibt im Leben eines Computerbesitzers Situa- 
tionen, in denen er sich nichts sehnlicher als 
einen Stopschalter für sein Gerät wünscht, um 
ein Programm wegen einer Unterbrechung vor- 
übergehend anhalten zu können. 


S:: Sie sich vor, Sie spielen ein Arcade-Spiel und 


unter durch 


es klingelt an der Tür, oder Sie möchten ein Bild- 

schirmfoto von Ihrem neuen Punkterekord machen, 
und das Spiel hat keine Pausenfunktion. In beiden Fällen 
kommt es zu einer mittelschweren Katastrophe, weil Sie 
den Computer nicht anhalten können. 

Es gibt jedoch eine simple Methode, die in diesen Situa- 
tionen Abhilfe schafft. Sie müssen lediglich am Erweite- 
rungsanschluß des CPC Pin 39 (READY) mit Pin 49 (GND) 
über einen Schalter vom Typ »ein/aus« verbinden. 

Wenn der Schalter offen ist, funktioniert Ihr CPC wie 
gewöhnlich, doch wenn Sie den Schalter schließen, legt er 
das READY-Signal, das mit dem WAIT-Eingang des 
Z80-Prozessors verbunden ist, auf Masse. Dadurch wartet 
der Prozessor so lange mit der Ausführung des nächsten 
Befehls, bis das Signal wieder von Masse getrennt bezie- 
hungsweise der Schalter geöffnet wird. 

Da im Schneider CPC das Auffrischen (Refresh) der 
dynamischen Speicherbausteine nicht der Prozessor, son- 
dern das Gate Array vornimmt, kann der WAIT-Zyklus belie- 
big lang ausgedehnt werden, ohne den Inhalt des Arbeits- 
speichers zu löschen. Somit hat der Schalter die Funktion 
eines Stop-Schalters, der ein Programm auf dem CPC 
jederzeit für einen beliebigen Zeitraum anhalten kann. 

Für den Einbau des Stop-Schalters müssen Sie lediglich 
an Pin 39 und an Pin 49 des Erweiterungsanschlusses 
einen Draht löten und die beiden Drähte über den Schalter 
miteinander verbinden. Achten Sie darauf, daß Sie die bei- 
den Drähte so weit vom Platinenrand entfernt auflöten, daß 
sich auch noch ein Stecker aufschieben läßt. Gehen Sie 
bitte auch sparsam mit dem Lötzinn um, damit es nicht zu 
Kurzschlüssen zwischen nebeneinanderliegenden Kon- 
takten kommt. (Boris Lehmann/ma) 


Control- 


Codes unter 
Kontrolle 


Wer ein Listing, das Control-Codes als Steuerzei- 
chen enthält, ausdrucken möchte, bekommt 
Schwierigkeiten mit dem Druckformat, weil der 
Drucker die Zeichen zum Teil falsch interpretiert. 


U m auch Basic-Programme, die aus Control-Codes 


bestehende Steuerzeichen enthalten, einwandfrei 

auszudrucken, ist ein kleiner Trick erforderlich. Das 
Programm »Ctrllist« durchsucht ein Listing, das zuvor mit 
»SAVE”@”,A« als ASCII-Datei gespeichert wurde, Zei- 
chen für Zeichen nach Control-Codes. 

Ist ein Control-Code gefunden, so wird der Buchstabe 
ermittelt, der zusammen mit der CTRL-Taste gedrückt wer- 
den muß, um den Control-Code zu erzeugen. Dieser Buch- 
stabe wird nun anstelle des Control-Codes ausgedruckt. 

Damit sich der Buchstabe jedoch von einem herkömm- 
lichen Buchstaben unterscheidet, erscheint er auf dem 
Ausdruck unterstrichen. Das heißt, beim Eintippen eines 
auf diese Weise erzeugten Listings ist bei jedem unterstri- 
chenen Buchstaben gleichzeitig die CTRL-Taste zu 
drücken. 

Die im Listing verwendeten Steuerzeichen gelten für 
Epson-kompatible Drucker wie Star NG-10 und NL-10, 
DMP-2000 und DMP-3000 etc. Als Besitzer des Schneider- 
Druckers NLQ 401 müssen Sie statt der Zeichenfolge 
"ECTRL+[}) R’CHR$(O) 
die Kombination 
"ECTRL+L) 7” 
eingeben, um den amerikanischen Zeichensatz auszu- 
wählen. 

Drucker ohne Unterstreichungsfunktion können das Pro- 
gramm verarbeiten, indem sie für die Ausgabe der Control- 
Codes auf Breitschrift geschaltet werden. Für den Sei- 
kosha GP-100A gelten beispielsweise folgende Werte: 
a$(0)= ” |CTRL+O} für Normalschrift und 
a$(1)= ” [CTRL+N] für Breitschrift. 

Anstelle der geschweiften Klammern mit Inhalt, müssen 
Sie an dieser Stelle im Listing die beiden angegebenen 
Tasten gleichzeitig drücken. (Dieter Taube/ma) 


1 WIDTH 255: FRINT#8, "{CTRL+LCIR"CHRE (BD): a 
$(B)="ICTRL+CH-"+CHRE (BI) :a$l1)="ICTRL+L[> 
-{CTRL+A3":DFENIN"@"=:WHILE NOT EOF=:LINE 
INFUT#9,z$:FOR z=1 TO LEN(z$) :x=ASC (MID$ 


(z#,2))2 f=- (332) :FRINT#B,a#(f)CHRE (x+(& 
4+47#(x=31))#F)a#(B) 5; :NEXT:FRINT#8: WEND: 
CLOSEIN 


Listing. Mit diesem Programm gehören Probleme, die Sie 
bislang mit Control-Codes hatten, der Vergangenheit an 
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Bilder mühelos kopiert 


Da hat der Anwender mit seinem Malprogramm 
nun eine Diskette mit Bild-Dateien gefüllt und 
möchte sie auf eine andere Diskette kopieren. 
Doch wie funktioniert das Kopieren unter Basic, 
ohne den Inhalt einer Bild-Datei zu zerstören? 


er gelegentlich mit einem Malprogramm arbei- 
tet, weiß auseigener Erfahrung, wie schnell eine 
Diskette mit selbstgezeichneten Bildern belegt 
ist. Sobald die erste Arbeitsdiskette voll ist, empfiehltessich, 
für jede Art von Bildern (zum Beispiel Landschaften, 
Comics, Schaltungen und Konstruktionszeichnungen) eine 
eigene Diskette anzulegen, damit man später nicht alle Dis- 
ketten nach einem bestimmten Bild durchsuchen muß. 
Doch wie kopiert man Bilder unter Basic von einer Dis- 
kette auf eine andere? Im Prinzip funktioniert es ganz ein- 
fach, indem man das gewünschte Bild in den Bildschirm- 
speicher (Adresse C000 bis FFFF hex) des CPC lädt und 
von dort auf eine andere Diskette schreibt. Doch muß man 
beachten, daß das zu kopierende Bild nicht durch 
Betriebssystem-Meldungen oder Abfragen überschrieben 
wird, weil diese ebenfalls auf den Bildschirm ausgegeben 
und damit in den Speicherbereich zwischen C000 und 
FFFF (hex) geschrieben werden. 
Unser Listing zeigt den Einzeiler »Bildcopy«, der ein Bild 
nach Abfrage von Bildschirmmodus und Dateinamen in 


Ladehilfe für Eilige 


Ein Einzeiler, der eine Taste im Ziffernblock des 
Schneider CPC mit einem kleinen Programm 
belegt, erweist sich als große Hilfe beim Laden 
von Programmen, die sich auf Diskette befinden. 


erkennt nicht das Problem: Man möchte ein Pro- 
WW von Diskette laden, hat jedoch nicht 

mehr die exakte Bezeichnung der Datei im Kopf. 
So listet man zunächst das Inhaltsverzeichnis der Diskette 
mit »CAT«. Falls der Computer jedoch im Modus 1 arbeitet 
und sich viele Dateien auf der Diskette befinden, ist unter 
Umständen die Hälfte des Verzeichnisses schon wieder 
verschwunden, bevor man Zeit hatte, den Inhalt zu studie- 
ren. 

Deshalb muß der entnervte CPC-Besitzer mit »MODE 2« 
in den Bildschirmmodus 2 umschalten und das Disketten- 
Inhaltsverzeichnis erneut listen. Darauf kann er endlich 
»LOAD ” « eingeben und den richtigen Dateinamen eintip- 
pen. Sofern er sich nicht verschrieben hat, wird dann auch 
tatsächlich das gewünschte Programm geladen. 

Diese umständliche Prozedur verkürzt der Einzeiler 
»Catcopy« ganz erheblich. Catcopy ordnet der Punkt-Taste 
im Ziffernblock ein kleines Programm zu, das sich bei 
Druck der Taste selbst startet. Das Programm schaltet den 
a inden Modus 2 um, listet das Inhaltsverzeichnis 
der Diskette im aktuellen Laufwerk und fragt anschließend 
den Namen des zu ladenden Programms ab. Nun können 
Sie den COPY-Cursor an den Anfang des gewünschten 
Dateinamens steuern, die Bezeichnung mit der COPY- 


den Bildschirmspeicher lädt und nach Tastendruck wieder 
auf eine Diskette schreibt. Während des Kopiervorgangs 
wird keine Abfrage ausgegeben und die sonst üblichen 
Kopier-Meldungen lassen sich mit »!« unterdrücken. So 
wird der Bildschirminhalt und damit das Bild garantiert 
nicht verändert und kann gefahrlos beliebig oft von einer 
Diskette auf eine andere kopiert werden. 

(Christian Steinbach/ma) 


1 MODE Z:INFUT"Welcher Bildschirmmodus”; 
n:IF miß OR m>Z THEN RUN ELSE INFUT"Date 


iname";nt:IF LEN(n#)21 OR LEN(n#) >12 THE 
N RUN ELSE MODE m:FRINT"Nach dem Laden D 


isk wechseln und Taste druecken!":LOAD" 
IN4n#, 3 CDBB: CALL %EBR&: SAVE" !"+n$,b,%C80 
2,4200: RUN 


Listing. »Bildcopy« kopiert Bild-Dateien problemlos von 
einer zu anderen Diskette 


Steckbrief 


Datenträger: 


Kassette, Diskette 


Taste übernehmen und durch Drücken der ENTER-Taste 
den Ladevorgang auslösen. 

Die Neubelegung der Punkt-Taste bleibt bis zum Aus- 
schalten des Computers beziehungsweise bis zum näch- 
sten Reset erhalten. Mit dieser Methode lassen sich übri- 
gens auch alle anderen Funktionstasten belegen. Wenn 
Ihnen weitere hilfreiche Programme einfallen, haben Sie 
bald eine komplette Utility-Sammlung zusammen, die Sie 
über die einzelnen Funktionstasten bequem aufrufen kön- 
nen. (Matthias Kauer/ma) 


1 KEY 157,"1 DON ERROR GOTG 1:MODE 2:CAT: 
INFUT"+CHR$ (34) +"Welche Datei "+CHR# (34) + 


"sa&: IF LEN(a$) >12 THEN RUN ELSE MODE 1: 
LOAD a#"+CHR$ (13) +"RUN"+CHR$ (13) :KEY DEF 
7,1,157 


Listing. Dieses kurze Programm belegt eine Taste des 
Schneider CPC mit einer Routine zum Laden von Dateien 


CPC 464/6641/6128 


APP} 
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Basic-Befehlssatz 
des CPC auf einen Blick 


Für Basic-Programmierer, die 
es leid sind, stundenlang im 
Handbuch zu blättern, um 
einen ganz bestimmten Befehl 
zu finden, haben wir eine 
Tabelle zusammengestellt, die 
die Basic-Befehle des CPC 
übersichtlich auflistet. 


eht es Ihnen auch so? Sie 
suchen einen ganz bestimm- 
ten Basic-Befehl und wissen 
auch, daß dieser Befehl im Locomo- 
tive-Basic existiert. Doch der Name 
des Befehls fällt Ihnen partout nicht 
ein, und die exakte Syntax haben Sie 
auch nicht mehr im Kopf. 
Normalerweise müßten Sie jetzt das 
CPC-Handbuch hervorkramen und 
mit der zeitraubenden Suche nach 
diesem Befehl beginnen. Dank unse- 
rer Basic-Befehlstabelle sind diese 
Zeiten jedoch endgültig vorbei. Die fol- 
gende Tabelle listet alle Basic-Befehle 
des Schneider CPC thematisch ge- 


öl Mic 


Befehl und Parameter 
nn E17 REN 


Schleife, in der die Laufvariable 

TO <real2> [STEP <real3>]| <variable> ausgehend vom Wert <reali > 
[mit einer Schrittweite von <real3>] 

(oder 1) bis auf <real2> herauf- oder 
heruntergezählt wird 


FOR <variable> = <reali > 


gliedert und innerhalb des Themas 
alphabetisch geordnet auf. Ebenso 
sind die Syntax und eine kurze Erklä- 
rung zu jedem Befehl angegeben. 

Bei den Namen in spitzen Klam- 
mern handelt es sich um Parameter 
(variable Werte). Sind die Parameter 
zusätzlich in eckige Klammern einge- 
schlossen, so kann man diese Werte 
bei Bedarf verwenden. Der zugehö- 
rige Text in der Erklärung ist dann 
ebenfalls in eckigen Klammern einge- 
schlossen. 


Parameter im Detail 


Die Namen der verschiedenen Para- 
meter wurden so gewählt, daß sie sich 
meistens selbst erklären. Ein Verzeich- 
nis am Ende der Tabelle gibt jedoch 
zusätzlich die exakte Bedeutung zu 
jedem Parameter mit Wertebereich an. 

Ist ein Parameter nicht zwingend 
erforderlich (optional) und wird er vom 
Programmierer im Befehl nicht einge- 


WHILE <argument> 


GOSUB <zeile> Unterprogrammaufruf ab Programmzeile 
<zeile> 


GOTO <zeile> 
IF <argument> THEN 


<Befehl oder Zeilennummer> [ELSE 

< Befehl oder Zeilennummer>] Wenn Ver- 
gleich oder Ausdruck von <argument> 
wahr, dann Befehl hinter THEN ausführen 
bzw. angegebene Zeile aufrufen [sonst 


Befehl und Parameter 


Ende eines Unterprogramms und Rückkehr 
in das Hauptprogramm 


WEND Ende der WHILE-WEND-Schleife 


Befehl hinter ELSE ausführen bzw. angebe- 
nene Zeile aufrufen] 


NEXT [<variable>] Ende der FOR-NEXT-Schleife [mit der Lauf- 
variablen <variable>] 

ON BREAK CONT Blockierung die ESC-Taste um die Unter- 
brechung eines laufenden Programmes zu 
verhindern 

ON BREAK GOSUB <zeile> | Unterprogrammaufruf ab Programmzeile 
<zeile>, wenn zweimal die ESC-Taste 
gedrückt wurde 

ON BREAK STOP Freigabe der ESC-Taste zur Programm- 
unterbrechung (die Wirkung der Befehle ON 
BREAK CONT und ON BREAK GOSUB 
wird damit aufgehoben) 


ON <argument> Unterprogrammaufruf ab einer Programm- 

GOSUB <zeilen> zeile von <zeilen>, abhängig von argu- 
ment (<argument>=1 bewirkt Unterpro- 
grammaufruf ab der ersten aufgeführten 
Zeilennummer, <argument>=2 bewirkt 
Aufruf ab der zweiten Zeilennummer usw.) 


Aufruf einer Programmzeile von <zeilen>, 
abhängig von argument (<argument>=1 
bewirkt Aufruf der ersten aufgeführten Zei- 
lennummer, <argument > =2 bewirkt Aufruf 
der zweiten Zeilennummer usw.) 


Tabelle. Die Basic-Befehle des Schneider CPC 


CHAIN MERGE <name> 
[‚<zeile>] (‚DELETE 
<zeilei > - <zeile2>] 


CLOSEIN 


OPENOUT <name> 


ON <argument> 


SAVE <name> [,<typ> 
GOTO <zeilen> „ are 


[, <adresse3>] 


[‚, <adressei >, <adresse2>] 


setzt, so nimmt der Basic-Interpreter 
des CPC für diesen Parameter auto- 
matisch den Wert O an. In Fällen, wo 
eine andere Zahl als Standardwert 
benutzt wird (zum Beispiel bei der 
Schrittweite einer FOR-NEXT-Schlei- 
fe), ist dieser Umstand in der Erklä- 
rung zu diesem Befehl gesondert ver- 
merkt. 

Die Erklärungen zu den einzelnen 
Befehlen sind aus Platzgründen sehr 
knapp gehalten. Handelt es sich bei 
den Befehlen um Funktionen (an 
der Klammer hinter dem Befehlswort 
erkennbar), so definiert die Erklärung 
die Form des Ergebnisses der Funk- 
tion. Weil die Sound-Befehle ENT, 
ENV, SOUND und SQ (<kanal>) 
sehr komplex sind, wird in der Tabelle 
aus Platzgründen auf den Grund- 
lagenartikel im 7. Schneider-Sonder- 
heft (ab Seite 150) verwiesen. Die 
detaillierte Bedeutung der Parameter 
<format>, <ftaste>, <matrix> 
und <taste> ist dem Handbuch zu 
entnehmen. (ma) 


Solange der Vergleich von <argument> 
erfüllt ist, werden die bis zum nächsten 

WEND folgenden Befehle als Programm- 
schleife ausgeführt 


CAT Auflisten des Kassetten- oder Disketten- 
inhaltes 

CHAIN <name> [,<zeile>] | Programm <name> wird geladen und 
[ab Programmzeile <zeile>] ausgeführt 


Programm <name> wird geladen, in das 
bestehende Programm eingefügt und [ab 
Programmzeile <zeile>] ausgeführt. [Die 
Zeilen <zeilel > bis <zeile2> werden 
zuvor gelösc. 


Geöffnete Eingabedatei schließen 


CLOSEOUT Geöffnete Ausgabedatei schließen 

EOF Zeigt durch den Wert -1 das Dateiende an 
(sonst auf 0 gesetzt) 

LOAD <name> Datei <name> [ab Adresse <adresse>] 

‚<adresse >] in den Speicher laden 

MERGE <name> Programm <name> wird geladen und in 
das bestehende Programm eingefügt 

OPENIN <name> Eingabedatei mit dem Namen <name> 
öffnen 


Ausgabedatei mit dem Namen <name> 
öffnen 


RUN [<name>] Programmstart [von Programm <name> 


Programm <name> [vom Typ <typ>] 
speichern [Programmbeginn: <adressei >, 
Programmlänge: <adresse2>] [und Start- 
adresse: <adresse3>] 


SPEED WRITE <boolean> | Schaltet Schreibgeschwindigkeit 
Kassettenrecorder um 
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Ein und Ausgabe (Bildschirm, Drucker, Speicher, Ports) 
Befehl und Parameter 
CLEAR INPUT Vorherige Eingaben löschen 
CLS[# <gerät>] Einheit [<gerät>] löschen 


COPYCHR$(# <gerät>) Zeichen auf aktueller Position in Einheit 


<gerät> 
CURSOR [<booleani >] Systemcursor [abhängig von <booleani >] 
[‚,<boolean2>] und Benutzercursor [abhängig von 


<boolean2 >] ein- oder ausschalten 


Fragt ab, ob die Taste mit der Nummer 
<taste> nicht gedrückt (-1), gedrückt (0), 
zusammen mit SHIFT gedrückt (32), zusam- 
men mit CTRL gedrückt (128) oder zusam- 
men mit SHIFT und CTRL gedrückt (160) 
wird 
Text der momentan gedrückten Taste 


Auf Eingabeport <adresse> anliegender 
Wert 


INPUT[# <gerät> ,] [<text>;]| [Ausgabe von <text> und] Abfrage der 
<variablen> Werte für die Variablen <variablen> [über 
das Gerät <gerät>] 


[Ausgabe von Text <text> und] Abfrage 
einer Textzeile für die Variable <variable> 
[über das Gerät <gerät>] 


Positoniert den Textcursor auf dem Punkt 
<x>,<y> [von Fenster <gerät>] 


Auswahl von Bildschirmmodus <mode> 


Ausgabe des Wertes <shortint> über 
Ausgabeport <adresse> 


Inhalt der Speicherzelle <adresse> des 
Arbeitsspeichers 


Wert von <shortint> in Speicherzelle 
<adresse> des Arbeitsspeichers 
schreiben 


Aktuelle Position des Cursors, Druckkopfes 
oder des Dateizeigers auf Gerät <gerät> 


Ausdruck von Text und/oder Variablen [über 
Gerät <gerät>] 


Ausdruck von [Text und/oder Variablen] 
[über Gerät <gerät>,] <shortint> 
Leerzeichen und nachfolgendem Text 
und/oder Variablen 


PRINT[# <gerät>,] Ausdruck von [Text und/oder Variablen] 
[<zeichen>] TAB <shortint> | [über Gerät <gerät>,] Text und/oder Varia- 
<zeichen> blen ab Zeilenposition <shortint> 

PRINT USING <format>; Ausdruck des Wertes von <real> im For- 
<real> 


mat <format> 
VPOS(# <gerät>) Vertikale Position des Textcursors in Fenster 


<gerät> 


Wartet auf die Dateneingabe über Port 
<adresse> [‚verknüpft das eingelesene 
Byte eventuell mit <shortint2> über die 
XOR-Funktion] und verknüpft das Ergebnis 
mit <shortint! > über die AND-Funktion 


Anzahl der Zeichen pro Zeile wird beim 
Drucken auf <shortint> begrenzt 


Definiert Fenster [mit der Nummer 
<gerät>] in den Grenzen <xL> (linke 
Spalte), <xR> (rechte Spalte), <yO> 

(obere Zeile) und <yU> (untere Zeile) 


INKEY(<taste>) 


INKEY$ 
INP(<adresse>) 


LINE INPUT[# <gerät> ‚] 
[<text>;] <variable> 


LOCATE[# <gerät>,] 
<x>,<y> 

MODE <mode> 

OUT <adresse>,<shortint> 


PEEK (<adresse >) 


POKE <adresse >,<shortint >| 


POS# <gerät> 
PRINT[# <gerät>,] 
<zeichen> 


PRINT[# <gerät> ,] 
[<zeichen>] SPC <shortint> 
<zeichen> 


WAIT <adresse >,<shortinti > 
[, <shortint2>] 


WIDTH <shortint> 


WINDOWI[ # <gerät>,] <xL>, 
<xR>,<yO>,<yU> 


sag endhch: ICH BIN 
DA5 MWTELLIGENTE SPRACH- 
ERKENNUNGS -SYSTEM 


Befehl und Parameter 
WINDOW SWAP <geräti>, 
<gerät2> 


WRITE[# <gerät>,] 
<zeichen> 


Bedeutung 


Fenster <geräti> wird gegen Fenster 
<gerät2> ausgetauscht 


Ausdruck von durch Kommata getrennten 
Texten und/oder Variablen [über Gerät 
<gerät>] 
Spaltenbreite auf dem Bildschirm wird auf 
<shortint> Zeichen festgesetzt (die Spal- 
teneinteilung steuert das Komma im PRINT- 


ZONE <shortint> 


Befehl) 


Farbe und Grafik 


BORDER <farbei> 
[‚<farbe2>] 


CLG [<register>] 


Grafikbildschirm [mit Farbe aus INK-Register 
<register>] füllen 


Linie von der aktuellen Position des Grafik- 
cursors bis zum Koordinatenpunkt 
<integeri >,<integer2 > [in der Farbe des 
INK-Registers <register>][mit der Verknüp- 
fung <modus>] ziehen 


Linie von der aktuellen Position des Grafik- 
cursors zum relativen Koordinatenpunkt 
<integeri >,<integer2> [in der Farbe des 
INK-Registers <register>] [mit der Ver- 
knüpfung <modus>] ziehen 

Füllt Fläche, in der die aktuelle Position des 
Grafikcursors liegt, mit der Farbe aus INK- 
Register <register> 


Synchronisation von Grafikaufbau und 
Strahlrücklauf 


Hintergrund der Grafik in Farbe des INK- 
Registers <register> darstellen 


GRAPHICS PEN <register> | Vordergrund der Grafik in Farbe des INK- 
[‚<boolean>] Registers <register> darstellen 


INK <register>,<farbei > INK-Register <register> wird mit der Farbe 
[‚<farbe2>] <tfarbei > [und der Farbe <farbe2>] 
geladen 


MASK <shortint> Die Bits des Wertes von <shortint> 
[‚<boolean>] definieren die Schablone für das Zeichnen 
von Grafiklinien 


Unsichtbare Verschiebung des Grafikcursors 
von der aktuellen Position zum Koordinaten- 
punkt <integeri >,<integer2> [mit Wahl 
der Farbe aus INK-Register <register >] 
[und der Verknüpfung <modus >] 


Unsichtbare Verschiebung des Grafikcursors 
von der aktuellen Position auf den relativen 
Koordinatenpunkt <integeri >, 

<integer2> [mit Wahl der Farbe aus INK- 
Register <register>] [und der Verknüpfung 
<modus>] 


Festlegen des Koordinaten-Nullpunktes auf 
der absoluten Bildschirm-Koordinate 
<integeri >,<integer2> (0,0=links unten) 
[Festlegen des Grafikfensters mit dem rech- 
ten Rand auf Position <integerR>, dem lin- 
ken Rand auf Position <integerL>, dem 
oberen Rand bei <integerO> und dem 
unteren Rand bei <integerU>] 


DRAW <integeri >, 
<integer2> [,<register>] 
[‚,<modus>] 


DRAWAR <integeri>, 
<integer2> [,<register>] 
[‚,<modus>] 


FILL <register> 


FRAME 


GRAPHICS PAPER 
<register> 


MOVE <integeri>, 
<integer2> [,<register>] 
[‚,<modus>] 


MOVER <integeri>, 
<integer2> [,<register>] 
[‚,<modus>] 


ORIGIN <integeri >, 
<integer2> [‚<integerL>, 
<integerR>,<integerO>, 
<integerU>] 


Stumm vie) 


en Fisch 


Befehl und Parameter 


PAPER|[# <gerät>,] <register> Legt die Hintergrundfarbe [für Fenster 
<gerät>] eng Farbe aus INK-Register 
<register> 


PEN[# <gerät>,] <register> | Legt die Zeichenfarbe [für Fenster <gerät>] 
[‚,<boolean >] auf die Farbe aus INK-Register <register> 
fest [und schaltet den Transparentmodus 
abhängig von <boolean> ein oder aus] 
PLOT <integeri>,<integer2> | Grafikpunkt auf die Koordinatenposition 
[, <register>] [, <modus>] <integeri >,<integer2> [in der Farbe 
} INK-Registers <register>] [mit der Verknüp- 
Q setzen 
Grafikpunkt auf die relative Koordinaten- 
position <integeri >,<integer2> [in der 
Farbe des INK-Registers <register>] [mit der 
Verknüpfung <modus>] setzen 


Die erste Farbe im aktuellen INK-Register ist 
jeweils 0,02 x <shortint! > Sekunden und die - 
zweite Farbe jeweils 0,02 x <shortint2> 
Sekunden 
Textausgabe erfolgt auf die Position des Gra- 
fikcursors [in Fenster <gerät>] 
TAGOFF[# <gerät>] Textausgabe erfolgt auf die Position des Text- 
cursors [in Fenster <gerät> 
TEST(<integer! >, Farbnummer des Punktes auf der Grafik- 
<integer2>) position <integeri >,<integer2> 
TESTR(<integeri >, Farbnummer des Punktes auf der relativen 
<integer2>) Grafikposition <intege teger2> 
Vertikale Ordinate des Grafikeursors 


PLOTR <integeri >, 
<integer2> [,<register>] 
[,<modus>] 


SPEED INK <shortinti >, 
<shortint2> 


TAG[ # <gerät>] 


N RR 


Befehl und Parameter 
Fehlercode des letzten Diskettenfehlers 


ERL Nummer der Zeile, in der ein Fehler aufge- 
treten ist 


Nummer des zuletzt aufgetretenen Fehlers 
ERROR <shortint> setzt ERR auf den Wert <shortint> 


ON ERROR GOTO <zeile> | Aufruf der Programmzeile <zeile>, wenn 
sr gg während des Programmlaufs 
auftritt + 


RESUME [<zeile>] Programm wird nach einem ON ERROR 
GOTO-Befehl in der fehlerverursachenden 
Zeile [ab der Programmzeile <zeile>] 
fortgesetzt 


RESUME NEXT Programm wird nach einem ON ERROR 
GOTO-Befehl fortgesetzt, als wäre kein 
Fehler aufgetreten 


<argumenti > mit <argument2> 
COS(<real>) 
DEC$(<real> ‚<format> 
[(<variable>)]= <argument > | Anweisung <argument> 
DEG Umschalten auf Winkelgradmaß 

pötenziert mit <real> 
FiX(<real> 
FN <name >|(< variablen >)] 
Ber 
Wert ab 
LOG(<real>) i i 
LOG10(<real> 
MAX(<numeri>) 


MIN(<numeri> 


<argument! > MOD 
<argument2> 


NOT <argument> 


| 


Rest der Division von <argument! > mit 
<argument2> 
| Invertierung des logischen Wertes von 
argument> 3 ö 
Logische OR-Verknüpfung von 
<argumenti! > mit <argument2> 
dezimaler Wert der Kreiszahl 


eg . 


ROUND(<real>,<bereich>) | Der Wert von <real> wird abhängig von 
<bereich> auf die Anzahl von <bereich> 
Nachkommastellen (<bereich> negativ) 
oder auf <bereich> Vorkommastellen 
(<bereich> positiv) gerundet 

SGN(<real>) 1, wenn <real> größer als 0; -1, wenr 

<real> kleiner als 0; 0, wenn <real> 

eich O ar i u 


SIN(<real>) 
TAN(<real> 


UNT(<adresse>) Wert von <adresse> in den üblichen Wer- 
tebereich von <integer> (-32768bis 
x +32767) umgewandelt erh 
<argumenti> XOR Logische XOR-Verknüpfung (Exklusiv-Oder) 
<argument2> von <argumenti > mit <argument2> 


 Togtamımye 
Befehl und Parameter 


AUTO <zeilei > [‚<zeile2>] | ] e 


CONT unterbrochenes Programm fortsetzen 

DELETE <zeile1> Programmzeile <zeile1> [bis <zeile2>] = 

EDIT <zeile> Programmzeile <zeile> zum Editieren 
aufrufen 


Höchste von Basic beleg! 


LIST [<zeilei >] [-<zeile2>] | Listet Programm [von Zeile <zeile1 >] [bis 
[,# <gerät>] <zeile2>] [auf das Gerät <gerät>] 


MEMORY <adresse> Höchste freie Speicheradresse für Basic- 
Programme und Basic-Variablen gleich 
<adresse> RE 


Löschen des im Arbeitsspeicher befindlichen 
Programmes 
umentation 


NEW 


RENUM [<zeilei >] 
[‚<zeile2>] [,<zeile3>] hend von der neuen Zeilennummer 

<zeilei >] (oder 10) [ab der alten Pro- 
grammzeile <zeile2>] [mit der Schrittweite 


<zeile3>] (oder 10) 


RUN [<zeile>] _ Programmstart [ab Programmzeile <zeile>] 
Programm wird unterbrochen und kann mit 
CONT fortgeführt werden 

TROFF ; Trace-Funktion ausgeschalte N 


TRON Trace-Funktion eingeschaltet (während eines 
Programmlaufs wird die Zeilennummer jeder 
bearbeiteten Programmzeile auf den Bild- 
schirm ausgegeben) 


Befehl und Parameter Bedeutung 
INSTR([<shortint>,] ositior string2> ingt> 
<string! >,<string2>) 


LEFT$(<text>,<shortint>) 


LOWER$(<text>) 


MID$(<text>,<shortinti> 
[<shortint2>]) 


Fügt <shortint2> Zeichen des Textes 
<shortint1>, <text> ab der Position <shortinti1 > in die 
<shortint2>)= <text> Stringvariable <variable> ein 


RIGHT$(<text>,<shortint>) | Die : 
<text> a en 

SPACE$(<shortint>) String bestehend aus <shortint> 
Leerzeichen 


STRING$(<shortint>, 
<text>) 


UPPER$(<text> 


MID$(<variable>, 


Befehl und Parameter Bedeutung 


Frequenzhüllkurve (siehe 7. Schneider- 
Sonderheft, Seite 150) 


ENT 
ENV Lautstärkenhüllkurve (siehe 7. Schneider- 
Sonderheft, Seite 150) 


ON SQ (<kanal>) Unterprogrammaufruf ab Programmzeile 
GOSUB <zeile> <zeile>, wenn in der Tonwarteschlange von 


: Kanal <kanal> mindestens ein Platz frei ist 


RELEASE <kanal> Wartezustand von Kanal <kanal> aufheben 


SOUND <parameter> Definition von Ton und Rauschen (siehe 
a 7. Schneider-Sonderheft, Seite 150) 


SQ(<kanal>) Zustand von Kanal <kanal> (siehe 


7. Schneider-Sonderheft, Seite 150) 
L b 


Befehl und Parameter 
AFTER < jer> Wenn auf der Uhr [<clock>] 0,02 x 
[,<clock>] B <zeile> | <integer> Sekunden verstrichen sind, 
ae erfolgt ein Unterprogrammaufruf ab Zeile 

<zeile> 


Unterbrechungen durch AFTER und EVERY 
sperren 


A Unterbrechungen durch AFTER und EVERY 
5 freigeben 
EVERY <integer> Immer, wenn auf der Uhr [<clock>] 0,02 x 
[‚<clock>] GOSUB <zeile> | <integer> Sekunden abgelaufen sind, 
erfolgt ein Unterprogrammaufruf ab Zeile 
<zeile> 


REMAIN(<clock>) Restzeit von Uhr <clock> (Uhr wird zusätz- 
lich abgeschaltet) 
TIME Zeit, die seit Einschalten des Computers ver- 
strichen ist in der Einheit 1/300 Sekunde 


Befehl und Parameter Bedeutung 


ASC(<string>) Numerischer Wert des ersten Zeichens von 


<string> 


BIN$(<integer > Binärer Wert von <integer> [mit <stellen> 
[‚,<integer>]) Ziffern] 


CHR$(<shortint> ASCII-Zeichen von <shortint> 
CINT(<shortreal>) Gerundeter Integer-Wert von <shortreal> 


Alle Variablen auf 0 setzen und alle Dateien 
vergessen 


CLEAR 


CREAL(<real>) Real-Wert von <real> 
DEFINT <variablen> Definition von Interger-Variablen 
DEFREAL <variablen> Definition von Real-Variablen 

DIM <variable>(<index>) | Definition des Datenfeldes <variable> 
| ERASE <variablen> Variablen <variablen> löschen 


FRE(0) Größe des von Basic nicht benutzten 
Speicherplatzes 


Größe des von Basic nicht benutzten 
Speicherplatzes mit Auslösung einer 
Garbage Collection 

Hexadezimaler Wert von <integer> [mit 
<stellen> Ziffern] 


Der Variablen <variable> wird das 
gebnis von <argument> zugewiesen 


Numerischer Wert von <string> in eine 
Zahl umgewandelt 


HEX$(<integer> 
[‚,<stellen>]) 
‚LET <variable> = 
argument> _ 
VAL(<string>) 


DEFSTR <variablen> Definition von String-Variablen 


<parameter> 


DATA <konstanten> Datenfeld bestehend aus den Daten 
<konstanten > 

Auf Joystick <boolean> wurde »hoch« (1), 
»runter« (2), »links« (4), »rechts« (8), »feueri« 
(16), »feuer2« (32) oder eine Kombination 
(Summe der Werte) gedrückt 
Belegt Funktionstaste <ftaste> mit dem 
Text <text> 


Die Taste mit der Nummer <taste> erzeugt 
den Text von Taste <tastel>, zusammen 
mit SHIFT den Text von <taste2> und 
zusammen mit CTRL den Text von 
<taste3> : 

Werte aus DATA-Zeilen einlesen und den 


Variablen <variablen> zuweisen 


KEY <ftaste>,<text> 


KEY DEF <taste>, 
'<boolean> [,<tastei >] 
[,<taste2>] [‚<taste3>] 


Befehl und Parameter 

RESTORE [<zeile>] Zurücksetzen des DATA-Zeigers [auf den 
ersten Wert der Programmzeile <zeile> 

SPEED KEY <shortinti>, Repeat-Funktion startet nach 0,02 x 

<shortint2> <shortinti > Sekunden und erzeugt alle 

SYMBOL <shortint>, 

<matrix> . 


<shortint> als Bildpunktmuster der Werte 
von <matrix> 


Zeichen ab dem ASCII-Code <shortint> 
können über SYMBOL frei definiert werden 


0,02 x <shortint2> Sekunden ein Zeichen 
SYMBOL AFTER <shortint> 


Definition des Zeichens mit dem ASCII-Code 


<boolean> =0: Aus (CURSOR), nicht 
transparent (GRAPHICS PEN und PEN), 
Joystick 0 (JOY), nicht wiederholen (KEY 
DEF), ersten Punkt nicht setzen oder 1000 
Baud (SPEED WRITE) 


<boolean>=1: Ein (CURSOR), transparent 
(GRAPHICS PEN und PEN), Joystick 1 
(JOY), wiederholen (KEY DEF), ersten Punkt 
setzen (MASK) oder 2000 Baud (SPEED 
WRITE) 


Spezieller Textausdruck, der das Format 
einer Datenausgabe regelt (Näheres siehe 
Handbuch) 


Ein-/Ausgabegerät wie Fenster, Drucker oder 
Kassettenrecorder (0 bis 9) f 


Ganzzahliger Wert oder ganzzahlige Werte, 
die die Anzahl der Felder eines Datenfeldes 
bestimmen 


Ganzzahliger Wert (-32768 bis +32767, 
manchmal bis +65535) 


8 Werte vom Typ <shortint>, die das Bild- 
punktmuster eines Text- oder Grafikzeichens 
definieren (näheres siehe Handbuch) 


Tastennummer (0 bis 79, siehe Handbuch) 


Von Anführungszeichen eingeschlossene 
alphanumerische Zeichenkette oder String- 
variable 


<typ> A=ASCII-Datei, B=Binärdatei, 
P=geschütztes Basic-Programm 


Name einer Variablen 


<variablen> Name einer oder mehrerer durch Komma 
getrennten Variablen 
X-Koordinate (1 bis 80) 
Y-Koordinate (1 bis 25) 


<zeichen> Von Anführungszeichen eingeschlossene 
alphanumerische Zeichenkette und/oder 
Variablen 

<zeile> Zeilennummer einer Basic-Programmzeile (1 
bis 65535) 

<zeilen> Liste von Zeilennummern für Basic- 
Programmzeilen . 


Tabelle. Die Basic-Befehle des Schneider CPC (Schluß) 
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Ihr Computerfachhändler 
Wir führen Schneider, Atari, 
Commodore u.v.a. 
Ladengeschäft: Ginnheimer 
sA9A Landstraße 1, 6000 Frankfurt 90 
: Versand- und Postadresse: 
Kransberger Weg 24 
6000 Frankfurt 50 


Computerstudio 
Hölscher 


Zeppelinstraße 7, 
5010 Bergheim, Telefon: (02271) 62096 


EDV. = Ommnisaen : B . : 
Personal Computer - Software : Zubehör - Fachliteratur 


6457 Maintal- 
Dörnigheim 


©) 
= AA“ 
Vielleicht doch was Ordentliches? (x-PC 
Beratung - Service - Verkauf - Leasing 
Wingertstraße 112 


6457 Maintal/Dörnigheim 
Telefon (06181) 45293 


5300 Bonn 


= 
RADIO-FERNSEHEN 
HIFI-VIDEO 


Plittersdorfer Straße 206Telefon (02 28) 3640 29 


5540 Prüm 15°7475 Meßstetten 


Ri-Systemhändler im Zollern-Alb-Kreis 


Computer - or FNMONTERMIRKT 

% l LEN LITER TNIRMI 
| Software HARDWARE - SOFTWARE - LITERATUR 
on CHEURER 


Ritzstraße 13 - 5540 Prüm 


Telefon 06551-3039 


| 7750Konstanz OO — 
5630 Remscheid 


ATARI « PC’s « SCHNEIDER 


computer - fachgeschäft 


rösler 


Rheingutstr. 1 - 075 31-2 1832 


D-77500 Konstanz 


COM SOFT 


Scheiderstr. 12 - 5630 Remscheid 
Teleton (02191) 21033-34 


8500 Nürnberg 


Einkaufsführer 


5800 Hagen 8000 München 


@3 Schneider Die PC-Sensation 
AZkerm Die 100 Y%-Computer 
NEC Drucker, die passen 
Dipl.-Ing. Spieß 
COMPUTERSYSTEMS 
8000 München 2, Joseph-Spital-Str. 7, Tel. 089/26081 61 


Computer-Centrum 
R. Lanfermann 


Hochstraße 11 
8500 Nürnberg 80 
Tel 0911/28 90 28 


mpulersiore__ 


7 ONPUTER DIVISION 


Wir führen zu den original SCHNEIDER-Produkten Software, Bücher und 


verschiedener Firmen wie DATA BECKER, VORTEX, CUMANA, 
ISS, RUSHWARE, MARKT & TECHNIK, SYBEX, VOGEL-Verlag usw.! 


8900 Augsburg 


what you see is what you get! 


Adolf und Schmoll - Computer 


Hardware, Software, Zubehör 
Technischer Kundendienst 


8900 Augsburg, Schwalbenstr. 1/Ecke Augsburger Str. 


Telefon: 0821/528087 oder 528533 


A 


“ 


Ihr Ansprechpartner für 
Anzeigen in Sonderheften: 


Helmut Distl 
08914613-398 
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Wieder einmal haben Sie ein Schneider-Sonderheft von 
Happy-Computer vor sich liegen. Und wieder fragen wir 
uns, ob wir mit unseren Themen richtig liegen. Denn diese 
Frage können nur Sie - unser Leser - beantworten. Des- 
halb schicken Sie uns bitte den untenstehenden Fragebo- 
gen ausgefüllt zurück. Denn seine Auswertung zeigt uns 
den Weg, den wir mit dem nächsten Schneider-Sonderheft 
einschlagen müssen. 

Auch der Schneider-Teil im Stamm-Magazin Happy- 
Computer wird nach Ihren Vorschlägen gestaltet. Deshalb 
ist Ihre Meinung für uns so immens wichtig. 


Hat Ihnen 
das Heft gefallen? 


Auch Sie profitieren also davon, wenn Sie uns Ihre 
- positive und negative - Kritik wissen lassen. 
Schicken Sie den ausgefüllten Fragebogen bitte an: 


Markt &Technik Verlag AG 
Redaktion Happy-Computer 
Kennwort: Schneider-Umfrage 
Hans-Pinsel-Straße 2 
8013 Haar bei München 


(a) 


Fragebogen zum 8. Schneider-Sonderheft 


Wie hat Ihnen dieses Heft gefallen? 


E] sehr gut [] weniger gut 
[J gut U] gar nicht 
U] mittel 


Welche Rubriken wollen Sie in Zukunft erweitert sehen? 


U] Hardware U] Einsteiger-Teil 

U] Software DO] Aktuelles 

U] Basteleien U] Tips&Tricks 

U] Spiele-Tests 2] Spiele-Listings 

[1 CP/M U] Anwendungs-Listings 


U] Grundlagen OD Grafik-Listings 


Welche Rubriken sollen in Zukunft eingeführt werden? 


Welche Computer-Zeitschriften lesen Sie? 


[2] Happy-Computer 
EU] deutsche Schneider-Zeitschriften - wenn ja, welche? 


U] englische Amstrad-Zeitschriften 
U] andere - wenn ja, welche? 


Welche Schneider-Sonderausgaben von Happy- 
Computer haben Sie sich schon gekauft? 


U 1. Schneider-Sonderheft 
U] 2. Schneider-Sonderheft 
DO 3. Schneider-Sonderheft 
DI] 4. Schneider-Sonderheft 
U 5. Schneider-Sonderheft 
DO] 6. Schneider-Sonderheft 
U] 7. Schneider-Sonderheft 
ED) 8. Schneider-Sonderheft 


Wenn Sie alle acht Schneider-Sonderhefte besitzen, 
welches hat Ihnen am besten gefallen? 


U] 1. Schneider-Sonderheft 
U] 2. Schneider-Sonderheft - 
U] 3. Schneider-Sonderheft 
U] 4. Schneider-Sonderheft 
U] 5. Schneider-Sonderheft 
216. Schneider-Sonderheft 
O1 7. Schneider-Sonderheft 
[] 8. Schneider-Sonderheft 


Welchen Computer besitzen Sie? 


U] Schneider CPC 464 U] einen anderen, welchen? 
U] Schneider CPC 664 
EU] Schneider CPC 6128 
[1 Schneider Joyce 

U] Schneider PC 


Welchen Diskettencontroller besitzen Sie? 


EU] Schneider EU] einen anderen, welchen? 
EU] Vortex 
[U] Vortex X-Controller 


Welche Speichererweiterung besitzen Sie? 


U] Data Media 
DU dk’tronics 
[] Vortex 


DJ eine andere, welche? 


Ich bin damit einverstanden, daß die hier gemachten 
Angaben elektronisch verarbeitet werden. 


Name/Vorname 
Straße 
PLZ/Ort 
Alter 


Jahre 
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Giro-Konto in Unordnung 


Aus vielen Anrufen voller 
Lob, Kritik und Fragen zum 
Programm »Giro« aus dem 6. 
Schneider-Sonderheft (Hap- 
py-Computer-Sonderausgabe 
13, Seite 75) kristallisierte sich 
ein kleiner Fehler heraus, den 
wir natürlich sehr bedauern 
und hier ausmerzen. 

Fügen Sie in das Listing die 
neue Zeile 
1835 e2=e(k)+d(k):IF e2 
<12 THEN e2=e2-12 
ein und ändern Sie den Anfang 
der Zeile 1840 wie folgt 
1840 IF e(k)=n OR e2=n 
THEN ... . 

Ohne diese Änderung er- 
scheint eine zweimonatliche 
Fixbuchung im ersten Monat 
der Vorschau, nicht jedoch im 
dritten. Nach der Neuanlage 
einer Konto-Datei mußten Sie 
bislang auch die Statistik extra 
neu starten, damit das Datum 
in der Kopfzeile der Statistik 
zur Anzeige gelangt. Die fol- 
gende Anderung macht diesen 
zusätzlichen Schritt unnötig 
430 ...al$=a$:b4$=b3$: 
flag=1 

Bei der Handhabung des 
Programms sind noch einige 


51/4'-Zweitlaufwerk für CPC 
Anschlußfertig mit Gehäuse, Netzteil, 
Kabel und Garantie. 


tibel, keine Hard- und 
Softwareänderungen notwendig, 
2x.40 Tracks mit je 180 KByte forma- 
tiert, manuelle Seitenumschaltung mit 
LED-Anzeii bei Systemwechsel 
auch im PC verwendbar. 


Für CPC 464 

Für CPC 664/6128 

PC 1512 Einbau- 
Zweitlaufwerk 
830-KByte-Zweitlaufwerk 
für CPC auf Anfrage 
Gehäuse, Netzteile, Floppykabel (auch für Hi- 
tachi 3”) usw. in meiner kostenlosen Liste! 


Voll 3”-kom| 


DM 440.- 
DM 430.- 


Das absolute Angebot 


Solange es noch User und Software 
für den 664 (11985), 464 (11986; 
Nachfolger PLUS 2), 6128 (!1987?; 
Nachfolger PLUS 3 mit eingebautem 
Laufwerk) und Joyce (!1987?) gibt, 
wird es für Sie als User Software und 
nt u a bei DENI- 
SOFT geben. 

CPC-Katalog (ca. 1700 Titel Hilfsprogram- 
me, Anwendungen, kaufmännische Pro- 
gramme, Originalspiele ab DM 4,85) oder 
Joyce-Katalog (ca. 300 Titel) gegen DM 
2,- in Briefmarken! 

Viele Import-Programme mit deutschem 
Begleittext. Programmbeschreibungsliste 
auf Anfrage. 


DENISOFT 


Godefridus Denis PF 106421 
Bismarckstr. 113/115: 2800 Bremen 1 


Punkte zu beachten, um Feh- 
lerquellen zu vermeiden. So 
müssen Sie sich bei Neuan- 
lage einer Datei die Fixbu- 
chungen im Vormonat der 
ersten Gehaltsbuchung anzei- 
gen lassen, also zum Beispiel: 
31.07.87 Anlegen der 
Fixbuchungen 

01.08.87 Gehaltseingabe 

Zur Datumseingabe ist das 
Format »TTMMJJ« zwingend 
vorgeschrieben (je. eine zwei- 
stellige Zahl für Tag, Monat und 
Jahr ohne Trennung direkt hin- 
tereinander). Da aber Giro die 
Einhaltung dieses Formats 
nicht prüft, führen falsche Ein- 
gaben (beispielsweise mit 
Punkten: »31.12.87«) zu fal- 
schen Berechnungen. 

Daneben ist zu beachten, 
daß die Gehaltseingabe Vor- 
rang gegenüber jeder anderen 
Buchung hat. 

(Ingo Strecker/ja) 


Keine Backups 


Daß uns ein bedauerlicher 
Fehler bei der Beschreibung 
des Listings »Backup-Master« 
im 6. Schneider-Sonderheft 


Philosoft‘® 


Pariser Platz 2 
8000 München 80 
Telefon 089-448 2601 


TEXTVERARBEITUNG 

+ MODEM 

Darstellung von Fettschrift, Kur- 
sivschrift, Unterstreichen, Indi- 
zes und hochgestellte Schrift 
auf dem Bildschirm! Blockbe- 
fehle, Absatz/Seitenumbruch, 
Suchen/Ersetzen, horizontales 
Scrollen, Druckeranpassung, 
perfekt, superschnell! Mailbox- 
betrieb, Textspeicher, Senden 
und Empfangen mit und ohne 
Prüfprotokoll (MODEM7 kom- 
patibel)! 
CPC-Diskette 89,- 


ASSEMBLER + TESTER 
Sehr schneller Assembler für 
Z80-, 8080-, 8085- und 8048- 
Opcodes, 26 Pseudo-Opcodes! 
Symbolischer Tester mit 26 
Funktionen inkl. Multi-BP, Da- 
tentransfer, EPROM progr.! 


CPC-Diskette 129,- 
Komplette Software wie o. a. im 


EPROM auf Erweiterungskar- 
ten für alle CPCs: 
279,- 


Komplett 
dazu als Option: 

RS232-Schnittstelle 119,- 
119,- 


EPROM-Progr.-Gerät 
für 2716 bis 27256 


Info anfordern! 


unterlief, haben die davon 
betroffenen Leser längst 
bemerkt. Der dortige Hinweis 
auf die Lauffähigkeit des Pro- 
gramms auf den CPCs 664 und 
6128 war schlicht fehl am Platz, 
denn aufgrund direkter Aufrufe 
von CPC 464-ROM-Routinen 
arbeitet der Backup-Master 
natürlich nicht auf diesen Com- 
putern. Weil sich jedoch viele 
Besitzer dieser CPC-Typen 
nach Lektüre der vielverspre- 
chenden Anleitung an das 
Abtippen machten, den Man- 
gel entdeckten und uns, teils 
verzweifelt, teils entrüstet mit 
Briefen und Anrufen zudeck- 
ten, fühlten wir uns in die 
Pflicht genommen, schnellst- 
möglich für Abhilfe zu sorgen. 
Bereits im letzten Schneider- 
Sonderheft, spätestens jedoch 
an dieser Stelle sollten Sie den 
entsprechenden Nachhall fin- 
den. Leider gestaltete sich die 
Anpassung aber nicht nur auf- 
wendige, sondern auch 
schwieriger als anfangs abzu- 
sehen war, so daß sie uns zum 
Redaktionsschluß dieser Aus- 
gabe noch nicht vorlag. Inter- 
essierte Leser können sie bei 
uns schriftlich anfordern. Sen- 
den Sie uns dazu bitte eine 


genaue Beschreibung Ihres 
Computersystems: Computer- 
typ, Diskettenlaufwerk und 
eventuelle Erweiterungen. 
Adressieren Sie die Sendung 
an den Verlag, Redaktion 
Happy-Computer, zu Händen 
Thomas Jacobi. Wir schicken 
Ihnen dann das Listing des 
passenden Patches. Noch ein- 
facher wird die Sache für Sie, 
wenn Sie Ihrer Sendung eine 


formatierte 3-Zoll- oder 
Vortex-5-Zoll-Diskette beile- 
gen. (ja) 


Scale für alle 

Für das Programm »Scale« 
aus dem 6. Schneider-Sonder- 
heft, Seite 92 erreichten uns 
inzwischen mehrere Anpas- 
sungen für den CPC 6128. Die 
Version von Wolfang Ried aus 
Feucht wollen wir Ihnen nicht 
vorenthalten. i 

Die nötigen Änderungen 
beschränken sich im wesentli- 
chen auf zwei Problemkreise. 
Das sind die Anpassung diffe- 
rierender Adressen von 
Betriessystemvariablen und 
der Systemroutine zur vorzei- 
chenlosen Multiplikation. Letz- 
tere lagerten die Entwickler der 


BRANDHEISSE KNÜLLERPREISE 


Epsondrucker (dt. Versii 
ne % CPCIPC Tst2nem- Kompatible/ 


Schneider 

CPC 6128 mit Grünmonitor 
CPC 6128 mit Farbmonitor 
Joyce PCW 8256 


ug Plus 
PC 1512 mit SW-Mon. + 1 Laufwerk 
+ 2 Laufwerke 
PC 1512 mit Farbmon. + sl Laufwerk 
2 Laufwerke 
20 MB-Festplatte incl. Controll ler 
20 MB-I KT emiplaiie (Lapine, Lift-off-Automatik) 
no Control 9 
so. jedoch 30 MB-Festplatte 
Filecard (Lapine) 
3 MB-Filecard (Lapine‘ 
Supestaus (Reisware) 
"Disketten (Maxell) 


Akustikkoppler Dasebcn S21dy2 
NEC-Drucker (dt. Version) 

NEC P6 

NEC P6 Color 

NECP7 

Stardrucker (dt. Version 

NL-10 mit Interfacecartridge 
ND-10 mit Centronics-Schnittstelle 


Anechbdnter 
Atari a 
LX 


2500 
Colorkit für EX 80011000 
Einzelblatteinzug FX/EX/LQ 800 
Commodore 


Commodore PC-10 H 

Commodore PC-20 Il 

AMIGA 2000 (1 MB) mit Tastatur, Maus, 

1 Laufwerk und Farbmonitor 1081 
Commodore AMIGA 500 
Commodore-Drucker MPS 1000 
Commodore SX-64 (Executive 
Grünmonitor Thomson (35 MHz) 
Grafiktablett Koalapad für IBM-Kompatible 
mit Colorgrafikkarte + Gameport 


Versandkostenpauschale (Warenwert bis DM 1000,-/darül 


Vorauskasse (DM 8, 


ber): 
8,-/20,-), Nachnahme (DM 11,20/23,20), Ausland (DM 18,-/30,-). 


Lieferung nur gegen NN oder Vorauskasse; Ausland nur Vorauskasse. 
%a 


Preisliste (! 


imputertyp angeben) gegen Zusendung eines Freiumschlags. 


CSV RIEGERT 


Schloßhofstr. 5, 7324 Rechberghausen, Tel. (07161) 52889 


Inserenten in dieser Ausgabe: 


Copydata 149 
CSV Riegert 159 
Dela Elektronik 35 
Denisoft 159 
Dobbertin 143 
Elektronik Center 

Bad Tölz 143 
Kotulla 113 
Markt &Technik-Buchverlag 
2,9, 21, 28/29, 39, 56, 64, 161 
Merz 159 
Philosoft 159 


Rätz-Eberle Verlag 61, 164 
Rausch + Haub 113 
Schneider 13 
Shogue-Soft 149 
Strauß-Elektronik 149 
TG-Soft 113 
Waldeck Software 149 


Bitte beachten Sie auch 
unseren Einkaufsführer auf 
den Seiten 156/157. 
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beiden neueren CPC-Modelle 
ins Basic-ROM aus. Um Scale 
nun auch auf diesen Compu- 
tern zugänglich zu machen, 
müssen Sie zwei neue Zeilen 
hinzufügen: 


102 DATA 9C30,CD,00,B9,CD, 
72,DD,CD,03,7CO0D 

103 DATA 9C38,B9,C9,00,00, 
00,00,00,00,6EC0 


Sie enthalten eine Routine, 
die anstelle der vorzeichenlo- 
sen Multiplikation aufgerufen 
wird und das ROM ein- bezie- 
hungsweise wieder ausschal- 
tet. Die restlichen Änderungen 
betreffen mehrere Zeilen, 
deren Inhalt Sie im folgenden 
finden. 


108 DATA 9C60,16,03,93,CA, 
F3,3A,2F,B7,2299 

109 DATA 9068,32,A3,B6,3A, 
30,B7,32,A4,273C 

110 DATA 9C70,B6,CD,C6,BB, 
ED,53,AC,AC,7CEO 

111 DATA 9078,22,AE,AC,26, 
00,DD,6E,04,2ECC 

112 DATA 9C80,22,A8,AC,DD, 
6E,02,22,AA,20C6 

116 DATA 9CAO,BY,7E,ES,2A, 
AA,AC,45,C5,5AAF 

118 DATA 9CBO,00,00,ED,5B, 
A8,AC,CD,F9,1E83 

119 DATA 9CB8,BB,F1,C1,18, 
OB,ED,5B,97,7BAD 

120 DATA 9CC0,B6,2A,A8,AC, 
19,22,97,B6,4F98 

121 DATA 9CC8,10,E0,2A,99, 
B6,2B,2B,22,39B8 

122 DATA 9CDO,99,B6,ED,5B, 
AC,AC,ED,53,7F49 

123 DATA 9CD8,97,B6,C1,10, 
CA,E1,23,01,7A73 

124 DATA 9CEO,10,BB,ED,5B, 
A8,AC,21,08,396A 

125 DATA 9CE8,00,CD,FO,9F, 
ED,5B,AC,AC,2340 

126 DATA 9CFO,19,22,AC,AC, 
22,97,B6,2A,194A 

127 DATA 9CF8,AE,AC,22,99, 
B6,E1,23,01,7763 

130 adr=&9C30:zeile=102: 

MEMORY adr-1 

142 SAVE”SCALE.BIN”,B, 

&9C30 ,&D5 


Auch im Demoprogramm 
(Listing 2) sind einige Anderun- 
gen nötig: 


40 a=adr+34 

50 POKE adr+27,INT(a/256): 
POKE adr+26,a-256x INT 
(a/256) 

60 a=adr+30 

70 POKE adr+21,INT(a/256): 
POKE adr+20,a-256x INT 
(a/256) 

80 a=adr+26:POKE adr+18, 
INT(a/256) :POKE adr+17, 
a-256xINT(a/256) 

90 CALL adr+16:... 

190 POKE &B72F,... 

200 POKE &B72F,... 

210 POKE &B72F,... 

220 POKE &B72F,... 
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Zusätzlich ergänzen Sie 
dann noch die Zeile 
82 POKE adr+187, INT(adr/25 
6):POKE adr+186, adr-256x 
INT(adr/256) 

Damit steht der Anwendung 
des Befehls SCALE auf Ihrem 
CPC 6128 nichts mehr im Weg. 

(Wolfgang Ried/ja) 


Kybermetien 
in Not 

Als Herrscher über den 
Staat Kybernetien (gleichnami- 
ges Programmlisting aus dem 
7. Schneider-Sonderheft, Seite 
102) hatten viele Leser so ihre 
Probleme, denn was sie auch 
in die Erhaltung ihres Landes 
investieren wollten, der Com- 
puter meldete stets »zuviel«. 
Die Ursache dafür ist der 
immense Speicherplatzbedarf 
des Programms samt Varia- 
blen. Was auf einem CPC 464 
mit Kassettenrecorder gerade 
noch so reicht, funktioniert auf 
Geräten mit angeschlossenem 
Diskettenlaufwerk nicht mehr. 
Die Abhilfe für diesen Umstand 
ist ebenso banal wie einfach. 
Starten Sie anstelle des Lade- 
programms (Listing 1) nur das 
Hauptprogramm (Listing 2) 
direkt. Was dadurch verloren- 
geht, sind lediglich die Kurzan- 
leitung und die Erzeugung der 
deutschen Umlaute für den 
Bildschirmdialog. Das Spiel 
indes berührt diese Maß- 
nahme nicht; bis auf die Tatsa- 
che, daß es nun korrekt läuft. 
(Rolf Schultz/ja) 


Tuning mit 
Hindernissen 


Wie sich erst kurz nach dem 
RedaktionsschlußB des 7. 
Schneider-Sonderhefts her- 
ausgestellt hat, verfügen 
einige Modelle des CPC 664 
über eine andere Gate-Array- 
Version (Typ 40010) als die 
Mehrheit der Modelle 464 und 
664. 

Der Unterschied zwischen 
den Gate Arrays liegt glückli- 
cherweise nicht in der internen 
Verschaltung, sondern ledig- 
lich in der Pinbelegung. Des- 
halb muß bei diesen Gate- 
Array-Versionen nicht die Lei- 
terbahn an Pin 3, sondern die 
Leiterbahn an Pin 16 des Gate 
Array aufgetrennt werden. Das 
CAS-Signal 
Signal für Pin 7 des PAL wird 
dementsprechend nicht an Pin 
3, sondern an Pin 16 des Gate 
Array abgegriffen. 

Ebenso müssen Sie das 
Signal ROMEN für den Um- 
schalter US an Pin 27 statt an 
Pin 12 abgreifen. 


Eine kleine Modifikation des 
Umbaus, die bei einigen Com- 
putertypen die Signalsicher- 
heit erhöht und manchmal erst 
zur korrekten Funktion des 
Umbaus führt, besteht darin, 
daß Sie die Datensignale D6 
und D7 für IC 74LS08 auf der 
PAL-Platine nicht an Pin 17 und 
Pin 18, sondern an Pin 16 (D6) 
und Pin 19 (D7) des IC 114 
abnehmen. Da es - wie wir 
inzwischen feststellen mußten 
- allein vom CPC 464 minde- 
stens fünf und vom CPC 664 
mindestens drei verschiedene 
Versionen gibt, können wir 
Ihnen nicht pauschal mitteilen, 
für welchen Typ sich diese 
Anderung lohnt. 

Im 7. Schneider-Sonderheft 
wurden im Schaltplan in Bild 1 
auf Seite 16 zwei Signale ver- 
tauscht, so daß das Booten von 
CP/M Plus im 6128-Modus 
nicht korrekt funktioniert. Ver- 
tauschen Sie die Adreßleitun- 
gen A14 und A15 an den beiden 
PAL-Eingängen Pin8undPin9 
miteinander, indem Sie A14 an 
Pin 9 und A15 an Pin 8 des PAL 
löten. Danach muß alles ein- 
wandfrei funktionieren. 

Eine weitere Fehlerquelle, 
die eine korrekte Funktion 
nach dem Umbau verhindert, 
kann in der Verdrahtung lie- 
gen, wenn diese in Form von 
Kabelbäumen durchgeführt 
wird. 

In diesem Fall liegen näm- 
lich mehrere Signalleitungen 
so eng nebeneinander, daß es 
durch kapazitives und indukti- 
ves Übersprechen der Signal- 
spannungen zu Störungen im 
Spannungspegel benachbar- 
ter Signale kommt. Zudem sind 
durch die rechtwinklige 
Streckenführung der Kabel- 
bäume die Signalleitungen 
länger als notwendig, was wie- 
derum die Signalstärken 
schwächt. 

Eine auf kurze Wege opti- 
mierte und aufgelockerte Füh- 
rung der Leitungen schafft hier 
Abhilfe. 

Probleme gibt es teilweise 
auch bei neuen CPC-Model- 
len, die mit einer Low-Power- 
Version des Gate Array ausge- 
rüstet sind. Hier sind_ an den 
Ausgängen CAS und ROMEN 
die logischen TTL-Pegel für 
das PAL so knapp bemessen, 
daß sich der Einbau von je zwei 
Schmitt-Triggern (74LS14 oder 
741LS19) in die CAS-Leitung 
zwischen Gate Array und PAL 
sowie in die ROMEN-Leitung 
zwischen Gate Array und 
Umschalter US lohnt, um die 
Signalpegel zu verbessern. 
Dadurch werden jedoch die 
genannten Signale um etwa 32 
Nanosekunden verzögert, was 


wiederum zu Timing-Proble- 
men beim Speicherzugriff füh- 
ren kann. 

Viele Leser haben uns an- 
gerufen und gefragt, ob der 
Umbau eines CPC auch mit 
der Vortex-Speichererweiterung 
funktioniert. Dazu kann folgen- 
des gesagt werden: 

Im 464-Modus arbeitet die 
Vortex-Speicherkarte im CPC 
einwandfrei, doch im 6128-Mo- 
dus funktionieren sowohl Com- 
puter als auch Speicherkarte 
nicht. Dies liegt daran, daß ei- 
nerseits das PAL des CPC zur 
Verwaltung der zweiten 64- 
KByte-Bank Bit 6 und Bit 7 der 
Portadresse 7Fxx (hex) auf 1 
setzt, um auf andere Speicher- 
bereiche zuzugreifen, und 
andererseis die Vortex-Spei- 
chererweiterung zum gleichen 
Zweck Bit 6 und Bit 7 der Port- 
adresse 7Fxx (hex) auf 1 setzt. 
Dadurch kommt es zu Über- 
schneidungen bei der Spei- 
cherverwaltung, die in einem 
sofortigen Absturz des Com- 
putersystems enden. Wir 
haben jedoch einen Hardware- 
Patch entwickelt, damit die 
Speichererweiterung auch im 
6128-Modus einwandfrei läuft. 
Wenn Sie Interesse daran 
haben, dann wenden Sie sich 
telefonisch oder schriftlich an 
die Redaktion. 

(Peter Bündgens/ma) 


Tücken bei der 

In die Dekodierung der 
Happy-Megabitkarte aus dem 
7. Schneider-Sonderheft hat 
sich in Bild 5 und 6 leider ein 
kleiner Fehler eingeschlichen, 
der zu Fehlfunktionen der 
Speichererweiterung führt. 
__Bei dem Gatter, das das 
CS-Signal für den Datenbus- 
treiber erzeugt und an den bei- 
den’Eingängenmit Pin8desIC 
741527 sowie dem CE-Signal 
verbunden ist, darf es sich 
nicht, wie fälschlicherweise 
angegeben, um ein AND- 
Gatter 74LS08 handeln. Viel- 
mehr muß hier ein OR-Gatter 
des IC 74LS32 eingesetzt wer- 
den. (Ein Gatter dieses Bau- 
steins ist noch unbeschaltet.) 

Das CE-Signal und das 
Signal von Pin 8 des IC 74LS27 
müssen Sie an Pin 13 und Pin 
12 des IC 74LS32 anschließen 
und das CS-Signal an Pin 
11 des gleichen Gatters abneh- 
men. 

Zusätzlich sind in Bild 6 Pin 4 
undPin5des1IC74LS27 andas 
WR-Signal angeschlossen. 
Diese beiden Anschlüsse müs- 
sen jedoch auf Masse gelegt 
werden. (Michael Stagge/ma) 
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Das Hardcopy-Programm 
»Happy-Imager« aus dem 7. 
Schneider Sonderheft (Seite 
133) ist für Epson- und kompa- 
tible Drucker ausgelegt. 
Obwohl damit sein Betrieb mit 
den meistgebräuchlichen 
Druckern (auch dem DMP 
2000) gewährleistet ist, gibt es 
natürlich auch Ausnahmen 
von dieser Regel. Wer die 
Hardcopyroutine nun an sei- 
nen speziellen Drucker anpas- 
sen möchte, erreicht dies 
durch einige wenige POKESs, 
deren Werte er aus seinem 
Druckerhandbuch entnimmt. 
Der erste wichtige Bereich ist 
die Initialisierung der Punkt- 
auflösung für den Grafikdruck. 
Wie Sie aus der Tabelle erse- 
hen, geschieht diese Einstel- 
lung durch eine ganze Reihe 
von Bytes. Der Befehl selbst 
(»ESC *«) besteht aus den zwei 
Byte 27 (1B hex) und 42 (2A 
hex). Die 1 aktiviert eine Auflö- 
sung von 120 Punkten pro Zoll. 
Darauf folgen zwei Byte (Low- 
und High-Byte), die die Zahl 


der konkret zu druckenden 
Pixel bestimmen, in diesem 
Fall 800 (3+256+32). 

Ab den Adressen 944B und 


(Bone [mm 7 


ESC 

Grafikmodus 

120 Punkte pro Zoll 
Low-Byte der Punktzahl 
High-Byte der Punktzahl 


94B4 hex setzen je zwei Byte 
1B und 40 hex (»ESC @«) den 
Drucker auf seine Standards 
zurück. 


Adresse (hex) 


ESC 
Drucker-Initialisierung 


ESC 
Drucker-Initialisierung 


n/216 Zeilenvorschub 
n=11 (OB hex) 
n=1 


voller Zeilenvorschub . 


ESC 
Schriftartwahl 
(für Copyright-Zeile) 


ESC 
Super-/Subscript 
Subscript ein 


Tabelle. Diese Druckerbefehle finden im Happy-Imager 
Verwendung. 


Der Wert 0OC hex bei Adresse 
94AF hex sorgt für einen Sei- 
tenvorschub des eingelegten 
Papiers im Drucker. 

Die Befehlsfolge 1B hex, 33 
hex auf 94DO hex bewirkt die 
Veränderung des Zeilenvor- 
schubs (»ESC 3 n«). Ein dritter 
Wert steht als Parameter <n> 
für. den neuen Wert des Vor- 
schubs. Diesen erhält das 
Unterprogramm von zwei Rou- 
tinen: Auf Adresse 94C3 hex 
sorgt das Byte OB hex für 
11/216 Zoll Vorschub, während 
die 1 (94CB hex) auf 1/216 Zoll 
schaltet. 

Der Wert OA hex auf 94DD 
hex veranlaßt einen vollen Zei- 
lenvorschub. 

Die Schriftart der Copyright- 
zeile bestimmt die Befehls- 
folge ab Adresse 9665 hex 
(»ESC !«), wobei der dritte Wert 
(1D hex,) für die Schriftart steht. 

‘Dem Druck derselben Zeile 
dient der Befehl ab 9677 hex 
(»ESC S n«). Er schaltet in den 
Subscript-Modus, wenn wie 
hier der Parameter <n> eine 
1 ist. Interessierte Leser kön- 
nen den gesamten Quellcode 
bei uns anfordern, wenn Sie 
uns eine formatierte Diskette 
im frankierten Rückumschlag 
senden. (Michael Herz/ja) 


Achtung 


C-Programmierer aufgepaßt! 


Jetzt gibt es Small-C, ein komplettes 
Entwicklungssystem im CP/M-Modus 
für die Schneider-CPM-Computer. Mit 
Editor, Compiler, Linker und vielen 
weiteren Utilities. 


Markt&dechnik 
Schneider CPC- 
Software 


Alle Programme sind in Small-C 
geschrben, der Quellcode wird 
mitgeliefert. 

So können Sie das Entwicklungs- 
system nach eigenen Wünschen und 
Erfordernissen erweitern und 
modifizieren. 


tu baue je-le 
raten \o.\e.\ 
hneider 
6128 u. Joyce 
BM- h 
1480, 


C-Sompiler 
8080-/Z 80-Makro-Assemi Linker/Loader 


Bibliotheksverwalter : Editor/Text-Tools 


Für Schneider-Computer 
3"-Format 
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Das Programmpaket enthält: 
o Small C-Compiler 

e Small-Mac: Assembler und Utilities 
e Small-Tools: Editor und Text-Tools 


Hardware-Anforderungen: 
Schneider CPC mit mindestens 

56 Kbyte Speicher und einem Dis- 
kettenlaufwerk. Bei den Modellen 
CPC 464 und CPC 664 ist eine 
Speichererweiterung notwendig. 
3 Disketten (3”) 


Bestell-Nr. 51484 DM 99,-— 
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kommt der Tag, 
an dem mit den 
Forderungen die 
Ansprüche 
steigen. 


Turn = 9 


Dann sollten Sie 
vorbereitet sein. 


»PC Magazin« ist der 


entscheidende Schritt 
zur professionellen 
Computeranwendung. 


PC Magazin 


Die aktuelle Wochenzeitung für Per- 


sonal Computer im IBM-Standard. 
I Wenn Sie an aktuellen und umfas- 
senden Informationen über IBM-PCs 
und kompatible Systeme interessiert 
sind # Wenn Sie stets über die neu- 
esten und effektivsten Anwendun- 
gen für den professionellen und pri- 
vaten Bereich informiert sein wollen 
# Wenn Sie sich mit CAD/CAM und 
Netzwerken beschäftigen, dann ist 
das »PC Magazin« genau Ihre Zeit- 
schrift. 

Zur Anforderung Ihrer kostenlosen 
Probeexemplare einfach denneben- 
stehenden Gutschein ausfüllen, aus- 
schneiden, auf eine Postkarte kleben 
oder in ein Kuvert stecken und ein- 
senden an: 

Markt & Technik, Verlag Aktienge- 
sellschaft, PC Magazin Abonnen- 
ten-Service, Postfach 1304, 

8013 Haar bei München. 
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Magazin 


Ich interessiere mich für »PC Magazin«, die Zeit- 
schrift über IBM-PCs und Kompatible. Schicken 
Sie mir vier Ausgaben kostenlos als Probeexem- 
plare. 


Wenn ich »PC Magazin« nicht weiterlesen möchte, 
teile ich Ihnen dies sofort nach Erhalt der dritten 
Ausgabe mit. Gefällt mir »PC Magazin«, so daßich 
es regelmäßig weiterbeziehen möchte, brauche 
ich nichts zu tun: Ich erhalte mein »PC Magazin« 
dann regelmäßig jede Woche per Post frei Haus ge- 
liefert und bezahle pro Jahr nurDM 155,— stattDM 
229,50 im Einzelverkauf. Zustellung und Postge- 
bühren übernimmt der Verlag. 


Das Abonnement verlängert sich automatisch um 
ein weiteres Jahr zu den dann gültigen Bedingun- 
gen, wenn es nicht 2 Monate vor Ablauf schriftlich 
gekündigt wird. 


Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Auslands- 
preise auf Anfrage. 
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FÜR VIER KOSTENLOSE PROBEEXEMPLARE 


Vorname 


Straße 

| | 

Lua un u . 

PLZ Ort 


Datum, 1. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb 
von 8 Tagen bei Markt & Technik, Hans-Pinsel-Str. 
2, 8013 Haar widerrufen kann. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung des Wi- 
derrufs. Ich bestätige dies durch meine 2. Unter- 


schrift. 


Datum, 2. Unterschrift 
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PEAYERES 


DREAM 


Über 1000x verkau 


Nach dem großen Erfolg von ”The Player’s Dream” und der Anwen- 
dersammlung ”CODEX” kommen jetzt die Nachfolger: 


The Player’s Dream Il 
CODEX II 


Für läppische DM 19.90 (Cass.) bzw. DM 24.90 (Disk.) finden Sie auf 


”The Player’s Dream I”: Darts 
(12/85), Senso (12/85), Show- 
down (1/86), Jump Over (2/86), 
Pingo (2/86), Zentus (5/86), 
Steinschlag (6/86), Centibug (7/ 
86), Jolly Jumper (8-9/86) und 
Pyramide (10/86). 


"The Player’s Dream Il”: Sepp im Hochhaus (4/86), Life (5/86), Minigolf (7/86), 
Tennis (11/86), Astronaut (12/86), Suicide Squad (2/87), Royal Flush (3/87), Flo- 
wers (3/87), Roulette (4/87) und Buggy Blaster (CK 10/85). 


Verschiebepuzzles 


Wer kennt Sie nicht? Unser Mit- 
arbeiter Andreas Zallmann und das 
Grafikass Christoph Schillo be- 
arbeiteten 9x die Tasten ihres CPCs. 
Herausgekommen sind 9 "erlesene 
Köstlichkeiten”. Puzzlen Sie mit! 


9 Verschiebepuzzles auf 3"-Diskette 
für nur 


DM 29.—- 


DIABOJO 


%* Der Versand mit den teuflischen Preisen! * 


finden Sie auf Seite... 


CODEX I: Hexmonitor (12/85), 
Sprites mit Editor (12/85), Kalen- 
der (12/85), Datenverwaltung (1/ 
86), DIR-Doctor (Directory-Edi- 
tor) (2/86), Mini-Monitor (3/86), 
Mathematik (3/86), Statistik (4/ 
86), Baudcopy (4/86), Hidump 
(Hardcopy) (4/86), Bücherdatei 
(5/86), Labelassembler ASSO (6/ 
86), Notizblock (Sideklick) (6/86), 
Basic-Compiler (8-9/86), Disas- 
sembler (10/86). 


CODEX Il: Softwareuhr (12/85), Disk-Doktor (1/86), Orgel (1/86), Datagenera- 
tor (2/86), Taschenrechner (3/86), Painter (3/86), Periodensystem (3/86), Elek- 
tro-CAD (5/86), Scrollbremse (6/86), Copy ??right!! V2.0 (6/86), 3-D-Prozessor 
(7/87), Digitalisierer (7/86), Tastenklick (8-9/86), Oszilloskop (8-9/86), Symbol- 
Editor (10/86), Fast-Routine (10/86), DFÜ (10/86), Datei (12/86), Neues HI- 


Dump (1/87). 


Die andere Software 


10 Lernprogramme für Kinder 
zwischen 4 und 12 Jahren. Unser 
Mitarbeiter Berthce!d Freier, seines 
Zeichens Pädagoge aus Bayern, ge- 
staltete 10 Programme, bei denen 
nicht Raketen und Gewehre im 
Vordergrund stehen, sondern der 
Grips der Kinder gefordert wird! 


10 Lernprogramme auf 3"-Diskette 
für 


DM 29 — 


Software-Bestellschein 


Ich bestelle aus dem CPC-Programmservice folgende Software: 


Ich wünsche folgende 


Einzel- Gesamt- 
Titel preis preis 


Player’s Dream! Cass. 19,90 DM m 
Player’s Dream Il Cass. 19,90 DM 1 
Player'sDream!3’-Disk |2,00M | | 


Bezahlung: 
DD Nachnahme 

(zuz. 5.70 DM Versandkosten) 
D) Vorauskasse 


(keine Versandkosten) | 
Bei Vorauskasse bitte Scheck beilegen 


oder auf Postscheckkonto Karlsruhe | 
434 23-756 überweisen. 


Name des Bestellers 


‚Anschrift 


Player’sDream|l 3’-Disk |24,90 DM 
24,90 DM 


CODEX | 3"-Disk 


CODEX.I 3"-Disk 200m 94 | 
LernenmitSpaß 3-Disk |29,000M | | | 
Puzzle 3"-Disk 29000M| | 


Datum/Unterschrift 


Coupon ausschneiden, auf Postkarte kleben und einsenden an: 


Verlag Rätz-Eberle/CPC-Software, Postfach 16 40, 7518 Bretten. 


»UILNdWOI-UIGIENHIS“ SL LIIHUZANOS UILNdWOI-AddVH 


